Bonjour,
j'ai un tableau avec une ligne de titre et une ligne total. Je souhaite inserer des donnees grace a des textBox entre ces deux lignes. Je ne connais pas à l'avance le nombre de ligne qui viendrons s'intercaler. J'ai ce code qui marche pour inserer mes données mais le probleme c'est que cela les insere juste au dessus de ma ligne de Titres et non entre celle ci est la ligne total.
Que dois je corriger ?
merci par avance pour l'aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Dim ligne As String 
Private Sub CommandButton1_Click() 
dernierligne 
Range("A" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = TextBox1.Text 'saisie du texte 
 
dernierligne 
Range("B" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = "" 'saisie du texte 
 
dernierligne 
Range("C" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = TextBox2.Text 'saisie du texte 
 
dernierligne 
Range("D" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = TextBox3.Text 'saisie du texte 
 
dernierligne 
Range("E" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = "" 'saisie du texte 
 
dernierligne 
Range("F" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = "" 'saisie du texte 
 
dernierligne 
Range("G" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = TextBox4.Text 'saisie du texte 
 
dernierligne 
Range("H" & ligne).Select 'derniere ligne 
Selection.Insert Shift:=xlDown 'inserer ligne au dessus 
ActiveCell.Offset(0, 0).Select 'selectionner ligne 
ActiveCell.FormulaR1C1 = "" 'saisie du texte 
 
End Sub 
'Chercher la dernière ligne de la colonne A 
Function LastRow() 
'feuille active, colonne A 
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "C").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "G").End(xlUp).Row 
LastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row 
End Function 
Sub dernierligne() 
ligne = LastRow 
End Sub