Remplir texbox automatiquement

[Sandy_Sancho]

Bonjour
J’ai fait se code code pour remplir une textbox d’un userform en allant chercher la donnée dans un onglet « droits » sur la cellule B3
Private Sub UserForm_change()
Cobnomsal = Sheets(« Gestion des accès »).Range(« B3 »).Value
End Sub
sa me marque aucune erreur mais la donnée ne s’affiche pas dans la textbox
Si quelqu’un a une solution ?
Merci d’avance

[Mimimathy]

Bonsoir,

@Sandy_Sancho

Private Sub UserForm_change()

Cela veut dire, « si tu changes d’Userform »
teste plutôt

Private Sub Cobnomsal_change()

mais sans savoir comment se nomme vraiment le textbox, ou combobox, ou autres

je verrais plus dans le style (à savoir qu’il faudra changer le nom du textbox et du combobox)

Private Sub Combobox_change()
TextBox = Sheets(« Gestion des accès »).Range(« B3 »).Value
End Sub

[Robert]

Bonjour le fil, bonjour le forum,

Peut-être à l’initialisation de l’UserForm, comme ça :

Private Sub UserForm_Initialize()
Me.Cobnomsal.Value = Sheets("Gestion des accès").Range("B3").Value
End Sub