Discussion :

[babou466]

bonjour à tous,j'ai un soucis certainement de syntaxe. J'essai de décaler toutes mes lignes de derlig à lignerougedata, dans le but d'insérer une nouvelle ligne de valeur à la ligne lignedatarouge+1. Le compilateur me signifie une erreur au niveau de la ligne du selection.entireRow...Est ce que quelqu'un pourrait m'éclairer s'il vous plait? merci et bonne journée.

Code :

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

1
2
3
4
5
            'on commence par décaler toutes les données en partant du bas pour ne rien écraser:
            For LigneData = DerLig To LigneRougeData Step -1
                Range(1, LigneData).End(xlUp).Row
                Selection.EntireRow.Insert Shift:=xlDown
            Next LigneData

ce code ne fonctionne pas non plus:

Code :

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

1
2
3
4
5
            For LigneData = DerLig To LigneRougeData Step -1
                'Range(1, LigneData).End(xlUp).Row
                Rows("LigneData: LigneData").Select
                Selection.EntireRow.Insert Shift:=xlDown
            Next LigneData

[Krovax]

essaye

Code :

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

range(cells(LigneData,1),cells(LigneData,1)).EntireRow.Insert Shift:=xlDown

mais a chaque fois tu vas inserer une ligne je ne vois pas l'interet
si tu veux inserer juste une ligne enlève ta boucle et met directement

Code :

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

range(cells(lignedatarouge+1,1),cells(lignedatarouge+1,1)).EntireRow.Insert Shift:=xlDown

[babou466]

effectivement c'était ridicule, merci beaucoup!

[Gorfael]

Salut babou466 et le forum
Comme j'arrive après la bataille, juste une réflexion :

Code :

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

Range(1, LigneData).End(xlUp).Row

=> range à besoin de texte : Range("A1"). Bon c'est une erreur de recopie et c'était cells
On a donc :

Code :

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

Cells(1, LigneData).End(xlUp).Row

Soit : la ligne (.row) de la première cellule non vide en remontant (.End(xlUp)) en partant de la cellule (Cells) située à l'intersection de la Ligne 1 et de la Colonne LigneData ??? (Pourquoi appeler LigneData une colonne ??? Pour tromper l'ennemi ?)

la cellule A de la ligne LigneData : Des syntaxes comprises par Excel
Range ("A" & LigneData)
Cells(LigneData, 1) ou Cells(LigneData, "A")
Range("A1").offset(LigneData,0)

Deuxième point: C'est bien de trouver la ligne (.Row), mais excel en sait pas quoi en faire! soit tu la glisses dans une variable, soit tu la sélectionnes :

Code :

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

1
2
X = Cells(Rows.Count, "A").End(xlup).row
Range("A" & Rows.count).End(xlup).Select

X = dernière cellule non vide de A (Première cellule non vide en partant de la dernière ligne et en remontant)
Selectionner la dernière cellule de A.

En conclusion : on a pas fini de te voir sur le forum (avec plaisir, bien sûr)

PS :

Code :

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

range(cells(lignedatarouge+1,1),cells(lignedatarouge+1,1)).EntireRow.Insert Shift:=xlDown

Un peu trop complexe pour moi (non, je ne suis pas feignant, j'économise juste mes touches) :

Code :

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

Rows(LigneDataRouge+1).insert

me suffit
A+