Fonction VLOOKUP

Résolu
julia Namor Messages postés 532 Statut Membre -  
julia Namor Messages postés 532 Statut Membre -
Bonsoir

Je cale sur une formule vba

x = Application.VLookup(m, Sheets("BDD").Range("a2:a" & DL), 1, False)

une fois x trouvé je voudrais le remplacer par le chiffre 0

Comment faire?
merci énorménent de votre aide

Bien à vous

3 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Essaie comme cela

    Sub test()
    Dim L
    m = "<Nom Cherché>"
    With Sheets("BDD")
    DL = .Range("A" & Rows.Count).End(xlUp).Row
    L = Application.Match(m, .Range("A1:A" & DL), 0)
    If Not IsError(L) Then .Range("A" & L).Value = 0
    End With
    End Sub


    A+
    0
  2. julia Namor Messages postés 532 Statut Membre 33
     
    BONSOIR Gyrus .

    C'est tout à fait ce qu'il me faut .Un grand merci à toi.

    Je me permets de soumettre un autre souci , (s'il fallait créer un autre post je m'en excuse).

    Comment pourrais je effectuer par vba une mise à jour d'une base de données ( noms prénoms age sexe....) en retirant tous les noms "Namor" par exemple?

    merci de votre aide

    Bien à vous
    0
  3. julia Namor Messages postés 532 Statut Membre 33
     
    Merci beaucoup Gyrus ,
    j'ouvre un autre post pour soumettre la demande d'aide sur la maj de la base de données
    Bien à vous
    0