bonjour a vous tous
je voudrais que le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("facturation")
NewLig = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("C" & NewLig).Value = TextBox1.Value ' designation 
.Range("I" & NewLig).Value = TextBox2.Value ' prix 
.Range("J" & NewLig).Value = TextBox3.Value ' unite 
.Range("K" & NewLig).Value = TextBox4.Value ' qte 
.Range("M" & NewLig).Value = .Range("K" & NewLig).Value * .Range("I" & NewLig).Value 
.Range("G" & NewLig).Value = IIf(Me.OptionButton5, 1, 2) 
.Range("H" & NewLig).Value = IIf(Me.OptionButton5, 0.055 * .Range("F" & NewLig).Value, "")
.Range("I" & NewLig).Value = IIf(Me.OptionButton6, 0.196 * .Range("F" & NewLig).Value, "") 
'.....
End With
puisse etre modifié afin que les textbox et option button inscrive leur donnée a partir de la ligne 19 soit
et cela toujours dans les mêmes colonnes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
txtbox1 a b19. End(xlDown)
txtbox2 à i19. End(xlDown)
txtbox3 à j 19. End(xlDown)
txtbox 4 à k19. End(xlDown)
le choix des optionbutton en M19. End(xlDown)
option button5 tva 5.5 en O19. End(xlDown)
OptionButton6 tva 19.6 en P19. End(xlDown)

et ce jusque la ligne 30 environ et en ajoutant une lignes a chaque fois
voici un code qui le fait mais en appuyant sur un bouton
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim a As Integer, lig As Integer
a = MsgBox("Voulez-vous ajouter un enregistrement ?", vbYesNo + vbQuestion, "Ajouter")
If a = vbYes Then
lig = Range("B19").End(xlDown)(1).Row
Range("B19").End(xlDown)(1).EntireRow.Insert
Range("C" & lig + 1).Copy Range("C" & lig)
Range("K" & lig + 1 & ":L" & lig + 1).Copy Range("K" & lig)
Range("O" & lig + 1 & ":P" & lig + 1).Copy Range("O" & lig)
Range("B19:M" & lig + 1).Sort Key1:=Range("B19"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
puis faire un saut par dessus le pied de page pour recommencer en ligne 19 sur une autre feuille et repartir a la ligne 19 feuille suivante

merci par avance
bonne journée
Pascal

bonjour a vous tous

pour faire plus simple et par étape ,comment peut on faire commencer ce code pour écrire ses données sur la ligne 19 et ses suivantes
c'est un code fourni gracieusement par Mercatog

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim NewLig As Long
 
With Sheets("facturation")
   NewLig = .Cells(Rows.Count, 2).End(xlUp).Row + 1
merci a vous tous

Pascal