Private Sub CommandButton2_Click()
Dim derlig As Long, plage As Range
Unload Me
Ajout_contact.Show
With Sheets("Pays")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
Set plage = .Range("a2:a" & derlig)
plage.Sort .Range("a2"), xlAscending
tbl = .UsedRange
For i = 2 To UBound(tbl)
If tbl(i, 1) <> "" Then Ajout_contact.ComboBox_Pays.AddItem tbl(i, 1)
Next i
End With
End Sub
Je ne comprends pas tes remarques !@JM: c'est qu'avec toutes ces demandes, j'ai fait cela à la hâte. Mais il manque la mise à jour de la combo. Si tu ajoute par exemple Abdelkaden, on le vois à la fin de la liste. Moi je l'avais fait dans le fichier avec le formulaire pays.
Oh Super JM27 c'est moi qui n'ai pas bien compris vos réponses. Top Je ne savais pas qu'il est possible de saisir dans une liste déroulante.Bonjour
Mais si tu tapes ce nouveau pays dans la combo box , cela marchera.
Pourquoi utiliser une text box ; une combo box à le même rôle dans ce cas mais présente un avantage certain: elle contrôle si le pays existe déjà dans la liste.
et pourquoi utiliser un deuxième userform ; alors que le premier le fait.
vraiment tu te compliques la vie inutilement.
MerciPour ton info:
en modifiant les propriétés liées à la combo box , on peut ou pas inscrire des nouvelles données dans celle ci (voir propriété style)
Bonjour,bonjour
est ce que tu souhaites insérer la date du jour de la saisie ? pour cela pas besoin de text box
Re
@Lone-wolf
Je ne comprends pas tes remarques !
Je ne me permet pas de faire des remarques aux autre "répondeurs", tu fais comme tu le souhaites, pas besoin de te justifier
Je laisse le soin à d'autres de le faire.
mais comme il n'avait pas demandé le tri
mais bon cela ne coûte rien de le faire
avec le tri