Discussion :

[mimi123456789]

Bonjour,

Je suis confrontée a un problème, je n'arrive pas a utiliser la fonction:VLookup dans VBA.
J'ai essayé avec application aussi mais çà ne fonctionne pas! :-(
Erreur suivante: erreur 1004

Voici le code:

Code :

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

axywm1 = (1 - ageDateCalcul_mois) * WorksheetFunction.VLookup(ageDateCalcul_annee, Sheets("B").Range("H"), a + 2, False) + (ageDateCalcul_mois) * WorksheetFunction.VLookup(ageDateCalcul_annee + 1, Sheets("B").Range("H"), a + 2, False) + (ageDateCalcul_mois) * WorksheetFunction.VLookup(ageDateCalcul_annee + 1, Sheets("B").Range("H"), a + 2, False)

Il me renvoie axywm1=0 ou bien valeur alors qu'il y a bel est bien une valeur dans axywm (lorsque je décompose l'équation j'obtiens une réponse).

Est-ce que qelqu'un pourrait m'aider?
Je vous remercie d'avance!

[gFZT82]

Bonjour,

Tu peux essayer de segmenter ton expression afin de mieux cibler le problème

Code :

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

1
2
3
4
5
6
Sub Test2()
    var1 = ageDateCalcul_mois
    var2 = Application.VLookup(ageDateCalcul_annee, Sheets("B").Range("H"), a + 2, False)
    var3 = Application.VLookup(ageDateCalcul_annee + 1, Sheets("B").Range("H"), a + 2, False)
    axywm1 = (1 - var1) * var2 + var1 * var3 + var1 * var3
End Sub

Cordialement.

[mimi123456789]

Merci beaucoup mais j'ai essayé et ca ne fonctionne toujours pas. Y a t il qqch de particulier à faire lors de l'utilisation de Vlookup? la syntaxe est-elle correcte?

[gFZT82]

Tu écris

Code :

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

Sheets("B").Range("H")

Cela correspond bien à une feuille nommée "B" et une plage nommée "H" ?

[mimi123456789]

oui tout a fait.

J'ai décomposé le calcul:
axywm1 = (1 - ageDateCalcul_mois) * x1 + (ageDateCalcul_mois) * x2
résultat j'ai bien une valeur dans ageDateCalcul_mois et dans x1 et x2 mais j'obtiens axywm1 =0 alors que ca ne devrait pas être le cas.
J'ai vérifier les dimensions de chaque variable.

Merci pour votre aide!

[gFZT82]

Et pourtant, si erreur il y a, elle ne vient pas du calcul.
Fais le test suivant en adaptant les valeurs de tes variables

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim axywm1, ageDateCalcul_mois, x1, x2
    ageDateCalcul_mois = 25
    x1 = 2
    x2 = 4
    axywm1 = (1 - ageDateCalcul_mois) * x1 + (ageDateCalcul_mois) * x2
    MsgBox "axywm1 : " & axywm1
End Sub

Cordialement.