Discussion :

[Jeremy.ch]

Bonjour, comme j'effectue un traitement sur une BDD de 36700 lignes il faut que je passe à la programmation VBA car excel commence à me ralentir.
Je souhaite effectuer une fonction recherchev simple telle que mon code VBA est le suivant:

Code :

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

1
2
3
4
5
Sub test()
With Sheets("drives_parsed")
    .Range("G5:G1333").Value = WorksheetFunction.VLookup(.Range("D5:D1333").Value, Sheets("COM").Range("B37;B36700"), 2, False)
End With
End Sub

Néanmoins il y a une erreur que je n'arrive pas à déboguer, avez vous une idée?

Ensuite je souhaite faire une boucle qui me permettrait d'enchainer un traitement tel que:

Code :

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

1
2
3
4
5
Sub test()
With Sheets("drives_parsed")
    .Range("G5:G1333").Value = WorksheetFunction.VLookup(.Range("D5:D1333").Value, Sheets("COM").Range("B37;B36700"), 2, False)
End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
Sub test()
With Sheets("drives_parsed")
    .Range("H5:H1333")   'on décalle d'une colonne

.Value = WorksheetFunction.VLookup(.Range("D5:D1333").Value, Sheets("COM").Range("B37;B36700"), 3, False) ''on décalle d'une colonne
End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Option explicit
Sub test()
With Sheets("drives_parsed")
    .Range("I5:I1333").Value = WorksheetFunction.VLookup(.Range("D5:D1333").Value, Sheets("COM").Range("B37;B36700"), 4, False)
End With
End Sub


'................................ect jusqu'à EP (soit colonne 147) pour la feuille "drive_parsed" et 147 pour le n° de colonne de la fonction .Vlookup pour la feuille ("com")

Ce qui equivaut en excel à

Code :

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

INDEX(COM!D$37:D$36700;EQUIV($D$5:$D$1333;COM!$B$37:$B$36700;0))))

Voilà je vous remercie par avance pour me donner des pistes.
Jérémy

[had4789]

Bonjour,

Certes il y a une erreur mais encore... Nous ne pouvons pas deviner ton erreur si tu ne nous en dis pas plus.

Pour résoudre ton erreur utilise l'enregistreur de macro. Tu refais ta procédure et tu auras un code sans erreur.

Pour le reste je pense que tu peux adapter le code de ce post :

http://www.developpez.net/forums/d14.../matrices-vba/

Si tu as besoin n'hésites pas.

[Philippe Tulliez]

Bonjour,
Lorsque tu écris

Néanmoins il y a une erreur que je n'arrive pas à déboguer, avez vous une idée?

Il serait intéressant voir indispensable que tu communiques le n° et le message de l'erreur ainsi que le n° de la ligne où cela s'est produit.
Toutefois pour ton premier code comme le nombre de lignes est insignifiant, il est relativement facile d'imaginer que l'erreur à eu lieu à la ligne 3

Code :

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

.Range("G5:G1333").Value = WorksheetFunction.VLookup(.Range("D5:D1333").Value, Sheets("COM").Range("B37;B36700"), 2, False)

On ne peut pas renvoyer le résultat d'une formule dans une plage de cellules mais dans une seule cellule (voir Range("G5:G1333").Value=)
Dans la formule VLookup également il y a un souci. Le premier argument de la formule doit être la référence à une seule cellule et le deuxième argument n'est pas non plus correct Range("B37;B36700") et forcément le 3ème argument (la constante 2) n'est pas non plus correct puisque tu n'as pas plusieurs colonnes dans le tableau que tu références
Connais-tu la syntaxe de la formule RECHERCHEV ?
Utilise l'enregistreur de macros pour commencer à programmer
[EDIT]
A lire Fonctions Excel à la loupe : N°1 - RECHERCHEV()

[had4789]

Rebonjour,

Philippe, l'erreur ne vient-elle pas aussi du fait qu'il manque un "Application" dans le code?

[Philippe Tulliez]

Bonjour,

l'erreur ne vient-elle pas aussi du fait qu'il manque un "Application" dans le code?

Non, ce n'est pas obligatoire, cette ligne de code fonctionne

Code :

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

MsgBox WorksheetFunction.Count(Range("D2:D5"))