Discussion :

[ADbtr]

Bonjour,

je recherche des valeurs dans un tableau excel à l'aide de VBA avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim CelluleReference as String
 
If (Range("D2:D10000").Find(CelluleReference, lookat:=xlWhole).Value) = CelluleReference

Lorsque la valeur CelluleReference n'existe pas, il se met en erreur. J'aimerais pouvoir gérer cette erreur, ex :

Si Cellulereference n'existe pas dans ma plage alors
goto une étiquette dans mon code
Sinon si elle existe : continuer le code

Merci d'avance pour vos réponses

AD

[laetitia]

bonjour ADbtr le forum il faut utiliser ...
set ect...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 If Not CelluleReference Is Nothing Then
'action1
   Else
'action2
  End If

[delphine35]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
..sub ...
 
Dim CelluleReference as String
 
 
on error goto ERR
 
If (Range("D2:D10000").Find(CelluleReference, lookat:=xlWhole).Value) = CelluleReference
....
 
exit sub
 
ERR:
   ....
exit