Parcourir colonne et condition 2

Question

Je viens vers vous car je n'arrive pas à adapter les solutions que je trouve sur le forum ou les cours vba du site à mon problème. la solution qui s'en rapproche le plus est celle-ci: https://forum.excel-pratique.com/viewtopic.php?t=72275 Sub Test() Range("A1", Range("A1").End(xlDown)).Select Dim Cel As Range For Each Cel In Range("A1", Range("A1").End(xlDown)) If Cel = "Pomme" Then Cel.Offset(, 1).Value = 10 ElseIf Cel = "Abricot" Then Cel.Offset(, 1).Value = 5 ElseIf Cel = "Cerise" Then Cel.Offset(, 1).Value = 3 End If Next Cel End Sub sur ce sujet la macro d'Amadéus me conviendrait presque sauf que pour moi j'ai plusieurs conditions (environ une vingtaine)qui ont le même résultat. j'ai essayé l'alternative aux instructions If (select)comme précisé dans les cours vba mais je n'arrive pas à l'appliquer ce que je recherche c'est ça mais en fonctionnel : Sub Test() Range("A1", Range("A1").End(xlDown)).Select Dim Cel As Range For Each Cel In Range("A1", Range("A1").End(xlDown)) If Cel = "Pomme, orange, banane" Then Cel.Offset(, 1).Value = 10 ElseIf Cel = "Abricot, fraise" Then Cel.Offset(, 1).Value = 5 ElseIf Cel = "Cerise, poire" Then Cel.Offset(, 1).Value = 3 End If Next Cel End Sub Merci d'avance pour l'aide...

Florian53 · Answer

La syntaxe n'est pas bonne pour les différents choix essaye comme ceci: Sub Test() Range("A1", Range("A1").End(xlDown)).Select Dim Cel As Range For Each Cel In Range("A1", Range("A1").End(xlDown)) If Cel = "Pomme" or Cel = "Orange" or Cel = "Banane" Then Cel.Offset(, 1).Value = 10 ElseIf Cel = "Abricot" or Cel = "Fraise" Then Cel.Offset(, 1).Value = 5 ElseIf Cel = "Cerise" or Cel = "Poire Then Cel.Offset(, 1).Value = 3 End If Next Cel End Sub...