Balayage des lignes d'une colonne

[cyrilanselin]

Bonsoir à tous

Je cherche un moyen de déclencher une instruction si après balayage de toutes les lignes d'une colonne, une valeur précédemment entrer via inputbox n'est pas trouver (sans afficher le message à chaque ligne bien sur).

Merci d'avance de votre aide

 

[myDearFriend!]

Re : Balayage des lignes d'une colonne

Bonsoir cyrilanselin,

Une solution possible...

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=NAVY]Dim[/COLOR] V [COLOR=NAVY]As String[/COLOR]
    V = InputBox("Entrez la valeur")
    [COLOR=NAVY]If[/COLOR] V = "" [COLOR=NAVY]Then Exit Sub
    If[/COLOR] ActiveSheet.Columns(1).Find(V) [COLOR=NAVY]Is Nothing Then[/COLOR]
        [COLOR=GREEN]'Feuille et numéro de colonne ci-dessus à adapter[/COLOR]
        [COLOR=GREEN]'TES INSTRUCTIONS ICI...[/COLOR]
        MsgBox "Non trouvé"
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

Cordialement,

Meilleurs Voeux à toutes et tous !

 

[cyrilanselin]

Re : Balayage des lignes d'une colonne

Tout simplement magnifique !

Milles merci

et bonnes fêtes