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

Question

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

cs_MPi · Answer

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

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

1 réponse

Votre réponse