Macro - Selectionne cellule en boucle

[gourdin]

Bonjour,

Je souhaite le code VBA qui sélectionne successivement chaque cellule d'une colonne d'un tableau.

Une action particulière est réalisée en fonction de la valeur de la cellule sélectionnée (par exemple un message).

La macro s'arrête dès qu'il y a une cellule vide sélectionnée.

Voir fichier joint plus détaillé.

 

[pierrejean]

Bonjour gourdin

A tester

Sub test()
For n = 4 To 30
  If Range("D" & n) = "" Then Exit Sub
  If Range("D" & n) = "OUI" Then MsgBox ("Validé " & Range("C" & n))
  If Range("D" & n) = "NON" Then MsgBox ("Non Validé " & Range("C" & n))
Next
End Sub

 

[gourdin]

Parfait
Merci beaucoup pierrejean

 

[Modeste geedee]

Bonsour®

Bonjour,

Je souhaite le code VBA qui sélectionne successivement chaque cellule d'une colonne d'un tableau.

Une action particulière est réalisée en fonction de la valeur de la cellule sélectionnée (par exemple un message).

La macro s'arrête dès qu'il y a une cellule vide sélectionnée.

Voir fichier joint plus détaillé.

autre méthode :

Sub Gourdin()
Dim ligne As Integer
ligne = 4
While Cells(ligne, 4) <> ""
    MsgBox IIf(UCase(Cells(ligne, 4)) = "OUI", " ", "non ") & "validé par " & Cells(ligne, 3), vbOK + vbInformation, "jmGourdin"
    ligne = ligne + 1
Wend
End Sub