Parcourir Colonne et Conditions

Bonjour à tous,

J'ai un bon niveau sur Excel mais faible sur Vba, et j'aimerai réaliser :

1) Parcourir une colonne ( par exemple colonne A) et s'arrêter à la cellule vide.

2) En fonction des valeurs rencontrées dans cette colonne, pour chaque cellule, j'aimerai retourné une valeur dans la colonne B en face de chaque cellule

Exemple si j'ai en Colonne A :

Pomme

Abricot

Cerise

J'aimerai avoir un code vba qui lit cette colonne, récupère ces valeurs puis assigne ( en boucle if )

If Pomme (Cellule A1)

Alors B1 = 10

If Abricot ( Cellule A2)

Alors B2 = 5

If Cerise ( Cellule A3)

Alors B3 = 3

End

Merci par avance de votre temps, et votre considération,

Bonne journée,

Bonjour

Une question par rapport à ton exemple

toute les cellules qui ont pomme en colonne A ont 10 en colonne B ????

OU ta cellule en colonne B affiche 10 uniquement si la cellule en A est "pomme" ?????

Bonjour,

Merci beaucoup pour ton retour rapide,

Dans la colonne B je n'ai rien du tout, je veux la remplir par cette macro vba,

Donc si j'ai Pomme en colonne A alors ma macro insérera 10 en Colonne B en face

Bonjour

Code Module

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

Cordialement

Re ... & Bonjour Amadéus....

Voilà, Amadéus écrit plus vite que moi le code... donc je poste rien vu que c'est la même chose...

Bonne fin de journée à vous 2

Merci à vous deux !

C'est super !