Dupliquer une colonne

[Sophie11]

Bonjour, 🙂🙂

Je suis sans en train de découvrir des nouvelles fonctions en VBA, et là je me pose une question (just for fun 😛😛😛)
Si il n'y aurait pas un moyen different pour dupliquer une colonne dans une feuille differente sans utiliser la fonction copier/coller, comme le code ci-dessous:

Sheets("Sheet1").Select
Columns("A:A").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

 

[Efgé]

Re : Dupliquer une colonne

Bonjour Sophie11,
Je ne pense pas pouvoir éviter le "Copy" mais on peut éviter les "Select" et autres "Activate"

Sub Test()
Sheets("Feuil1").Columns("A:A").Copy
Sheets("Feuil2").Columns("A:A").Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub

Cordialement

 

[Sophie11]

Re : Dupliquer une colonne

oh yes original! thank you 😱)
et en utilisant : Range("A65536").End(xlUp) ??? je sais, je suis chiante 😛 😛

 

[Efgé]

Re : Dupliquer une colonne

Re
Comment résister à la fée Clochette...

Sub Test2()
Derligne = Sheets("Feuil1").Range("A" & Application.Rows.Count).End(xlUp).Row
Sheets("Feuil1").Range("A1:A" & Derligne).Copy
Derligne2 = Sheets("Feuil2").Range("A" & Application.Rows.Count).End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & Derligne2).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

Cordialement

 

[Sophie11]

Re : Dupliquer une colonne

parfait... rien à dire! Merci beaucoup 😛 😛

 

[Sophie11]

Re : Dupliquer une colonne

Et si je veux copier plusieurs colonnes par exemple A, D et K en utilisant ton code, je peux faire un :
Sub Test()
Sheets("Feuil1").Columns("A, D, K").Copy
Sheets("Feuil2").Columns("A, D, K").Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub

 

[Efgé]

Re : Dupliquer une colonne

Re
Avant de partir en ouacances...
Si j'ai bien compris la dernière demande, pour copier plusieurs colonnes je suis obligé de revenir aux "Activate", il y a certainement mieux à faire mais je ne vois pas...

Sub Test3()
    Sheets("Feuil1").Range("A:A,D:D,K:K").Copy
    Sheets("Feuil2").Activate
    Range("A1").Activate
    ActiveSheet.Paste
 End Sub

Cordialement

 

[Sophie11]

Re : Dupliquer une colonne

thanks et j'espere que tu as pu partir en vacance... que tu ne sois pas bloqué à cause du nuage... 😉

 

[Papou-net]

Re : Dupliquer une colonne

thanks et j'espere que tu as pu partir en vacance... que tu ne sois pas bloqué à cause du nuage... 😉

Citation : Si j'ai bien compris la dernière demande, pour copier plusieurs colonnes je suis obligé de revenir aux "Activate", il y a certainement mieux à faire mais je ne vois pas...

Bonsoir Efgé, Sophie 11,

Une méthode simple de recopie :

- Colonnes entières

Private Sub test()
Feuil2.Range("A:A").Value = Feuil1.Range("A:A").Value
Feuil2.Range("C:C").Value = Feuil1.Range("C:C").Value
End Sub

- Mixte

Private Sub test()
Feuil2.Range("A:A").Value = Feuil1.Range("A:A").Value
Feuil2.Range("C10:C25").Value = Feuil1.Range("C10:C25").Value
End Sub

- Sur plages de cellules différentes

Private Sub test()
Feuil2.Range("A:A").Value = Feuil1.Range("A:A").Value
Feuil2.Range("D1:D16").Value = Feuil1.Range("C10:C25").Value
End Sub

Etc...

Espérant avoir contribué.

Cordialement.

 

[Fo_rum]

Re : Dupliquer une colonne

Salut

pour copier aussi les formats, les formules ...

Sub Test()
  Sheets("Feuil1").Range("A:A,D:D,K:K").Copy Sheets("Feuil2").[A1]
End Sub