Activation Combobox
Bonjour tout le monde,
J'ai créé un formulaire dans lequel se trouvent :
Une combobox,
Un bouton OK
Un bouton Annuler.
Le code de la combobox est le suivant :
Private Sub ComboBox1_Change()
End Sub
Cependant lorsque je clique sur la fèche de la combobox les données n'apparaissent pas. Il est nécessaire que je tape un chiffre pour les données apparaissent et que je puisse sélectionner (dans mon cas) un code produit fini.
J'ai bypassé le pb en ajoutant du ControlTipText qui dit "Pour activer la zone de saisie taper 0" mais je suis sur qu'il existe une astuce pour que les données se chagent automatiquement.
Merci de votre aide.
Bonjour,
Je te conseille d'éviter le Rowsource et préfère lui plutôt le ADDITEM qui te ne te prosera pas de souci.
Un genre de code comme:
Private Sub UserForm_Initialize()
'Macro Dan
Dim i As Integer
For i = 11 To Sheets("Données").Range("A65536").End(xlUp).Row
With ComboBox1
.AddItem Sheets("Données").Range("A" & i)
End With
Next
End SubEventuellement, mets ton fichier ce sera plus facile.
A te relire
Dan
Et le miracle est arrivé...Ca fonctionne du premier coup.
Merci beaucoup de votre aide et un excellent we.