Fonction VLOOKUP

Résolu/Fermé
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 29 oct. 2015 à 21:49
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 30 oct. 2015 à 21:41
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

A voir également:

3 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
29 oct. 2015 à 23:24
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
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
30 oct. 2015 à 20:26
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
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
30 oct. 2015 à 21:41
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