Déposer dans des cellules des données issues d'un userform

[Lili189]

Bonjour,

Je bloque sur mon fichier excel.

En effet, j'ai créé un user form (qui se lance par le biais d'un bouton) où l'on peut saisir 4 données (2 en manuelle et 2 en liste déroulante)

J'aimerais que lorsque l'on saisi dedans, cela s'affiche ensuite dans les bonnes cases.

C'est à dire en B5 à E5 pour la première saisie.

et ensuite si plus tard je veux rajouter une ligne grâce a ce bouton, cela s'ajoute à la ligne du dessous (et ainsi de suite).

Pouvez vous m'aider à réaliser cela ?

Merci d'avance.

lili

 

[gilbert_RGI]

Re : Déposer dans des cellules des données issues d'un userform

Bonjour

à tester et à améliorer

 

[jpb388]

Re : Déposer dans des cellules des données issues d'un userform

Bonjour à tous,gilbert_RGI
pareil que gilbert_RGI mais avec calendrier

 

[Lili189]

Re : Déposer dans des cellules des données issues d'un userform

Bonjour à tous,

Merci beaucoup de votre aide ! C'est top !

Bonne journée 😛

 

[gilbert_RGI]

Re : Déposer dans des cellules des données issues d'un userform

Bonjour à tous,gilbert_RGI
pareil que gilbert_RGI mais avec calendrier

c'est dans ce but que j'ai spécifié à améliorer

soit avec un control calendar ou DTPicker

 

[jpb388]

Re : Déposer dans des cellules des données issues d'un userform

Re
je me doutais gilbert_RGI mais l'ayant fait mais pas posté de suite car dérangé je me suis permis de le mettre après ton poste accepte mes excuses

 

[Lili189]

Re : Déposer dans des cellules des données issues d'un userform

Rebonjour,

J'ai un petit soucis avec la version calendrier.

En effet, quand je sélectionne 10 janvier cela m'affiche 1er oct.

Auriez vous une idée pour que ca m'affiche la bonne date ? 🙂

 

[jpb388]

Re : Déposer dans des cellules des données issues d'un userform

re
remplace l'ancienne par celle ci

Private Sub CommandButton1_Click()
Dim Lg&, Sh As Worksheet
Set Sh = Worksheets("test")
Lg = Sh.Range("B" & Rows.Count).End(xlUp).Row + 1
Sh.Range("B" & Lg) = CDate(Me.TextBox1.Value)
Sh.Range("B" & Lg).Offset(0, 1) = CDate(Me.TextBox2.Value)
Sh.Range("B" & Lg).Offset(0, 2) = Me.ComboBox1
Sh.Range("B" & Lg).Offset(0, 3) = Me.ComboBox2
raz
End Sub

 

[Lili189]

Re : Déposer dans des cellules des données issues d'un userform

C'est top !!! Ca marche très bien.

Merci beaucoup !!! 🙂

 

[gilbert_RGI]

Re : Déposer dans des cellules des données issues d'un userform

Re
je me doutais gilbert_RGI mais l'ayant fait mais pas posté de suite car dérangé je me suis permis de le mettre après ton poste accepte mes excuses

Pas de problème 😎