Discussion :

[mimic50]

Bonjour,

J'ai besoin de réaliser un petite macro qui aurait pour fonction de copier toute la colonne A (sans la case A1) vers une 2nde feuille dans la colonne A (sans la case A1). Je me demandais s'il étais possible d'effectuer ceci sans passer par un copier/coller mais en utilisant une fonction de le forme :

(Feuil2!A:A;'Feuil1'!A1) = ('Feuil1'!A:A;'Feuil1'!A1)

Merci

[cafeine]

Hello,

c'est une bonne idée que de réinventer le VBE ... hélas ... j'ai bien peur qu'il te faille passer par un copier / coller.

Sinon tu peux "factoriser" ton code avec une fonction générique.

Code :

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

CopyRange("Feuil1", "A2:A65536", "Feuil2")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Fuction CopyRange(byval sourceSheet As String, byval sourceRange As String, _
         byval TargetSheet As String)
 
ActiveWorkbook.Sheets(sourceSheet).Activate
Range(sourceRange).Select
Selection.Copy
ActiveWorkbook.Sheets(TargetSheet).Activate
Range(sourceRange).Select
ActiveSheet.Paste
application.CutCopyMode = False
 
End Function