Bonjour,
Dim a()
Private Sub UserForm_Initialize()
a = [CLIENTS].Value
Me.ComboBox1.List = a
SendKeys "{F4}"
End Sub
Type: Messages; Utilisateur: boisgontierjacques
Bonjour,
Dim a()
Private Sub UserForm_Initialize()
a = [CLIENTS].Value
Me.ComboBox1.List = a
SendKeys "{F4}"
End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.