Insertion de données dans un tableau via textBox

**toushusss** · 10/05/2011, 11h28

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** · 10/05/2011, 11h36

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** · 10/05/2011, 11h51

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** · 10/05/2011, 13h42

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** · 10/05/2011, 14h13

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** · 10/05/2011, 14h25

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** · 10/05/2011, 14h50

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

**casefayere** · 10/05/2011, 14h58

Essayes comme ça :

Code :

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

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

**toushusss** · 10/05/2011, 15h13

Ç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 :

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
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

**casefayere** · 10/05/2011, 15h20

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

**toushusss** · 10/05/2011, 15h40

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 :

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

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

**casefayere** · 10/05/2011, 15h49

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

Code :

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

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 :

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

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

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 :

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

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

2 - la formule :

Code :

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

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

**toushusss** · 10/05/2011, 16h24

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

Insertion de données dans un tableau via textBox [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager