selectionner, copier, coller

astralon · 31 Janvier 2008

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 · 31 Janvier 2008

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

Code:

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

astralon · 31 Janvier 2008

Re : selectionner, copier, coller

Bonjour Staple,

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

Code:

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 · 31 Janvier 2008

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 :

Code:

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 · 31 Janvier 2008

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 · 31 Janvier 2008

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 · 1 Février 2008

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

selectionner, copier, coller

astralon

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

astralon

XLDnaute Occasionnel

Excel_lent

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

astralon

XLDnaute Occasionnel

astralon

XLDnaute Occasionnel

Discussions similaires

selectionner, copier, coller

astralon

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

astralon

XLDnaute Occasionnel

Excel_lent

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

astralon

XLDnaute Occasionnel

astralon

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency