Discussion :

[Lelldorin]

Bonjour le forum !

En bon débutant VBA que je suis, je me suis heurté à un problème que j'ai du mal à résoudre...
Je vais essayer de vous expliquer mon problèmes de manières la plus clair possible :
Mon projet est de faire une fonction de recherche pour trouver des données et afficher ces données dans plusieurs TextBox. J'ai réussi à faire la fonction recherche, il me trouve la donnée demandé, me donne la localisation (ex : $G$125), et me sélectionne la ligne où se trouve la donnée. Après il m'ouvre un nouvel Userform où là j'ai mes différentes TextBox (voir l'image ci dessous)


Chaques Textbox correspond à une colonne de mon classeur excel.
J'aimerais faire en sorte que les données des cellules s'affichent dans la textbox correspondant (par ex : Pour la première textbox, que la données de la colonne A et ligne x s'affiche, etc...)
J'ai trouvé ça sur internet, mais j'ai du mal à comprendre ce que ça fait (et ça n'affiche pas ce que je souhaite) :

Code :

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

Devicetxt = Range("A" & Cells(Rows.Count, 100).End(xlUp).Row)

Voila, n'hésitez pas à me demander pour plus d'infos, je vous remercie d'avance.

EDIT : Je viens de voir qu'il y a un sous forum pour VBA et Maccro, je refait le sujet dedans

[Invité]

Bonjour,

La formule ci-dessous va chercher la dernière ligne de la colonne 100 et affecte à la variable DeviceTxt, le contenu de la première colonne de la dernière ligne trouvée en colonne 100.

Code :

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

Devicetxt = Range("A" & Cells(Rows.Count, 100).End(xlUp).Row)

Pour votre programme, une fois trouvée la ligne correspondante, il vous suffit d'affecter les valeurs de vos TextBox avec les couples Lignes,Colonnes. Par exemple :

Code :

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

1
2
TextBox1 = ActiveSheet.cells(LigneTrouvee,ColA)
TextBox2 = ActiveSheet.cells(LigneTrouvee,ColB)

Où ColA, ColB, ... sont les colonnes de votre feuille que vous avez retenues pour alimenter votre UserForm.

Nb : L'image associée à votre message n'est pas visible.


Cordialement.