[vba excel] vérifier si valeur présente dans le fichier [Résolu]

cs_Liro 159 Messages postés jeudi 7 septembre 2006Date d'inscription 30 septembre 2011 Dernière intervention - 13 mai 2008 à 18:00 - Dernière réponse : cs_MPi 3863 Messages postés mardi 19 mars 2002Date d'inscription 13 mars 2018 Dernière intervention
- 13 mai 2008 à 23:10
Bonsoir,

Je souhaite vérifier qu'une référence est présente dans mon fichier avant de lancer une macro, voici mon code:

sub ref()
If Application.WorksheetFunction.VLookup(ref, Range("B18:B20000"), 1, False) = 1 Then
MsgBox "Cette référence est déjà présente"
Exit Sub
End If
'ici mon code dans le cas ou la référence n'est pas présente
end sub

Je teste en utilisant la function Vlookup mais es-ce la meilleure des manières? Si oui comment vérifier que cette fonction trouve bien la référence ou non?
Merci pour votre aide

Liro
Afficher la suite 

1 réponse

Répondre au sujet
cs_MPi 3863 Messages postés mardi 19 mars 2002Date d'inscription 13 mars 2018 Dernière intervention - 13 mai 2008 à 23:10
+3
Utile
Je préfère utiliser la fonction Find

    Dim Recherche As Range
   
    Set Recherche = Columns("A").Find(ref)
    If Not Recherche Is Nothing Then
        MsgBox "Trouvé en " & Recherche.Address
    Else
        MsgBox "Non trouvé"
    End If

Attention toutefois... Dans ton exemple, tu nommes ta Sub ref ainsi que la valeur recherchée...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.