OVH Cloud OVH Cloud

récupération d'un userform à excel

1 réponse
Avatar
jocelyne
Bonjour,
Je suis vraiment débutante en VBA. j'ai créé un userform sur laquelle j'ai
des combo text.
Dans une feuille Excel j'ai un bouton nommé "saisie". Lorsque je clique
dessus il appelle le userform nommé "Famille".
J'ai des combotext. Je les rempli et je valide par un bouton nommer
"valider". Ce bouton doit normalement remplir ma feuille excel "Famille" à
la suite des données.
Voici mon code. Je ne vois pas ce qui ne va pas.

Private Sub valider_Click()
Sheets("famille").Select


'ajouter un mouvement à la liste
If Nloc.Value <> "" Then

ligne = Range("A2").End(xlDown).Row + 1

Cells(ligne, 1) = Nloc.Value
Cells(ligne, 2) = place1.Value
Cells(ligne, 3) = nom1.Value
Cells(ligne, 4) = naissance1.Value
Cells(ligne, 5) = statut1.Value
Cells(ligne, 6) = sexe1.Value
Cells(ligne, 7) = ress11.Value
Cells(ligne, 8) = ress12.Value
Cells(ligne, 9) = ress13.Value
End If

End Sub
Merci d'avance pour tout
Jocelyne

1 réponse

Avatar
JLuc
*Bonjour jocelyne*,

Bonjour,
Je suis vraiment débutante en VBA. j'ai créé un userform sur laquelle j'ai
des combo text.
Dans une feuille Excel j'ai un bouton nommé "saisie". Lorsque je clique
dessus il appelle le userform nommé "Famille".
J'ai des combotext. Je les rempli et je valide par un bouton nommer
"valider". Ce bouton doit normalement remplir ma feuille excel "Famille" à la
suite des données.
Voici mon code. Je ne vois pas ce qui ne va pas.

Private Sub valider_Click()
Sheets("famille").Select


'ajouter un mouvement à la liste
If Nloc.Value <> "" Then

ligne = Range("A2").End(xlDown).Row + 1
ligne = Range("A65356").End(xlup).Row + 1



Cells(ligne, 1) = Nloc.Value
Cells(ligne, 2) = place1.Value
Cells(ligne, 3) = nom1.Value
Cells(ligne, 4) = naissance1.Value
Cells(ligne, 5) = statut1.Value
Cells(ligne, 6) = sexe1.Value
Cells(ligne, 7) = ress11.Value
Cells(ligne, 8) = ress12.Value
Cells(ligne, 9) = ress13.Value
End If

End Sub
Merci d'avance pour tout
Jocelyne



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS