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?
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. Leahkim Messages postés 3219 Statut Membre 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