Insertion de données dans un tableau via textBox

Version imprimable

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:

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

Bonjour,

exemple :
1ere partie :

Code:

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

10/05/2011, 11h51
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 ?
10/05/2011, 13h42
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:

Dim ligne As long
10/05/2011, 14h13
toushusss

1 pièce(s) jointe(s)

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

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

Code:

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

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

Code:

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

Essayes comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("A" & Tot.Row - 1) = TextBox1.Text 'saisie du texte dans col A
    .Range("C" & Tot.Row - 1) = TextBox2.Text 'saisie du texte dans col C
    .Range("D" & Tot.Row - 1) = TextBox3.Text 'saisie du texte dans col D
    .Range("G" & Tot.Row - 1) = TextBox4.Text 'saisie du texte dans col G
End With
End Sub

Ça s'approche du rendu souhaité. Mais j'ai un décalage entre la cellule A et les autres. Celle de A est une ligne au dessus des autres !
Voila le code :

Code:

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
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 - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("A" & Tot.Row - 1) = TextBox1.Text 'saisie du texte dans col A
 
    .Range("B" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("B" & Tot.Row - 1) = "" 'saisie du texte dans col B
 
    .Range("C" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("C" & Tot.Row - 1) = TextBox2.Text 'saisie du texte dans col C
 
    .Range("D" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("D" & Tot.Row - 1) = TextBox3.Text 'saisie du texte dans col D
 
    .Range("E" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("E" & Tot.Row - 1) = "" 'saisie du texte dans col E
 
    .Range("F" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("F" & Tot.Row - 1) = "" 'saisie du texte dans col F
 
    .Range("G" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("G" & Tot.Row - 1) = TextBox4.Text 'saisie du texte dans col G
 
    .Range("H" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
    .Range("H" & Tot.Row - 1) = "" 'saisie du texte dans col H
End With
End Sub

10/05/2011, 15h20
casefayere

Et pourquoi ne t'es-tu pas contenté de recopier mon code ? pour tout avoir sur la meme ligne

J'ai testé ton code qui marche mais que pour les colonnes programmé, or dans mon tableau cela inscrive les données ligne après ligne mais dans les colonnes non traités rien ne se produisait et par exemple la cellule total reté toujours à la même place ainsi que les bordures des cellules non traités. Mais apparemment j'ai résolu le problème en enlevant le - 1 dans Range pour A
Code:

1 2 3 4 5 6 7 8 9 10 11 12 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 - 1).Insert Shift:=xlDown 'inserer ligne au dessus .Range("B" & Tot.Row - 1) = "" 'saisie du texte dans col B .Range("C" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus .Range("C" & Tot.Row - 1) = TextBox2.Text 'saisie du texte dans col C .....
Par contre comment insérer une formule à la place de mes "" pour effectuer un calcul tel que Chiffre de D divisé par Chiffre de C ?

Merci pour ton aide

Je n'ai peut-être rien compris à ton problème mais ces lignes sont inutiles :
Code:

1 2 .Range("B" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus .Range("C" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
il suffit d'une fois :
Code:

1 2 3 4 Set Tot = .Range("b11:b" & ligne).Find("TOTAL") .Rows(Tot.Row & ":" & Tot.row).Insert Shift:=xlDown 'inserer ligne au dessus .Range("A" & Tot.Row) = TextBox1.Text 'saisie du texte dans col A Rows(":12").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Citation:

Par contre comment inserer une formule à la place de mes "" pour effectuer un calcul tel que Chiffre de D divisé par Chiffre de C ?

Tout dépend si tu veux un résultat ou vraiment une formule :

1 - avec résultat :

Code:

.range(tacellule) = .range("D" & tot.row) / .range("C" & tot.row)

2 - la formule :

Code:

.range(tacellule).FormulaR1C1 = "=RC[-7]/RC[-6]" 'corriger "-7" et "-6"

10/05/2011, 16h24
toushusss

Merci pour le coup de main. Excelent !
Par contre si je ne met pas les lignes que tu me dis cela ne fonctionne pas. J'ai testé. En recopiant à chaque fois les deux code pour chaque colonne ce permet par exemple à la cellule TOTAL de descendre en meme temps que les autres données. Sans la premiére ligne de code La cellule Total reste dans sa position initiale et le tableau est tout décalé !

Mais la apparemment c'est bon. Merci:ccool: