Saisie en ligne et non en colonne USERFORM

[reve24]

Bonjour
j aimerai modifer le code de mon userform, pour qu'il ne soit plus en colonne mais en ligne

le mieux serait de regarder le fichier car "" PAS FACILE A EXPLIQUER ""



Merci à vous

 

[kingfadhel]

Re : Saisie en ligne et non en colonne USERFORM

bonjour,
une solution parmi x peut être

Rq il faut remplir les combobox selon le rang (le n°1 avant le n°2 ...)

voila ton fichier en retour.

 

[reve24]

Re : Saisie en ligne et non en colonne USERFORM

Bonjour

merci pour cette solution

pourquoi ma solution ne fonctionne pas

Private Sub CmdValide_Click()
ligne = Sheets("Frais").Range("E3650").End(xlUp).Row + 1
Cells(ligne, 1).Value = TextDate
Cells(ligne, 10).Value = txtnosm
Cells(ligne, 11).Value = Format(Calendar1, "mmmm")
Cells(ligne, 12).Value = Format(Calendar1, "YYYY")
Cells(ligne, 2).Value = Format(TextBox1)
Cells(ligne, 3).Value = Format(ComboBox1)
Cells(ligne, 4).Value = Format(TextBox2)
Cells(ligne, 5).Value = Format(ComboBox2)
Cells(ligne, 6).Value = Format(TextBox3)
Cells(ligne, 7).Value = Format(TextBox12)
Cells(ligne, 8).Value = Format(TextBox21)
Cells(ligne + 1, 5).Value = Format(ComboBox3)
Cells(ligne + 1, 6).Value = Format(TextBox4)
Cells(ligne + 1, 7).Value = Format(TextBox13)
Cells(ligne + 1, 8).Value = Format(TextBox22)
Cells(ligne + 2, 5).Value = Format(ComboBox4)
Cells(ligne + 2, 6).Value = Format(TextBox5)
Cells(ligne + 2, 7).Value = Format(TextBox14)
Cells(ligne + 2, 8).Value = Format(TextBox23)

 

[kingfadhel]

Re : Saisie en ligne et non en colonne USERFORM

Bonjour

merci pour cette solution

pourquoi ma solution ne fonctionne pas

Private Sub CmdValide_Click()
ligne = Sheets("Frais").Range("E3650").End(xlUp).Row + 1
Cells(ligne, 1).Value = TextDate
Cells(ligne, 10).Value = txtnosm
Cells(ligne, 11).Value = Format(Calendar1, "mmmm")
Cells(ligne, 12).Value = Format(Calendar1, "YYYY")
Cells(ligne, 2).Value = Format(TextBox1)
Cells(ligne, 3).Value = Format(ComboBox1)
Cells(ligne, 4).Value = Format(TextBox2)
Cells(ligne, 5).Value = Format(ComboBox2)
Cells(ligne, 6).Value = Format(TextBox3)
Cells(ligne, 7).Value = Format(TextBox12)
Cells(ligne, 8).Value = Format(TextBox21)
Cells(ligne + 1, 5).Value = Format(ComboBox3)
Cells(ligne + 1, 6).Value = Format(TextBox4)
Cells(ligne + 1, 7).Value = Format(TextBox13)
Cells(ligne + 1, 8).Value = Format(TextBox22)
Cells(ligne + 2, 5).Value = Format(ComboBox4)
Cells(ligne + 2, 6).Value = Format(TextBox5)
Cells(ligne + 2, 7).Value = Format(TextBox14)
Cells(ligne + 2, 8).Value = Format(TextBox23)

pour ton userform tu as créé 9 dépenses donc l'application doit le savoir car les insertions se font selon le nombre de dépenses, donc il faut tester combien de rubriques de dépenses par voyage.
pour une seule dépense une seule ligne s'ajoute et ainsi de suite.

 

[kingfadhel]

Re : Saisie en ligne et non en colonne USERFORM

RE,
Une autre solution avec moins de codes.

 

[reve24]

Re : Saisie en ligne et non en colonne USERFORM

OK
Effectivement , j'etais parti sur le fait que certaines lignes ne seront pas toujours remplies .
Je peux avoir une ligne de dépense ou 2 ou 3
c'est peut etre la mon probleme

 

[reve24]

Re : Saisie en ligne et non en colonne USERFORM

merci Jean marcel
Juste un BUGG quand tu tapes la date exemple 3/12/2013

cela affiche et cela est difficile de corriger 03/12/2020

Cela le fait il sur ta machine ?????