Problème vba "vlookup"

[Bad_Dream]

Bonjour, je suis vraiment débutant en toute forme de codage, et je dois faire une sorte de maccro sur vba... mais ca cloche! Est ce que qqn pourrait m'expliquer ce qui ne va pas avec le programme suivant? Merci

Private Sub CommandButton1_Click()
Dim a As Long
Dim k As Long



a = 1
For k = 9 To 2701 'liste des cases de c/c
If Worksheets("cc").Cells(k, 1) <> "" Then 'si les cases ne sont pas vides
a = a + 1 'le a permet de ne pas s'aligner sur les liges du feuillet cc
Worksheets("vba").Cells(a, 1) = Worksheets("cc").Cells(k, 1) 'c/c
Worksheets("vba").Cells(a, 2) = Worksheets("cc").Cells(k, 2) 'Machines
Worksheets("vba").Cells(a, 3) = WorksheetFunction.VLookup(Worksheets("vba").Cells(a, 1), Range(Worksheets("cc").Cells(2701, 1), Worksheets("cc").Cells(2701, 3)), 3) (<= le problème semble être sur cette ligne) End If
Next k




End Sub



Merci d'avance

 

[job75]

Re : Problème vba "vlookup"

Bonjour,
- Perso, j'écris plutôt : Application.VLookup()
- je ne sais pas ce que vous voulez que la fonction vous renvoie, mais ajoutez peut-être l'argument 0 : ......)), 3, 0)
A+

 

[Bad_Dream]

Re : Problème vba "vlookup"

Je souhaite que a partir d'un onglet apellé "cc", inscrire certaines de ces valeurs ds un autre onglet "vba". Pr les deux premiers colonnes ca marche, mais pour la troisieme (faisant intervenir une recherche), malheuresement non.
Sinon merci pour ta réponse mais aprés essai cela ne marche tjs pas :/

 

[job75]

Re : Problème vba "vlookup"

Essayez peut-être : Worksheets("vba").Cells( a, 1).value
Qu'y a t-il dans ces cellules, des nombres ?
A+

 

[tototiti2008]

Re : Problème vba "vlookup"

bonjour à tous,

sur un autre fil on avait pu observer que vlookup avait beaucoup de mal à faire des recherches sur des dates sans utiliser un CLng.
S'agit-il der recherche à partir de date, ici ?

 

[Bad_Dream]

Re : Problème vba "vlookup"

re,
Non du texte seulement (enfin des cellules au format texte)
Et ca ne marche pas avec .value :s (erreur 1004).
Merci

 

[tototiti2008]

Re : Problème vba "vlookup"

sans un bout de fichier exemple...

 

[job75]

Re : Problème vba "vlookup"

OK, je ne vois pas, mais pour rechercher du texte il faut effectivement mettre le 3ème argument 0.
A+

 

[job75]

Re : Problème vba "vlookup"

Si la recherche n'aboutit pas, la fonction renvoie une valeur d'erreur et la macro s'arrête, à moins de mettre en tête de macro : On Error Resume Next
A+

 

[Bad_Dream]

Re : Problème vba "vlookup"

J'ai créé un fichier type avec en commentaire de la macro ce que souhaiterais obtenir.
Merci de vos diverses réponses, mais cela ne fonctionne toujours pas. J'espere que le fichier ci-joint pourra vous éclairer sur ce que je souhaiterais

 

[job75]

Re : Problème vba "vlookup"

Bonsoir,

Nous avons oublié une chose sur la fonction VLookup/RECHERCHEV, c'est que la recherche de la valeur se fait sur la 1ère colonne de la plage/matrice (voir l'aide)...
Donc ici cette fonction n'est pas adaptée au problème.
Voici une solution qui utilise la fonction Match (EQUIV) :

Private Sub CommandButton1_Click()
Dim a As Long
Dim k As Long
Dim test As Byte
On Error Resume Next
a = 1
For k = 9 To 2701 'liste des cases de c/c
If Worksheets("cc").Cells(k, 1) <> "" Then 'si les cases ne sont pas vides
a = a + 1 'le a permet de ne pas s'aligner sur les liges du feuillet cc
Worksheets("vba").Cells(a, 1) = Worksheets("cc").Cells(k, 1) 'c/c
Worksheets("vba").Cells(a, 2) = Worksheets("cc").Cells(k, 2) 'Machines
test = 0
test = Application.Match(Worksheets("vba").Cells(a, 1), Worksheets("cc").Range("A2701:C2701"), 0)
If test Then Worksheets("vba").Cells(a, 3) = Worksheets("cc").Cells(2701, 3)
End If
Next k
End Sub

Ou plus simplement, "vba" étant la feuille active :

Private Sub CommandButton1_Click()
Dim a As Long, k As Long, test as Byte
On Error Resume Next
a = 1
For k = 9 To 2701 'liste des cases de c/c
If Sheets("cc").Cells(k, 1) <> "" Then 'si les cases ne sont pas vides
a = a + 1 'le a permet de ne pas s'aligner sur les liges du feuillet cc
Cells(a, 1) = Sheets("cc").Cells(k, 1) 'c/c
Cells(a, 2) = Sheets("cc").Cells(k, 2) 'Machines
test = 0
test = Application.Match(Cells(a, 1), Sheets("cc").Range("A2701:C2701"), 0)
If test Then Cells(a, 3) = Sheets("cc").Cells(2701, 3)
End If
Next
End Sub

A+

 

[Bad_Dream]

Re : Problème vba "vlookup"

Merci beaucoup je penses que c'est qqchose comme ca, mais malheuresmeent cela me donne juste le résultat sur la derniere ligne de mon onglet vba, correspondante a la ligne 2701 3eme colonne. Je penses donc qu'il y a une erreur ds la déclaration de range.
Mais qd je remplace
test = 0
test = Application.Match(Worksheets("vba").Cells(a, 1), Worksheets("cc").Range("A2701:C2701"), 0)
If test Then Worksheets("vba").Cells(a, 3) = Worksheets("cc").Cells(2701, 3)
par
test = 0
test = Application.Match(Worksheets("vba").Cells(a,3).Cells(a,1),Worksheets("cc").Range("A1:C2701);0)
If test Then Worskheets("vba").Cells(a,3)=Worksheets("cc").Cells(2701,3)

Cela ne marche toujours pas.
En tout cas merci pour l'aide !

 

[job75]

Re : Problème vba "vlookup"

Bonjour Bad Dream,
Pour le calcul de test, j'ai bien sûr essayé de comprendre ce que vous vouliez faire à partir de la formule de votre 1er message. Dites nous donc maintenant avec précision :
- quelle valeur vous recherchez
- dans quelle plage de "cc"
- quelle valeur vous voulez donner à la cellule Cells(a, 3)
A vous (re)lire et A+

 

[Bad_Dream]

Re : Problème vba "vlookup"

J'ai finalement résolut mon problème en imbriquant plusieurs fonctions lookup. Merci pour votre aide je reviendrais!
A+

 

[job75]

Re : Problème vba "vlookup"

Content pour vous, mais on aimerait bien connaître votre solution ou avoir une réponse à mes question. Le forum n'est pas un supermarché... A+