ComboBox Ajouter supprimer

Riri, le forum

A titre d'exemple :

Private Sub ComdQuitter_Click()
Unload Me
End Sub

Private Sub ComdValider_Click()
With Range("A65536").End(xlUp)(2)
.Offset(0, 0).Value = UserForm1.ComboBox1.Value '
End With
End Sub

Private Sub UserForm_Initialize()
Sheets("feuil1").Activate
Range("A2").Select

End Sub

A rajouter dans ton UserForm, J'ai gardé le nom de tes controls et pensé que tes données allée en feuille 1 a partire de A2

Salut, G'Claire

Bonsoir G'Claire

En fait je voudrais ajouter et supprimer directement dans la combo sans passer par une feuille.Tu vois ce que je veut dire.

Merci encore pour ton aide

@+ Riri

Bonjour le forum
Bonjour Riri & G'Claire


@ ++ Eric C

Bonjour Eric C,

Merci pour ton aide , c'est exatement ce qu'il me fallait.

Encore Merci .

@+ Riri .