tester existence d'une valeur dans une colonne

[nomzamo]

Bonsoir,
Je souhaiterais pouvoir comparer le contenu des cellules d'une colonne (A) au contenu (date) d'une cellule (B1).
Si une cellule de la colonne A est égale à B1 alors je veux déclencher une macro 1 sinon une macro 2.
Merci pour votre aide,
Roger.

 

[Papou-net]

Re : tester existence d'une valeur dans une colonne

Bonsoir nomzamo,

Essaies cette macro :

DerLigne=Range("A1").CurrentRegion.Rows.Count
For Each Cel In Range("A1:A" & DerLigne)
  If Cel.Value = Range("B1").Value Then
    Macro1
    Else
    Macro2
  End If
Next

Espérant avoir répondu.

Cordialement.

 

[nomzamo]

Re : tester existence d'une valeur dans une colonne

Ca marche!
Merci à tous les 2 pour votre aide précieuse et vos réponses rapides.
Amicalement,
Roger