Discussion :

[vacknov]

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

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

[vacknov]

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

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]

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

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 ?