Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

[alex53]

Bonjour,
Apres avoir parcouru le forum, je n'arrive pas a trouver une reponse a ma question, qui je pense n'est pas difficile, mais je suis nouveau sur vba.
Je souhaite remplir mes textbox a partir de donnees presentes dans d autres onglets.
Pour l'instant je n arrive qu a afficher l onglet grace au code:

Private Sub CommandButtonProduct_Click()
Sheets("Product").Activate
End Sub

De plus j aimerais pouvoir naviguer dans l'onglet (exouvoir baisser la barre de defilement) quand le userform est ouvert,ce que je n'arrive pas a faire.

Voila un fichier simple qui resume mon probleme.

J'espere etre clair!
Merci pour votre aide

 

[CHALET53]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Bonjour,

rajoute le 0 (zéro) dans ta procédure

Sub MacroA()
'
' MacroA Macro
UserFormA.Show 0

'
End Sub

a+

 

[alex53]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Ok, Merci!

Une autre question: Est-ce que la fonction BeforeRightClick peut m'etre utile dans mon cas (pour simplement cliquer sur la cellule pour que les donnees se mettent automatiquement dans le textbox)?
Quand j ai fouille dans le forum pour resoudre mon probleme je suis tombe sur cette fonction, mais je ne suis pas sur de comprendre son fonctionnement et son utilite.
Si cette fonction est utile dans mon cas, merci de me mettre un petit exemple a partir de mon premier fichier.

Merci pour votre aide

 

[CHALET53]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Re,

Un petit exemple d'utilisation de Beforerightclick

Regarde le code associé à la feuille

Tu peux l'adapter en mettant une ligne du type :
userformA.textbox1.value=target.value

J'ai essayé ce code sur ton fichier, et il semble marcher pour la colonne A :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'Stop
With Target
a = Target.Value
End With
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
UserFormA.TextBox1 = a

End If
Application.ScreenUpdating = True
End Sub

 

[Dull]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Salut alex53 et Bienvenue, Chalet53, le Forum

Pas sur d'avoir compris mais avec l'événement Worksheet_BeforeDoubleClick cela peut faire l'affaire

Ex: sur l'USF ouvert Click sur le Bouton Product et double click sur un élément de la colonne A : l'élément sera inscrit dans la TextBox1
Click sur le Bouton AI et double click sur un élément de la Colonne A et l'élément sera inscrit dans la TextBox2
Ainsi de suite etc...
a tester

Bonne Journée

 

[alex53]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Bonjour Dull,
Je n arrive pas a ouvrir le fichier correctement.
Quel est le code que tu as rentre stp?

 

[Dull]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Re Alex, le Fil

Je remet les fichiers en Xls et Xlsm

Au gros les codes sont dans le Module de la feuille et ressemble à cela

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True: If Not Intersect(Target, [A:A]) Is Nothing Then UserFormA.TextBox1 = Target.Value
End Sub

Bonne Journée

 

[alex53]

Re : Userform: Remplir textbox a partir de donnees presentes dans d'autres onglet

Ca marche!! merci bcp!

Bonne journee