Discussion :

[toushusss]

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

[casefayere]

Bonjour,

exemple :
1ere partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ligne = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & ligne).Insert Shift:=xlDown 'inserer ligne au dessus
Range("A" & ligne) = textbox1 'saisie du texte

[toushusss]

Merci casefayere ! Mais je n'ai pas compris ce que je devais remplacé par le code que tu m'as donné. excuse moi je suis débutant dans ce domaine.
Dois je retaper toute les premieres partis de mon code ?

[casefayere]

oui, en adaptant, J'ai oublié de te dire que "ligne" est un long ou un integer suivant ton nombre de données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ligne As long

[toushusss]

Re bonjour casefayere, mais cela ne change rien toujoirs le meme probleme.
Je te met le fichier pour que tu puisses jeter un oeil si possible bien entendu.
Merci par avance

[casefayere]

Essaies de comprendre et adapter ce début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim ligne As Long
Dim Tot As Range
'pour ta première partie que tu dois adapter ensuite
With Sheets("feuil1")
    ligne = .Range("B" & .Rows.Count).End(xlUp).Row
    Set Tot = .Range("b11:b" & ligne).Find("TOTAL")
    .Range("A" & Tot.Row).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("A" & Tot.Row) = TextBox1.Text 'saisie du texte dans col A
    '......
End With

[toushusss]

j'ai adapté le code comme suit mais maintenant c'est le la cellule TOTAL qui s'efface. Je sais je suis nul
Pourtant je rajoute bien une ligne avec la formule que tu m'as donné mais pas au bon endroit. Je deviens fou

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
Private Sub CommandButton1_Click()
Dim ligne As Long
Dim Tot As Range
'pour ta première partie que tu dois adapter ensuite
With Sheets("feuil1")
    ligne = .Range("B" & .Rows.Count).End(xlUp).Row
    Set Tot = .Range("b11:b" & ligne).Find("TOTAL")
 
    .Range("A" & Tot.Row).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("A" & Tot.Row) = TextBox1.Text 'saisie du texte dans col A
 
 
    .Range("B" & Tot.Row) = "" 'saisie du texte dans col B
 
 
    .Range("C" & Tot.Row) = TextBox2.Text 'saisie du texte dans col C
 
 
    .Range("D" & Tot.Row) = TextBox3.Text 'saisie du texte dans col D
 
 
    .Range("E" & Tot.Row) = "" 'saisie du texte dans col E
 
 
    .Range("F" & Tot.Row) = "" 'saisie du texte dans col F
 
 
    .Range("G" & Tot.Row) = TextBox4.Text 'saisie du texte dans col G
 
 
    .Range("H" & Tot.Row) = "" 'saisie du texte dans col H
 
End With
End Sub