Bjour le forum,
cela faisit lgtemps !
je documente des fiches via usf avec combobox.
j'initialise dans userform initialize mes combobox comme suit
cela fonctionne
Dans le cas ou je réouvre une fiche pour la modifier, j'initialize le contenu des combobox avec la valeur de la fiche, tjrs dans userform initialize
'Initialisation des valeurs de contrôle
Cela fonctionne.
Dans ce cas de modif, je voudrai que lorsque l'utilisateur clique sur la petite fleche du combobox, la liste des choix initiaux soit de nouveau disponible
j'ai essayé comme suit, mais cela ne fonctionne pas ! j'ai une liste vide
Par avance merci
@+
jf27
cela faisit lgtemps !
je documente des fiches via usf avec combobox.
j'initialise dans userform initialize mes combobox comme suit
Code:
Set Listetampon = ActiveSheet.Range("B5", ActiveSheet.Range("B65536").End(xlUp))
With stab
.List = Listetampon.offset.Value
End Withcela fonctionne
Dans le cas ou je réouvre une fiche pour la modifier, j'initialize le contenu des combobox avec la valeur de la fiche, tjrs dans userform initialize
'Initialisation des valeurs de contrôle
Code:
If modiffile = 1 Then
Sheets("data").Activate
ActiveSheet.Unprotect
For Each ctrl In UserFormNewFile.Controls
For colonne = 3 To 200
If ctrl.Name = Cells(4, colonne).Value Then
ctrl.Value = Cells(5, colonne).Value
End If
Next colonne
Next ctrlCela fonctionne.
Dans ce cas de modif, je voudrai que lorsque l'utilisateur clique sur la petite fleche du combobox, la liste des choix initiaux soit de nouveau disponible
j'ai essayé comme suit, mais cela ne fonctionne pas ! j'ai une liste vide
Code:
Private Sub OEM_Click()
Dim listetampon As Range
Sheets("categories").Activate
Set listetampon = ActiveSheet.Range("A2", ActiveSheet.Range("A65536").End(xlUp))
With OEM
.List = listetampon.offset.Value
End With
End SubPar avance merci
@+
jf27