Bonjour a tous,
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