Aide pour Application.VLookup

Bonjour à tous :)

J'ai bon chercher, essayer plusieurs choses mais depuis hier rien ne fonctionne.

J'explique :

J'ai une feuille "facture"

en horizontale :
DA2 = janvier
DB2 = février
DC2 = mars
DD2 = avril
...

en vertical :
CZ3 (2018)
CZ4 (2019)
CZ5 (2020)
....
CZ35 (2050)


Dans le style de tableau ci dessus il m'affiche les montants facturées trier donc par mois et années.

Ensuite, dans mon Userform j'ai réaliser un tableau de bord pour afficher les mois en label (janvier - février etc...)
et des textbox en dessous qui m'affiche donc le montant facturé mois par mois (infos qu'il va donc devoir chercher dans la feuille "facture")

j'ai donc besoin d'un recherchev mais en vba donc d'après moi : Application.VLookup

J'ai le code suivant : TextBox126.Value = Resultat = Application.VLookup ICI JE BLOQUE, Range("CZ:CZ (pour rechercher l'année dans la colonne)"), 2, False)
Mais en début de code juste après Application.VLookup sur le net il donne le chemin d'une cellule sur feuille,
mais dans mon cas il doit rechercher l'année qu'il y à dans le Label53 dans la colonne CZ de la feuille facture et me renvoyer la valeur de la colonne DA (pour janvier)

Si quelqu'un à 5 minutes ... Merci à vous et bon dimanche :D

Bonjour,

Citation:

---

Envoyé par dgeo10

J'ai le code suivant : TextBox126.Value = Resultat = Application.VLookup ICI JE BLOQUE, Range("CZ:CZ (pour rechercher l'année dans la colonne)"), 2, False)

---

Ce devrait plutôt être :

Code:

---

TextBox126.Value = Application.VLookup(Label53.Caption, Range("CZ:DA"), 2, False)

---

Citation:

---

Le "2" à la fin du code à quoi sert'il ?

---

Tu devrais simplement consulter l'aide sur la fonction RECHERCHEV

Merci,
pour le test je l'ai codé sur un bouton :

Code:

---

1 2 3 4

Private Sub B_valid_click() TextBox126.Value = Application.VLookup(Label53.Caption, Worksheets("Facture").Range("CZ:DA"), 2, False)   End Sub

---

Mais erreur : impossible de définir la propriété Value. Le type ne correspond pas.

Bonjour,

Un textbox, selon moi, est fait pour "encoder" des valeurs au départ, vu qu'ici il s'agit dans recevoir, il eut été plus opportun d'utiliser un Label.

Quel est le résultat du vlookup ? Peut-être celui renvois une erreur ?

Oui le vlookup envoie une erreur avec le code de "anasecu"
erreur : impossible de définir la propriété Value. Le type ne correspond pas.

dgeo10,

C'est assez compliqué de te répondre sans plus d'infos que le code ne fonctionne pas.
Pourrais-tu au pire deposer ici, le code complet et capture d'écran de la table.

Ou déposer ton fichier, peu de membre les ouvrent, mais je l'ouvrirai (une machine virtuelle dédiée)

merci à toi le voilà
Pour l’alléger un rien j'ai supprimer quelques pages inutile pour le code.
raccourci pour sortir de l'usf qui se lance au démarrage (clic sur de l'habitat en bleu)

c'est l'USF5 en question il n'y à pas de mise en page et des choses en trop mais ne gêne pas le codage j'arrangerais cela après.

voilà :) MERCI :D

Pièce jointe 544045

Comment dire heu,

j'ai testé , le CountIf, le Match,le VlookUp et rien ne fonctionne ...

Cependant, ton projet me semble bien lourd à digérer, ainsi que la construction de tes multiples Userform pour retranscrire/afficher le contenu de tes feuilles.

Tu devrais peut-être repenser ton projet, utilisation de tableaux structurés , remplacement de tes x textBoxes du usf5 par une listbox, éviter les Cellules fusionnées qui ne sont que des nids à m*****...

Tu me sembles assez structuré, dans ta manière de visualiser les choses, que pour aboutir à quelque chose de très aboutis et viable, il ne te manque pas grand chose que pour nous sortir un outils de tonnerre :D

Un petit Tuto tableaux structurés , et la bonne manière de coder un userform, dispo sur ce Forum et hop, le tour sera joué.

Merci à toi d'avoir regarder, je peut éventuellement mixer l'idée d'une listbox et quand je clic sur la ligne de l'année que je veux qu'il recopie les infos dans des textbox en dessous afin de ma calculer ma moyenne, etc etc etc
Mais bon de cette façon l'utilisation est plus longe, bien dommage que je n'arrive pas à afficher les infos dans mes textbox :/
Mon programme à été fait plic ploc mais cela fait maintenant +/- 3 ans qu'il fonctionne à merveille jamais de bug, ni rien en tout cas en programme sur mesure il me convient.
Je vais encore un peut me tirer les cheveux pour réussir à faire cette fonction.

merci à toi

Je viens de chercher une petite heure et pour ceux qui recherchent la réponse la voici pour ma part maintenant ça fonctionne :D

Code:

---

Me.TextBox126.Value = Application.WorksheetFunction.VLookup(CDbl(Me.Label53), Worksheets("Facture").Range("CZ:DA"), 2, False)

---

;)