Discussion :

[Inguyone]

Bonjour à tous,

Je viens vers vous en temps que bricoleur VBA. J'essaye de trouver depuis des heures une solution à un problème qui peut être simple pour des utilisateurs avertis, mais pour moi reste un casse tête.

En effet je fais tourner une macro, jusque là pas de soucis, mais quand je supprime dans une cellule ma recherche une erreur #n/a apparaît dans la colonne de résultats.

Voici le code utilisé.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A9:A150")) Is Nothing Then
Target.Offset(0, 2).Formula = "=VLOOKUP(A9:A150,Feuil1!A2:B10,2,0)"
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value

End If
End Sub

Je vous remercie d'avance pour l'aide que vous pourriez m'apporter.

[Quentin77170]

Salut,

Ton problème me semble plus être lié à la formule que tu as écrite qu'à la macro.

Si de A1 à A8 tu as toutes les valeurs que tu rechercheras dans A9 à A150, tu n'auras pas cette erreur.

Exemple :

Adresse	Valeur à chercher	Valeur à afficher	Formule
A1	AAA	1111
A2	BBB	2222
A3	CCC	3333
...
A8	HHH	8888
A9	BBB		2222
A10	BBB		2222
A11	FFF		6666
A12	WWW		#N/A
A13	ABC		#N/A
A14	AAA		1111

En gros, soit il faut rajouter une condition à ta formule pour enlever l'erreur si elle y est... soit faut juste avoir une base de données ("A1:A8") "mieux" remplie pour que rechercheV trouve toujours la valeur

Dis-moi si ça t'apporte quelque chose.

Quentin

[Inguyone]

Quentin 77170

Bonjour et merci à toi pour ces conseils.

La solution viens de Dan que je remercie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A9:A150")) Is Nothing Then
    If Not IsEmpty(Target.Value) Then 'on verifie que la cellule n'est pas vide de données
        Target.Offset(0, 2).Formula = "=VLOOKUP(A9:A150,Feuil1!A2:B10,2,0)"
        Else: Target.Offset(0, 2).Clear 'on efface la formule
    End If
End If
End Sub