Souci Vlookup VBA

Bonjour,

J'ai mis en place un Vlookup pour trouver une ligne ou je dois aller ecrire, probleme quand je test VB me dit objet attendu... 2h que je cherche une solution en vain.

Merci de vôtre aide

Code:

---

1 2 3 4

valeur_cherchée = TextBox1 aplication.worksheetfuntion.VLookup(valeur_cherchée, "a1:a1000", 1, False) = Ligne_operative   Range("J" & Ligne_operative) = TextBox2

---

Bonjour.


2H, ce n'est rien! ;)
Application s'écrit avec 2 "p".
Le deuxième argument de la fonction doit être une plage. Actuellement c'est une chaîne de caractères.

Cordialement,

PGZ

Merci de la réponse!!

D'après tes explications, j'en ai deduit cela:

Code:

---

1 2 3 4 5 6 7 8

Private Sub ToggleButton1_Click()   valeur_cherchée = TextBox1 Application.worksheetfuntion.VLookup(valeur_cherchée, Sheets("Feuil1"), 1, False) = Ligne_operative   Range("J" & Ligne_operative) = TextBox2   End Sub

---

Mais toujours message d'erreur donc je n'ai pas du tout comprendre:(

Bonjour,
Essai avec ce code, même si je n'ai pas compris ce que tu veux faire avec ton code.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ToggleButton1_Click()   valeur_cherchée = TextBox1   Application.worksheetfuntion.VLookup(valeur_cherchée, Sheets("Feuil1").range("A1:A1000"), 1, False) = Ligne_operative   Range("J" & Ligne_operative) = TextBox2   End Sub

---

Note bien, la valeur_cherchée doit être un string, si me je trompe pas.

En fait ce que je veux faire, c'est rechercher un nom dans la colonne A et ajouter une date dans la cellule E de cette même ligne.

Toujours le même souci... Erreur 438 Propriété ou methode non gérée par cet objet aaaaaahhhhhhhhhhhhhh:cry:

Essaie avec ça

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ToggleButton1_Click()   valeur_cherchée = TextBox1   Application.VLookup(valeur_cherchée, Sheets("Feuil1").range("A1:A1000"), 1, False) = Ligne_operative   Range("J" & Ligne_operative) = TextBox2   End Sub

---

Ah ce coup ci je change d'erreur, 1004 Erreur définie par l'application ou par l'objet.

VB n'est vraiment pas fait pour moi grrr

Perso, j'utilise la fonction " Vloukup " pour récupérer une valeur et non pas pour changer sa valeur.
Je pense que ce n'est pas la bonne manière d'utiliser "Vlookup", mais je ne suis un pro, donc ça reste à valider.
Sinon le VB, n'est pas un problème, il faut juste comprendre sa philosophie.
Bon courage/

Bonjour,

Essaies avec la méthode Find.
J'ai remplacé le ToggleButton par un CommandButton.

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim CelluleCherchée As Range With Worksheets("Feuil1") Set CelluleCherchée = .Range("a1:a1000").Find(TextBox1.Text, LookIn:=xlValues) If Not CelluleCherchée Is Nothing Then .Range("E" & CelluleCherchée.Row) = CDate(TextBox2.Text) End With End Sub

---

Cordialement.

Je viens d'essayer mais rien ne produit

salut,
a noter dans le code d'orifine qu'iol manque un c a worksheetfunction ;)

Re,

D’après ce que tu as indiqué, tu dois disposer d’une feuille (Feuil1) dans laquelle tu as disposé 2 TextBox (TextBox1 et TextBox2) et 1 CommandButton (CommandButton1).
Dans la TextBox1 tu saisis la valeur cherchée.
Dans la TextBox2 tu saisis la date.
La procédure va rechercher la valeur dans la colonne A et ajouter la date saisie dans la TextBox2 dans la cellule E de la ligne correspondante.

Nota : la recherche ne s’effectue qu’une fois. Si tu as plusieurs valeurs identiques à rechercher, il te faudra utiliser FindNext.

Cordialement.

Oui c'est tout à fait cela, pour le probleme de doublon, il ne se posera pas donc aucun souci pour le programme

Je suis toujours bloqué sur ce probleme je n'arrive à rien je me demande si c'est réalisable..??

Bonjour,

La méthode Find devrait fonctionner.
Envoie ton fichier sans données confidentielles pour voir où ça coince.

Cordialement.

Bonjour
Utilise la méthode proposée par gFZT82 et en adaptant le paramètre LookIn au cas où en colonne A tu as des formules (xlFormulas à la place de xlValues).
Surtout, essaies de comprendre les proposition qu'on te fournit (avec notamment un F1 sur les instructions nouvelles pour toi)

voila mon fichier!! la macro visée et dans le USF3

Aie j'ai pas fait attention sa ne passe pas fichier trop volumineu

Lorsque je lance la macro FIND rien ne se produit...

Voici un fichier qui utilise la procédure avec la méthode Find.
Essaie de comparer avec ton fichier.

Cordialement.

J'ai exactement la même chose, mais pas de resultat... le fait que les textbox soient dans un userform n'aurai pas une influence sur le programme?

Citation:

---

J'ai exactement la même chose, mais pas de resultat.

---

le code de gFZT82 marche parfaitement.

Je viens de comprendre mon probleme, je suis avec des cellules fusionnées donc il ne voulais pas ecrire ni chercher. Maintenant tout fonctionne mais j'ai un tableau affreux lool.

Merci a tous de vôtre précieuse aide!!