VBA Excel remplissage feuille avec do while loop

Bjr à tous, je suis débutant en VBA excel et éprouve des difficultés à remplir une base de données à partir d'un userform, ceci par l'exploitation de la boucle do while loop; du moins à la validation, aucune donnée ne s'insère dans la cellule prévue

voilà le code en fichier attaché

Merci d'avance

Bonjour,

il fallait remplir une ligne au départ, Nom, Prénom etc.

mettre un bouton pour afficher ton usf

et annuler sur l 'userform par Unload me (on décharge l'usf)

à tester

crdlt,

André

Bonjour,

je me suis permis quelques corrections supplémentaires,

Merci de la prompt réaction, le réajustement permet de faire juste 2 entrée de données, les autres entrées effaces la ligne 002

si vous pouvez essayer d'entrée les données jusqu'à 021 pour tester d'avantage

Merci une fois de plus

bonjour

dans un UserForm on fait pas de select et ne pas mettre son nom

modification des combobox

Private Sub UserForm_Initialize()
ComboBox_civilité.List = Array("Monsieur", "Madame", "Mademoiselle")
With Sheets("source1")
   ComboBox_ville.List = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
   ComboBox_fonction.List = .Range("B1:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
End With
End Sub

A+

Maurice

bonjour,

une correction

bonjour

jais fait un peux de nettoyage

A+

Maurice