VBA - Recherche/Valeur

Résolu/Fermé
PleaseCallMe - 7 août 2008 à 11:42
 PleaseCallMe - 7 août 2008 à 16:19
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?
A voir également:

2 réponses

Leahkim Messages postés 3079 Date d'inscription jeudi 15 novembre 2007 Statut Membre Dernière intervention 2 mars 2014 278
7 août 2008 à 16:02
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
Merci ^^
0