Bonsoir à tous
bof, tu doit sûrement avoir un problème, je suis sous 2013 et pourtant je peux afficher l'usf et voir le code.
Jess, l'initialisation de la combo est erronée
With Me.ComboBox1
ComboBox1.AddItem "Famille"
ComboBox1.AddItem "Amis"
ComboBox1.AddItem "Travail"
ComboBox1.AddItem "Autres"
End With
A corriger par
With ComboBox1
.AddItem "Famille"
.AddItem "Amis"
.AddItem "Travail"
.AddItem "Autres"
End With
Pour la numérotation, il faut déjà créer des entêtes ensuite mettre un boutton dans l'usf. Dans le bouton tu met
With Sheets("Clients")
lig = .Cells(Rows.count, "A").End(xlUp).Row + 1
.Cells(lig, "A") = lig - 1
.Cells(lig, "B") = Groupe(Famille ou Amis ou Tavail ou Autres)
.Cells(lig, "C") = Nom
.Cells(lig, "D") = Prénom
etc
End With
Et pour mieux visualiser les différents groupes et faire un tri, ajouter une ListBox.