Comment ajouter une ligne dans une feuille ?

**vacknov** · 12/11/2007, 09h47

Comment ajouter une ligne dans une feuille ,avant ou après ligne specifique

La Faq me donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub AjouteLigneTableau()
    Dim ListObj As ListObject
    Dim i As Integer
 
    'Définit le tableau dans la feuille de calcul
    Set ListObj = Worksheets("Feuil1").ListObjects("Table1")
    'Ajoute une ligne
    ListObj.ListRows.Add
End Sub

Sauf que ça ne marche pas . je veux inserer ma ligne après la ligne 20, ou après la ligne 51 par exemple.

Merci

**Jean-Philippe André** · 12/11/2007, 09h54

bonjour déjà

que veux-tu dire par "ne marche pas" stp ?
le macro recorder devrait te donner un code qui tourne

**vacknov** · 12/11/2007, 10h01

Envoyé par jpcheck

bonjour déjà

que veux-tu dire par "ne marche pas" stp ?
le macro recorder devrait te donner un code qui tourne

La macro ne fait pas ce que je veux.

Au fait, je cherche à inserer une ligne au milieu des autres lignes déjà existantes. Pour ce code je recois la message d'erreur 9 : l'indice n'appartient pas à la selection.

**Jean-Philippe André** · 12/11/2007, 10h15

hum...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/11/2007 par JPChececk
'
 
'
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
End Sub

en utilisant ca, tu devrais trouver ton bonheur il me semble, OK ?

**vacknov** · 13/11/2007, 10h04

Bonjour jpcheck;

Code :

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

Rows("3:3").Select

Es ce que je peux écrire :

Code :

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

Rows(3,3).Select

Par exemple

**Jean-Philippe André** · 13/11/2007, 10h11

bonjour,
pourquoi cette question si "3:3" est la bonne syntaxe ? Tu passes par des boucles ?

Code :

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

1
2
3
For i =3 to 5
Rows(i & ":" & i).Select
Next i

devrait te suffire, non ?

**vacknov** · 13/11/2007, 10h19

En éffet le code se trouve dans UserForm4 et le classeur dont je manipule les données est la feuil1.

Es ce que Rows est une proprièté de :

Code :

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

1
2
 
WorkSheets("Feuil1") ?

est ce que je peux faire :

Code :

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

1
2
3
 
WorkSheets("Feuil1").Rows(i & ":" & j
WorkSheets("Feuil1")..Selection.Insert Shift:=xlDown)

Merci jpcheck

**Jean-Philippe André** · 13/11/2007, 10h22

as-tu essayé ?

**vacknov** · 13/11/2007, 10h43

Envoyé par jpcheck

as-tu essayé ?

la ligne est bien selectionnée.

Pour :

WorkSheets("Feuil1").Selection.Insert Shift:=xlDown

J'ai le message
Proprièté ou méthode non geréé par cet objet

je t'explique ce que je veux faire en tout.

j'ai une colonne contenant ces données:

A
A
A
B
B
B
C
C
C
D
D
D

mon programme doit lire toute la colonne .
Si la ligne suivante contient une valeur differente que la ligne precedente ajouter une nouvelle.

faire la meme chose jusqu'à ce que le programme rencontre une cellule vierge.

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
 
Sub test()
Dim valeur as String
Dim i As Integer
Dim j As Integer
Dim p As Integer
 
Do 
' la premère contient le titre de la colonne d'ou un pas de : 2+p
' il s'agit de la colonne 8 d'ou Cells(2 + p, 8).
valeur = Worksheets("Feuil1").Cells(2 + p, 8).value
 
 
if Worksheets("Feuil1").Cells(3 + p, 8).value <> valeur then
'insertion de la nouvelle
i=3 + p
j=8
Worksheets("Feuil1").Rows(j & ":" & t).Select
 Selection.Insert Shift:=xlDown
End If
p=p+1
Loop while response=0
 
End sub

J'arrive à inserer mais pas comme je le souhaite.

**Jean-Philippe André** · 13/11/2007, 10h51

encore faut-il que i=j, tu n'insère une ligne qu'après ou qu'avant une autre, pas la peine d'en avoir 5, seule la première/dernière compte je crois.

**vacknov** · 13/11/2007, 11h35

Code :

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

encore faut-il que i=j

Rows(i & ":" & j)

Que represente i et j dans cette formule ?

**Jean-Philippe André** · 13/11/2007, 11h38

euh, dans ton code, tu n'utilises pas la varaible i, ni la variable t, qui prend une valeur ou pas ?

**vacknov** · 13/11/2007, 11h47

Corrige moi si c'est faux:
Je pensais que Rows(i & ":" & j)
i= la ligne
j= la colonne

c'est là que je vois flou

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
 
 
Sub guide()
 
Dim valeur As String
Dim i As Integer
Dim j As Integer
Dim p As Integer
Dim response As Integer
 
Do
' la premère contient le titre de la colonne d'ou un pas de : 2+p
' il s'agit de la colonne 8 d'ou Cells(2 + p, 8).
valeur = Worksheets("Feuil3").Cells(2 + p, 8).value
MsgBox valeur
 
If Worksheets("Feuil3").Cells(3 + p, 8).value <> valeur Then
'insertion de la nouvelle
i = 3 + p
j = 8
Worksheets("Feuil3").Rows(i & ":" & j).Select
 Selection.Insert Shift:=xlDown
End If
 
 
If Worksheets("Feuil3").Cells(3 + p, 8).value = "" Then response = 1
p = p + 1
Loop While response = 0
 
End Sub