Discussion :

[trane51]

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 :

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

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

[pgz]

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

[trane51]

Merci de la réponse!!

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

Code :

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

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

[zangaloni]

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

Code :

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

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.

[trane51]

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

[zangaloni]

Essaie avec ça

Code :

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

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

[trane51]

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