Bonjour,
 
je suis débutante en VBA (jai commencé en début de semaine). Je fais une boucle, à l'intérieur de laquelle je fais une trentaine de if imbriqués. Je me retrouve avec une erreur 438, qui a priori n'a pas de solution unique!
Est-ce-que quelqu'un pourrait m'aider svp?
 
Voici mon code (ouais je sais c'est un peu compliqué et long à lire...):
 
Sub RechercheCompo()
 
    Dim Cible1 As String
    Dim Cible2 As String
    Dim Cible3 As String
    Dim Cible4 As String
    Dim Cible5 As String
    Dim Cible6 As String
    Dim Cible7 As String
    Dim Cible8 As String
    Dim Cible9 As String
    Dim Cible10 As String
    Dim Cible11 As String
    Dim Cible12 As String
    Dim Cible13 As String
    Dim Cible14 As String
    Dim Cible15 As String
    Dim Cible16 As String
    Dim Cible17 As String
    Dim Cible18 As String
    Dim Cible19 As String
    Dim Cible20 As String
    Dim Cible21 As String
    Dim Cible22 As String
    Dim Cible23 As String
    Dim Cible24 As String
    Dim Cible25 As String
    Dim Cible26 As String
    Dim Cible27 As String
    Dim Cible28 As String
    Dim Cible29 As String
    Dim Cible30 As String
    Dim Cible31 As String
    Dim Cible32 As String
    Dim Cible33 As String
 
    Cible1 = "acier, fut"
    Cible2 = "acrylique"
    Cible3 = "alu"
    Cible4 = "bronze"
    Cible5 = "noir"
    Cible6 = " chr "
    Cible7 = " cuivre, cupro, cu/ni "
    Cible8 = " esther "
    Cible9 = " galva "
    Cible10 = " glycol "
    Cible11 = " diluant, gasoil "
    Cible12 = " inox, bague, clavette, écrou, collier, compact, cable, stainless, vis, entretoise, durite, vis, fourreau, manille, profil, outillage, tuyau, union "
    Cible13 = " roche "
    Cible14 = " laine de verre "
    Cible15 = " lait "
    Cible16 = " balsa "
    Cible17 = " adh "
    Cible18 = " nic "
    Cible19 = " intergard "
    Cible20 = " catalyseur "
    Cible21 = " plomb "
    Cible22 = "film"
    Cible23 = " crestomer, gel, garcette, resine, mastic"
    Cible24 = " gravicol, flacon "
    Cible25 = " polypro "
    Cible26 = " sika, polyur. "
    Cible27 = "pvc, taud"
    Cible28 = "fil roving, filet, mat, verre, pyrex, vitre "
    Cible29 = "plast, silicone, poignee, caout, flex, paulstra "
    Cible30 = " styrene "
    Cible31 = " caloretanche "
    Cible32 = " tissu roving "
    Cible33 = " vinylester "
     
    Dim i As Integer
 
i = 0
 
Do
 i = i + 1
 
If (InStr(Cible1, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
Sheets("nomenclature" ).cell(i, 6).Value = "acier" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
ElseIf (InStr(Cible2, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
Sheets("nomenclature" ).cell(i, 6).Value = "acrylique" And Sheets("nomenclature" ).cell(i, 7).Value = "1B"
 ElseIf (InStr(Cible3, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
 Sheets("nomenclature" ).cell(i, 6).Value = "aluminium" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
   ElseIf (InStr(Cible4, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
   Sheets("nomenclature" ).cell(i, 6).Value = "bronze" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
    ElseIf (InStr(Cible5, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
    Sheets("nomenclature" ).cell(i, 6).Value = "elastomère" And Sheets("nomenclature" ).cell(i, 7).Value = "3C"
     ElseIf (InStr(Cible6, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
     Sheets("nomenclature" ).cell(i, 6).Value = "chrome" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
      ElseIf (InStr(Cible7, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
      Sheets("nomenclature" ).cell(i, 6).Value = "cupro nickel" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
       ElseIf (InStr(Cible8, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
       Sheets("nomenclature" ).cell(i, 6).Value = "esther" And Sheets("nomenclature" ).cell(i, 7).Value = "1J"
        ElseIf (InStr(Cible9, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
        Sheets("nomenclature" ).cell(i, 6).Value = "galva" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
         ElseIf (InStr(Cible10, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
         Sheets("nomenclature" ).cell(i, 6).Value = "glycol" And Sheets("nomenclature" ).cell(i, 7).Value = "1F"
          ElseIf (InStr(Cible11, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
          Sheets("nomenclature" ).cell(i, 6).Value = "hydrocarbure" And Sheets("nomenclature" ).cell(i, 7).Value = "2C"
           ElseIf (InStr(Cible12, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
           Sheets("nomenclature" ).cell(i, 6).Value = "inox" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
            ElseIf (InStr(Cible13, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
            Sheets("nomenclature" ).cell(i, 6).Value = "laine de roche" And Sheets("nomenclature" ).cell(i, 7).Value = "1J"
             ElseIf (InStr(Cible14, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
             Sheets("nomenclature" ).cell(i, 6).Value = "laine de verre" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
              ElseIf (InStr(Cible15, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
              Sheets("nomenclature" ).cell(i, 6).Value = "laiton" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
               ElseIf (InStr(Cible16, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
               Sheets("nomenclature" ).cell(i, 6).Value = "matériau de construction" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
                ElseIf (InStr(Cible17, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                Sheets("nomenclature" ).cell(i, 6).Value = "mousse de polyéthylène" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                 ElseIf (InStr(Cible18, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                 Sheets("nomenclature" ).cell(i, 6).Value = "nickel" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
                  ElseIf (InStr(Cible19, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                  Sheets("nomenclature" ).cell(i, 6).Value = "peinture" And Sheets("nomenclature" ).cell(i, 7).Value = "1B"
                   ElseIf (InStr(Cible20, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                   Sheets("nomenclature" ).cell(i, 6).Value = "peroxyde de méthyléthylcétone" And Sheets("nomenclature" ).cell(i, 7).Value = "3B"
                    ElseIf (InStr(Cible21, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                    Sheets("nomenclature" ).cell(i, 6).Value = "plomb" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
                     ElseIf (InStr(Cible22, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                     Sheets("nomenclature" ).cell(i, 6).Value = "polyamide" And Sheets("nomenclature" ).cell(i, 7).Value = "3C"
                      ElseIf (InStr(Cible23, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                      Sheets("nomenclature" ).cell(i, 6).Value = "polyester" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                       ElseIf (InStr(Cible24, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                       Sheets("nomenclature" ).cell(i, 6).Value = "polyester et styrène" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                        ElseIf (InStr(Cible25, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                        Sheets("nomenclature" ).cell(i, 6).Value = "polypropylène" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                         ElseIf (InStr(Cible26, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                         Sheets("nomenclature" ).cell(i, 6).Value = "polyuréthane" And Sheets("nomenclature" ).cell(i, 7).Value = "1H"
                          ElseIf (InStr(Cible27, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                          Sheets("nomenclature" ).cell(i, 6).Value = "PVC" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                           ElseIf (InStr(Cible28, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                           Sheets("nomenclature" ).cell(i, 6).Value = "résine de verre" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                            ElseIf (InStr(Cible29, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                            Sheets("nomenclature" ).cell(i, 6).Value = "silicone" And Sheets("nomenclature" ).cell(i, 7).Value = "1B"
                             ElseIf (InStr(Cible30, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                             Sheets("nomenclature" ).cell(i, 6).Value = "styrène" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                              ElseIf (InStr(Cible31, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                              Sheets("nomenclature" ).cell(i, 6).Value = "teflon" And Sheets("nomenclature" ).cell(i, 7).Value = "3C"
                               ElseIf (InStr(Cible32, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                               Sheets("nomenclature" ).cell(i, 6).Value = "tissu de verre" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                                ElseIf (InStr(Cible33, Sheets("nomenclature" ).cell(i, 3)) <> 0) Then
                                Sheets("nomenclature" ).cell(i, 6).Value = "vynilesther" And Sheets("nomenclature" ).cell(i, 7).Value = "1C"
                                 
End If
 
Loop Until Sheets("nomenclature" ).cell(i, 3).Value = Null
 
 
 
End Sub
 

Deja commence par mettre tous tes Dim en début de fonction...
Quel intérêt de mettre du texte dans tes cibles si tu ne t'en sers pas après ?

En dehors de l'illisibilité de ton code (et non pas de sa complexité), et de l'erreur dont tu parles quelque chose m'interpelle :

Cette ligne (prise en exemple mais les suivantes sont pareilles) affecte comme valeur le résultat d'une opération logique (And) entre une chaine ("acier" ) et une autre opération logique (résultat booléen vrai ou faux).
J'ai du mal à comprendre l'objectif.

À moins que les deux parties séparées par le mot "And" ne correspondent à deux lignes d'affectation différentes, auquel cas il faut écrire :

Merci de veiller à mieux indenter ton code et à utiliser les balises de formatage disponibles sur ce forum : [fixed][/fixed] ou [cpp][/cpp]

Pour l'erreur 438 en elle-même, il s'agit de l'objet « cell » que tu utilises : tu as oublié le S pour « Cells »

Je vais essayer de te proposer un code un peu plus avancé pour te montrer la différence
edit: finalement, tant que je ne comprendrais pas mieux cette histoire de "And" je peux difficilement te montrer un code plus efficace en terme d'algo.

Effectivement.
Le mieux pour faire un code simle c'est de créer des tableurs :
 
dim MyTab()
dim a as integer
redim MyTab(0 to 32,0 to 1,0 to 4)
 
MyTab(0,0,0)="acier, fut"  
MyTabl(0,1,0)="acier"
MyTabl(0,0,1)="1H"
...
MyTab(32,0,0)=" vinylester "
MyTab(32,1,0)="vynilesther"  
MyTab(32,0,1)="1C"
 
do until isempty(Sheets("nomenclature" ).cell(i, 3))
  for a=0 to 32
    If (InStr(MyTab(a,0,0), Sheets("nomenclature" ).cell(i, 3)) then
      Sheets("nomenclature" ).cell(a+1, 6)= MyTab(a,1,0)
      Sheets("nomenclature" ).cell(a+1, 7)= MyTab(a,0,1)
    End if
  next a
loop
 
En fait tes "if" ne sont pas imbriqués, ils sont des conditions complémentaires, ils sont donc au même niveau hierarchique (un seul "End if" les clos.
 
Avec cette méthode, le remplissage des tes tables reste long, mais le code est très court et très simple.
   

Pardon, la déclaration des variables doit etre :
 
dim MyTab()
dim a as integer
redim MyTab(0 to 32,0 to 1,0 to 1)
 
Désolé

Pfff... mon code est plein d'erreurs... je l'ai écris d'un trait...
 
Correction :
 
dim MyTab()
dim a as integer
redim MyTab(0 to 32,0 to 1,0 to 1)
 
MyTab(0,0,0)="acier, fut"  
MyTabl(0,1,0)="acier"
MyTabl(0,0,1)="1H"
...
MyTab(32,0,0)=" vinylester "
MyTab(32,1,0)="vynilesther"  
MyTab(32,0,1)="1C"
 
do until isempty(Sheets("nomenclature" ).cells(i, 3))
  for a=0 to 32
    If InStr(MyTab(a,0,0), Sheets("nomenclature" ).cells(i, 3)) then
      Sheets("nomenclature" ).cells(a+1, 6)= MyTab(a,1,0)
      Sheets("nomenclature" ).cells(a+1, 7)= MyTab(a,0,1)
    End if
  next a
loop  
 
 
re-désolé

Merci à tous pour vos réponses
j'essaie ce que vous m'avez expliqué.

Merci à AprilThe5th: ça marche trop bien ta boucle!
ça me simplifie le boulot c'est énorme!