Discussion :

[babou466]

bonjour à tous, j'ai un soucis au niveau de la sélection de la totalité d'une ligne afin de la décaler plus bas, le compilateur me signale un preblème au niveau de l'objet range dès mon premier passage dans la boucle...est ce que quelqu'un pourrait m'aider s'il vous plait? merci à vous et bonne journée

voici mon code:

Code :

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

1
2
3
4
5
6
7
'on part du bas du remplissage afin de ne pas écraser de donnéés et on remonte
For LigneData = DerLig To 2 Step -1
    'sélection de toute la ligne
    Range(LigneData).Select
    'on la décale de NbLignes_Inserees vers le bas
    Rows(LigneData).Copy Rows(LigneData + NbLignes_Inserees)
Next LigneData

[Daranc]

je ne voit pas ce que tu veux faire
mais si c'est pour décaler un tableau complet vers le bas tu devrait simplement insérer une ligne ou tu le veux avec l'enregistreur de macro activé tu aurais un code tout simple pour pousser tou un tableau vers le bas il n'y a pas besoin de le sélectionner

[babou466]

en fait je me fie un peu trop certainement à mes connaissances en c++...j'essayais de décaler mes lignes une par une en partant du bas de mon tableau afin de pouvoir en insérer d'autres au début plus haut...merci à vous, je vais suivre votre idée mais est que la sélection d'une ligne entière de valleur est possible en vba? et si c'est le cas est ce que quelqu'un saurait le programmer par hasard?

[laetitia]

bonjour babou466 Daranc le forum un ex: simple a a adapter

Code :

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

1
2
3
4
5
6
7
Sub Inser()
Dim i As Long
For i = Range("A65000").End(xlUp).Row To 1 Step -1
Cells(i + 1, 1).Select ' a adapter
Selection.EntireRow.Insert Shift:=xlDown
Next
End Sub

[babou466]

Merci beaucoup à vous !