Discussion :

[Trystan441]

Bonjour à tous,

Je planche depuis un petit moment maintenant sur le point suivant :

J'ai deux feuilles de calculs :

1ère feuille : 9.000 références produits
2ème feuille : Prévision de vente sur 90.000 lignes

Dans les prévisions de ventes, l'ensemble des 9000 références ne sont pas présentes. Je cherche donc à mettre en évidence celles qui y sont.
Pour cela, j'utilise la fonction VlookUp de WorksheetFunction qui me retourne simplement la référence du produit recherché. Cependant, lors de la mise en marche, erreur d'exécution 1004...
Impossible de trouver la solution

J'ai essayé d'utiliser la fonction Find mais sans résultat (certainement une erreur de syntaxe que je n'ai pas réussi à corriger malgré l'aide de MS)

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub RechercheV_Ref
 
Ligne = Feuil2.range("A13:A" & Rows.Count).End(xlDown).Row
 
For Ligne = 2 To Ligne
 
    Worksheets("Feuil2").Cells(Ligne, 7) = Application.WorksheetFunction.VLookup(Sheets("Feuil2").range(Cells(Ligne, 8)), _
    Sheets("Feuil1").range("B13:B9000"), 1, False)
 
Next
 
End Sub

Y a-t-il une explication logique dans ce morceau de code ?

Ps : Je souhaite continuer par VBA afin d'inscrire cette procédure dans un programme.

Bonne journée,

Trystan

[MarcelG]

Bonjour,

Plusieurs choses.
1 - Pour définir une dernière ligne, il est plus prudent de partir de la dernière cellule de la feuille de travail en remontant
2 - Coder

Code :

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

For Ligne = 2 To Ligne

me semble illogique et dangereux (utilisation double de la même variable).
3 - L'argumentation de la fonction VLookUp me semble bizarre.
Je te conseillerais de l'écrire sur Excel tableur en utilisant l'enregistreur de macro .

[Trystan441]

Bonjour Marcel,

Merci pour ta rapidité de réponse,

1 - Pourquoi est-ce plus prudent de partie de la dernière ligne ? Cela ne revient-il pas au même de partir de la première ?

2 - Comment puis-je faire pour créer une boucle jusqu'à la dernière ligne ? Créer une deuxième variable "i" par exemple ?

3 - J'ai suivi ton conseil et maintenant ça marche parfaitement ! Merci beaucoup

[MarcelG]

Salut,

Pourquoi est-ce plus prudent de partie de la dernière ligne ? Cela ne revient-il pas au même de partir de la première ?

Certes cela revient au même de partir de la 1ère dans 80% des cas.
Mais partir de la dernière ligne de la feuille est plus prudent car les cellules vides inopinées sont ignorées.
Tu peux tester.

Comment puis-je faire pour créer une boucle jusqu'à la dernière ligne ? Créer une deuxième variable "i" par exemple ?

Ta méthode est bonne mais mal argumentée.

Code :

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

1
2
Dim i as Integer
For i = ... to Ligne

i doit bien entendu être déclarée en même type de variable que Ligne (du fait de l'égalité).

A ce sujet, toujours déclarer les variables. Ce autrement qu'en Variant.
Cette déclaration peut être rendue obligatoire par le menu Options de l'éditeur VBE.
Dès lors, la ligne de code

Code :

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

Option Explicit

apparaîtra en en-tête de tout nouveau module.

J'ai suivi ton conseil et maintenant ça marche parfaitement ! Merci beaucoup

D'accord.
Tu peux améliorer ton code en adaptant les remarques ci-dessus.
Dès lors que celui-ci sera effectif, tu pourras placer cette discussion en mode "Résolue".

Bonne continuation.

[Philippe Tulliez]

Bonjour,
Etant donné le contexte, j'opterais pour l'écriture de la formule dans la colonne concernée et ensuite conserver sa valeur. Bien plus intéressant qu'une boucle

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub T()
 Const myFormula As String = "=VLOOKUP(G13,Feuil1!$A$2:$C$13,2,FALSE)"
 Dim LastRow As Long
 LastRow = 20
 With Feuil2.Range("H13:H" & LastRow)
 .Formula = myFormula ' Ecriture de la formule
 .Value = .Value      ' Equivalent du Copier/Collaghe spécial.valeur
 End With
End Sub

[MarcelG]

Salut Philippe,

Content de te retrouver.

En effet.
Au vu du code, je craignais que la référence à la ligne 13 se répète.
Ce n'est pas le cas.
Bien vu.