Problème vba "vlookup"

job75

XLDnaute Barbatruc

• 2 Juillet 2008

• #2

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+

 

Vote positif 0 Vote négatif

B

Bad_Dream

Guest

• 2 Juillet 2008

• #3

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 :/

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2008

• #4

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+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Juillet 2008

• #5

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 ?

 

Vote positif 0 Vote négatif

B

Bad_Dream

Guest

• 2 Juillet 2008

• #6

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Juillet 2008

• #7

Re : Problème vba "vlookup"

sans un bout de fichier exemple...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2008

• #8

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2008

• #9

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+

 

Dernière édition: 2 Juillet 2008

Vote positif 0 Vote négatif

B

Bad_Dream

Guest

• 2 Juillet 2008

• #10

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

 

Pièces jointes

• test.xls

  26.5 KB · Affichages: 147
• test.xls

  26.5 KB · Affichages: 150
• test.xls

  26.5 KB · Affichages: 146

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2008

• #11

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+

 

Vote positif 0 Vote négatif

B

Bad_Dream

Guest

• 3 Juillet 2008

• #12

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2008

• #13

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+

 

Vote positif 0 Vote négatif

B

Bad_Dream

Guest

• 3 Juillet 2008

• #14

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2008

• #15

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+

 

Vote positif 0 Vote négatif