Discussion :

[guillaumeboutarel]

Bonjour à tous,

J'essaie de mettre en place pour la nouvelle entreprise pour laquelle je travaille une fonction sur VBA d'Excel. Cependant, après de multiples essais, je n'arrive pas à la faire marcher !

Voici la formule que j'ai entré :

Code :

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

1
2
3
4
5
Function base_mensuelle_2_10%()
 
base_mensuelle_2_10% = Application.WorksheetFunction.VLookup(Sheets(14).Name, Sheets("RECAP ANNUEL 2018").Range("A7:Q18"), 3, 0)
 
End Functio

Sur chacune des feuilles (1 à 12) j'ai le même tableau mais pour un mois différent. La première feuille est nommée "01", la deuxième "02", etc. Sur la feuille 14, j'ai un récap annuel avec un mois pas ligne (ex: A7 --> 01 ; A8 --> 02 ; etc.). Je souhaiterai que dans la feuille du mois de Janvier (nommée "01"), la fonction aille chercher grace à Vlookup le nom de la feuille dans le tableau récap feuille 14 pour trouver ensuite la base mensuelle à 2.10% qui se trouve dans la troisième colonne du tableau (rentrée manuellement).

Je vous remercie par avance de votre aide,

Bonne journée,

Guillaume.

[parmi]

Bonjour,

À quel endroit est cette formule?
Je crois comprendre qu'elle est sur chaque feuille (01 à 12)

Il faudrait alors écrire

Code :

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

base_mensuelle_2_10% = Application.WorksheetFunction.VLookup(Activesheet.Name, Sheets("RECAP ANNUEL 2018").Range("A7:Q18"), 3, 0)

[guillaumeboutarel]

Merci parmi pour cette aide.

À quel endroit est cette formule?

La formule est en effet sur chacune des feuilles (01 à 12).

Après avoir réécris la formule donnée, j'ai toujours le même message d'erreur 1004:

Impossible de lire la propriété Vlookup de la classe WorksheetFunction.

...

Je ne vois d'ailleurs pas pourquoi la formule ne fonctionne pas puisqu'elle paraît bonne. J'ai même essayé de remplacer "ActiveSheet.Name"par "01" mais la formule ne fonctionne toujours pas ...

[jerome.vaussenat]

Salut,

Voici deux variantes. Apparemment, c'est la Worksheetfunction qui pose problème. J'ai déjà vu çà par le passé.

J'ai fait des essais, et j'ai bien un résultat.

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
    Dim plage As Range
    Dim nom As String
 
    nom = ActiveSheet.Name
    Set plage  = Sheets("RECAP ANNUEL 2018").Range("A7:Q18")
    tutu = Application.VLookup(nom , plage , 3, False)
End Sub

Code :

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

1
2
3
Sub toto3()
    tutu = Application.VLookup(ActiveSheet.Name, Sheets("RECAP ANNUEL 2018").Range("A7:Q18"), 3, False)
End Sub

La première en utilisant des variables. l'autre sans comme ta version.

Dis nous ce que cela donne chez toi.

[guillaumeboutarel]

Bonjour Jerome,

Je viens d'essayer et la première fonction fonctionne !

Merci beaucoup de ton aide,

Bonne journée

[joe.levrai]

Bonjour,

de mémoire, en passant par la classe WorksheetFunction, il est impératif que le paramètre optionnel "Valeur Proche" (le quatrième) soit muni d'un vrai argument Booléen (True/False) au lieu de son équivalent numérique (0 pour False dans le cas présent)