selectionner, copier, coller

[astralon]

Bonjour,

je viens a vous pour une erreur de code VBA

dans un tableau (ou il y a des cases vides),
1) je selectionne la première case de ce tableau,
2) je fais CTRL + DOWN (ce qui me selectionne la dernière case de la dernière ligne de mon tableau)
3) je fais SHIFT + CTRL + DROITE (4X pour selectionner ma ligne au complet)
4) je copie la ligne
5) je descend mon curseur sur la ligne suivante (OK)
6) je colle la ligne en inserant (pour que la suite de mon tableau descende)

jusque là tout est ok

mais quand je fais tourner la macro === >>>>> ERREUR, il ne selectionne pas tout(on dirait que la selection s'arrete au saut de page) et il ne descend pas sur la ligne suivante

Voici le code que j'ai mis dans un bouton. pourriez-vous m'aider?

Range("A11").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.down.Activate
Selection.Insert Shift:=xlDown

Merci pour votre aide

P.S. j'ai regarder dans les liens proposer, ça m'a bien aider, mais comme je ne comprend pas encore tout, je bloque.

 

[Staple1600]

Re : selectionner, copier, coller

Bonjour


Il est bénéfique d'éviter les Select le plus possible

Range("A11:A" & [A65536].End(xlUp).Row).Copy
peut remplacer les lignes en gras

Range("A11").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.down.Activate
Selection.Insert Shift:=xlDown

et pour remplacer le tout essaye

Sub Copie_TAB()
Dim Fin as Long
Fin=[A65536].End(xlUp).Row
Range("A11:A" & Fin).Copy Cells(Fin+1,"A")
End Sub

 

[astralon]

Re : selectionner, copier, coller

Bonjour Staple,

j'ai une petit erreur qui arrive quand je lance t'a macro

Sub Copie_TAB()
Dim Fin as Long
Fin=[A65536].End(xlUp).Row
Range("A11:A" & Fin).[COLOR="Red"]Copy Range Cells(Fin+1,"A")[/COLOR]
End Sub

Merci pour ton aide

 

[Excel_lent]

Re : selectionner, copier, coller

Salut Astralon, Staple, bonjour à tous et aux autres.

La procédure corrigée (suppression de Range devant Cells...) ne permet de copier que la colonne A.
Connaissant les adresses du début et de la fin de ton tableau tu peux essayer :

Sub Copie()
  Dim Tablo()
  Tablo() = Range("A11:P19") [I]'plage à adapter[/I]
  Range("A20:P28") = Tablo() [I]'20 de 19+1, 28 de 20 + 19 - 11[/I]
  Erase Tablo
End Sub

 

[Staple1600]

Re : selectionner, copier, coller

Re


Désolé

Il fallait lire
Range("A11:A" & Fin).Copy Cells(Fin+1,"A")

Comme l'a remarqué Excel_lent (merci et bonjour)

 

[astralon]

Re : selectionner, copier, coller

Merci à vous pour tous

Voici comment j'ai adapter la formule pour qu'elle fonctionne (Merci beaucoup Staple)

toutefois, si c'est possible, j'aimerais que la ligne que je colle décalle les lignes suivantes vers le bas (je n'arrive pas à faire l'insersion)

Dim Fin As Long
Fin = [A65536].End(xlUp).Row
Range("A" & Fin, "T" & Fin).Copy Cells(Fin + 1, "A")

 

[astralon]

Re : selectionner, copier, coller

Bonjour A tous

juste un petit UP,

est-ce que vous sauriez me dire comment modifier le code pour que lorsque je colle ma ligne, tout ce qui est en dessous se décale vers le bas?

Merci beaucoup