VBA - Recherche/Valeur

Résolu
PleaseCallMe -  
 PleaseCallMe -
Bonjour,
Voici mon code :

Dim rge3 As Range
Set rge3 = Range("B7:B29").Find(Mardi)
Dim Value_2 As Integer
Dim Var2 As Integer
Value_2 = rge3.Row
Var2 = Cells(Value_2, 4).Value

J'aimerais que si il ne trouve pas la date "Mardi" ma Sub continue de s'éxécuter !
Quelqu'un peut me donner un coup de main?

2 réponses

Leahkim Messages postés 3081 Date d'inscription   Statut Membre Dernière intervention   281
 
ba, il faut rajouter une condition


Dim rge3 As Range

If Mardi<>0 Then Set rge3 = Range("B7:B29").Find(Mardi)
else goto SUITE

SUITE:
Dim Value_2 As Integer
Dim Var2 As Integer
Value_2 = rge3.Row
Var2 = Cells(Value_2, 4).Value
1
PleaseCallMe
 
Merci ^^
0