[VBA Excel] if variable = vide than...
Résolu
Fritz
-
fiddy Messages postés 11069 Date d'inscription Statut Contributeur Dernière intervention -
fiddy Messages postés 11069 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je fais un programme VBA avec un tableau contenant des références et j'aimerai faire une recherche de référence dans ce tableau.
Mais la référence donné n'est pas forcément dans le tableau.
J'ai donc fait une zone de texte pour mettre la référence au clavier, et une casez rechercher avec une fonction variable.range = Find la ref dans le tableau.
Jusque la tout vas bien.
Après j'aimerai faire une variable if la référence est dans le tableau then il se passe ça...
et
else si la reference n'est pas dans la tableau il se passe autre ça...
Mais j'ai l'erreur 91 quand je n'ai pas la même ref dans le tableau, erreur = la variable.range est vide.
J'aimerai savoir si on peut ecrire if variable = vide, car je ne sais pas comment faire. (j'ai essayé ="" et <>"")
Ou si une autre solution existe que de faire un recherche.
Merci
je fais un programme VBA avec un tableau contenant des références et j'aimerai faire une recherche de référence dans ce tableau.
Mais la référence donné n'est pas forcément dans le tableau.
J'ai donc fait une zone de texte pour mettre la référence au clavier, et une casez rechercher avec une fonction variable.range = Find la ref dans le tableau.
Jusque la tout vas bien.
Après j'aimerai faire une variable if la référence est dans le tableau then il se passe ça...
et
else si la reference n'est pas dans la tableau il se passe autre ça...
Mais j'ai l'erreur 91 quand je n'ai pas la même ref dans le tableau, erreur = la variable.range est vide.
J'aimerai savoir si on peut ecrire if variable = vide, car je ne sais pas comment faire. (j'ai essayé ="" et <>"")
Ou si une autre solution existe que de faire un recherche.
Merci
3 réponses
Bonjour,
Exemple type :
Lupin
Exemple type :
Option Explicit
Sub Test()
Dim Valeur As Variant
Valeur = ActiveCell.Value
If (IsEmpty(Valeur)) Then
MsgBox "Vide"
Else
MsgBox "Non-Vide"
End If
End Sub
Lupin
