Vlookup sur variable : Erreur 424 Résolu

Question

Bonjour,
Je suis novice en VBA et j'ai beau chercher, je n'avance plus.
J'ai un onglet avec des lignes de détail de commandes et entre autres un montant associé, je veux donc créer un onglet qui me donne pour chaque numéro de commande son total (une ou plusieurs lignes de détail).
Je pensais utiliser Do While avec For each pour tenir compte de la possibilité (fréquente) de plusieurs lignes de détail pour une commande, mais je suis de toute façon restée bloquée à la phase antérieure. Qu'est-ce que je fais mal ?
Si quelqu'un peut m'aider, ce serait vraiment très sympa, merci d'avance

Voici mon code :

Option Explicit

Sub essai_totaux()

Application.DisplayAlerts = False

Dim Sh As Worksheet

Dim cdes As Range
Dim cde As Range

Set cdes = Worksheets("Récap").Range("a1").CurrentRegion.Resize(Worksheets("Récap").Range("a1").CurrentRegion.Rows.Count - 1, 1).Offset(1)
cde = Application.Min(Worksheets("Détails").Range("a:a")).Value

For Each Sh In Worksheets
    If Sh.Name = "Récap" Then
    Sh.Delete
    End If
Next

Sheets.Add(after:=Worksheets("Détails")).Name = ("Récap")

Worksheets("Détails").Activate
Columns("A:A").Copy Worksheets("Récap").Range("a1")
Worksheets("Récap").Range("a:a").RemoveDuplicates Columns:=1, Header:=xlYes
       
For Each cde In cdes

Worksheets("Récap").Cells(cde.Row, 2).Value = Application.VLookup(cde, Worksheets("Détails").Range("a:h"), 8, False)

Next cde

Application.DisplayAlerts = True

End Sub



EDIT : Ajout des balises de code.

jordane45 · Answer

Bonjour,
Je n'ai pas testé ton code.. mais déjà il me semble que tu as omis : WorkSheetFunction devant ton Vlookup

Application.WorksheetFunction.VLookup(cde.value, Worksheets("Détails").Range("a:h"), 8, False)

pijaku · Answer

Bonjour Marmotte, Jordane45,

Oula!
Pas mal d'erreurs. 

Commençons par le début :
Tu déclares Cde As Range et après tu cherches à lui attribuer une valeur numérique avec la fonction Min...
Pas bon!

La ligne :
cde = Application.Min(Worksheets("Détails").Range("a:a")).Value
ne te sers à rien???
Si oui, supprimes là.

En plus elle est totalement fausse et ne te renverra qu'un message d'erreur.


Ensuite, plutôt que d'utiliser Application.WorkSheetFunction(blablabla), je te recommande l'utilisation de la méthode Evaluate en VBA. Plus simple, super maniable, beaucoup plus compréhensible.

Par exemple, pour calculer la minimum de la colonne A :

Dim monMini As Double
monMini = Evaluate("MIN(A:A)")

Difficile de faire plus simple...
Ah si! En utilisant une autre écriture de la méthode Evaluate, les crochets :

Dim monMini As Double
monMini = [MIN(A:A)]

Nota : lorsque l'on écrit la méthode Evaluate dans sa syntaxe complète (Evaluate("blabla")), son argument doit être de type String. Pas dans son écriture simplifiée. D'où l'absence des guillemets dans monMini = [MIN(A:A)] et leur présence dans Evaluate("MIN(A:A)")...

pijaku · Answer

Bon, je supposes que les réponses à mon dernier commentaires sont oui...

Tout simplement, avec VLookup, tu étais hyper mal partie.
Pour réaliser ta récap, rien de mieux qu'un objet dictionnary.
Utilisé comme ceci :

Sub Calcul_Toto()
Dim myDico As Object, Tb(), i As Long
'création de la feuille Récap
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Récap").Delete
On Error GoTo 0
Sheets.Add(after:=Worksheets("Détails")).Name = ("Récap")
Application.DisplayAlerts = True
'entêtes de colonnes de la feuille Récap
With Sheets("Détails")
    .Range("A1").Copy Sheets("Récap").Range("A1")
    .Range("H1").Copy Sheets("Récap").Range("B1")
    'récolte des données
    Set myDico = CreateObject("Scripting.Dictionary")
    Tb = .Range("A2:H" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With
'calculs sous totaux
For i = LBound(Tb, 1) To UBound(Tb, 1)
    myDico(Tb(i, 1)) = myDico(Tb(i, 1)) + Tb(i, 8)
Next i
'Restitution dans la feuille Récap
With Sheets("Récap")
    .[A2].Resize(myDico.Count, 1) = Application.Transpose(myDico.keys)
    .[B2].Resize(myDico.Count, 1) = Application.Transpose(myDico.items)
End With
End Sub
 
 
&#127932; Cordialement,
Franck &#127926;

Miss_marmotte · Answer

Bonjour Pijaku,

Désolée, je ne reçois plus les alertes indiquant un nouveau message et je n'ai donc pas vu ta question.
Je viens de faire tourner ton code et c'est effectivement exactement cela que je voulais. Je t'en remercie infiniment.
En revanche, je t'avoue que je ne comprends pas grand chose pour l'instant à la nouvelle partie de code, n'ayant jamais entendu d'un objet dictionary notamment.
Je vais donc travailler tout ça et je me permettrai de revenir vers toi si j'ai encore des questions.
Aurais-tu un manuel ou un site à m'indiquer pour approfondir mes connaissances sur Excel VBA ?
Merci encore.
Bien cordialement

Vlookup sur variable : Erreur 424

4 réponses

Discussions similaires

Newsletters