Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Je ne sais pas faire avec un userform

Je ne sais pas faire avec un userform

2 réponses
Avatar
LeSurCitaire
Bonjour,

J'ai modifi=E9 un code trouv=E9 sur excelabo comme suit:
Private Sub CmdValider_Click()
'ActiveSheet.Unprotect Password:=3D"1322"
Sheets("Inscription").Select
Range("A3") =3D Section.Value
Range("B3") =3D EtlNom.Value
Range("C3") =3D EtLPrenom.Value
Range("D3") =3D Format(EtLDate.Value, "mm/dd/yyyy")
Range("E3") =3D RdNom.Value
Range("F3") =3D RdPrenom.Value
Range("G3") =3D Format(RdDate.Value, "mm/dd/yyyy")
Range("H3") =3D PmNom.Value
Range("I3") =3D PmPrenom.Value
Range("J3") =3D Format(PmDate.Value, "mm/dd/yyyy")
Range("K3") =3D HaNom.Value
Range("L3") =3D HaPrenom.Value
Range("M3") =3D Format(HaDate.Value, "mm/dd/yyyy")

ActiveWindow.WindowState =3D xlMaximized
'ActiveSheet.Protect Password:=3D"1322"
Unload Inscription
'unload d=E9charge le userform. Au prochain appel, il sera
'r=E9initialis=E9, en passant par userform_initialize()...
'ceci permet de prendre en compte les modif apport=E9es lors de la
saisie

End Sub

et j'aimerai que ce code s'adapte a la cellule ou je clic,
c'est a dire que une fois mon userform rempli et valide je passe a la
ligne suivante pour de nouveau remplir mes donnees

J'espere que j'ai ete clair
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LeSurcitaire
Bonjour,

J'ai modifié un code trouvé sur excelabo comme suit:
Private Sub CmdValider_Click()

Sheets("Inscription").Select
Range("A3") = Section.Value
Range("B3") = EtlNom.Value
Range("C3") = EtLPrenom.Value
Range("D3") = Format(EtLDate.Value, "mm/dd/yyyy")
Range("E3") = RdNom.Value
Range("F3") = RdPrenom.Value
Range("G3") = Format(RdDate.Value, "mm/dd/yyyy")
Range("H3") = PmNom.Value
Range("I3") = PmPrenom.Value
Range("J3") = Format(PmDate.Value, "mm/dd/yyyy")
Range("K3") = HaNom.Value
Range("L3") = HaPrenom.Value
Range("M3") = Format(HaDate.Value, "mm/dd/yyyy")

ActiveWindow.WindowState = xlMaximized
Unload Inscription
End Sub

et j'aimerai que ce code s'adapte a la cellule ou je clic,
c'est a dire que une fois mon userform rempli et valide je passe a la
ligne suivante pour de nouveau remplir mes donnees

Je n'ai pas du être clair et je ne sais pas vers qui me retourne si
ici on ne peut pas m'aider :'(

--
LeSurcitaire
Avatar
PMO
Bonjour,

Essayez le code suivant.
L'idée est de récupérer la ligne de la cellule sélectionnée
de la feuille "Inscription". Il faut donc sélectionner
n'importe quelle cellule de la ligne où s'inscriront
les données du UserForm et ce avant de lancer
le UserForm.

'*********
Private Sub CmdValider_Click()
Dim Lig&
Sheets("Inscription").Select
Lig& = Selection.Row 'Ligne de la cellule sélectionnée
Range("A" & Lig& & "") = Section.Value
Range("B" & Lig& & "") = EtlNom.Value
Range("C" & Lig& & "") = EtLPrenom.Value
Range("D" & Lig& & "") = Format(EtLDate.Value, "mm/dd/yyyy")
Range("E" & Lig& & "") = RdNom.Value
Range("F" & Lig& & "") = RdPrenom.Value
Range("G" & Lig& & "") = Format(RdDate.Value, "mm/dd/yyyy")
Range("H" & Lig& & "") = PmNom.Value
Range("I" & Lig& & "") = PmPrenom.Value
Range("J" & Lig& & "") = Format(PmDate.Value, "mm/dd/yyyy")
Range("K" & Lig& & "") = HaNom.Value
Range("L" & Lig& & "") = HaPrenom.Value
Range("M" & Lig& & "") = Format(HaDate.Value, "mm/dd/yyyy")
ActiveWindow.WindowState = xlMaximized
Unload Inscription
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange



Bonjour,

J'ai modifié un code trouvé sur excelabo comme suit:
Private Sub CmdValider_Click()

Sheets("Inscription").Select
Range("A3") = Section.Value
Range("B3") = EtlNom.Value
Range("C3") = EtLPrenom.Value
Range("D3") = Format(EtLDate.Value, "mm/dd/yyyy")
Range("E3") = RdNom.Value
Range("F3") = RdPrenom.Value
Range("G3") = Format(RdDate.Value, "mm/dd/yyyy")
Range("H3") = PmNom.Value
Range("I3") = PmPrenom.Value
Range("J3") = Format(PmDate.Value, "mm/dd/yyyy")
Range("K3") = HaNom.Value
Range("L3") = HaPrenom.Value
Range("M3") = Format(HaDate.Value, "mm/dd/yyyy")

ActiveWindow.WindowState = xlMaximized
Unload Inscription
End Sub

et j'aimerai que ce code s'adapte a la cellule ou je clic,
c'est a dire que une fois mon userform rempli et valide je passe a la
ligne suivante pour de nouveau remplir mes donnees

Je n'ai pas du être clair et je ne sais pas vers qui me retourne si
ici on ne peut pas m'aider :'(

--
LeSurcitaire