Adapter une macro?j'y suis presque mais....

[megansport]

Bonjour
J'ai une macro , je voudrais quelle se génére que sur toutes les feuilles actives mais je n' y arrive pas ,je suis au stade d'une feuille c'est à dire qu'elle se génére que sur la page 2

Voila la macro:


Sub testII()
Dim Source As Range
Dim Destination As Range
'Définition de la plage à copier
Set Source = Sheets(1).Range("A1:N1")
'Détermination de la 1ère cellue vide de la colonne A de la feuille 2
Set Destination = Sheets(2).Range("A1:N1")
'Recopie de de la Source vers sa Destination
Source.Copy Destination
End Sub

 

[Dranreb]

Re : Adapter une macro?j'y suis presque mais....

Bonsoir

J'ai une macro , je voudrais quelle se génére que sur toutes les feuilles actives mais je n' y arrive pas ,je suis au stade d'une feuille c'est à dire qu'elle se génére que sur la page 2

On croirait lire que vous souhaiteriez une duplication automatique de son code programmé ce qui impliquerait que vous sachier déjà cela possible, ce que l'imprécision qu'elle contient dément:

sur toutes les feuilles actives

car il n'y a toujours qu'une seule feuille active dans un seul classeur actif.
Alors veuillez réexpliquez ce que vous voulez exactement.
À+

 

[Kiseki]

Re : Adapter une macro?j'y suis presque mais....

Bonjour,

Je ne comprend pas bien ce que tu souhaite.


Tu t'amuse beaucoup pour la mise en forme que tu peux le faire en une seule ligne.


A part un simple copier/coller je ne vois pas très bien ce que tu aimerai faire.


Pourrais tu détailler et si besoin nous joindre le fichier ?

 

[Fo_rum]

Re : Adapter une macro?j'y suis presque mais....

Bonsoir

si tu veux copier une plage d'une feuille sur plusieurs onglets, tu peux essayer :

Sub test()
    Dim Nom, n As Byte
    Nom = Array("F3", "F4", "F8")          'nom des feuilles sur lesquelles on doit copier
    For n = 0 To 2                              'de 0 à 2 : 3 feuilles
    Sheets(1).Range("A1:N1").Copy Sheets(Nom(n)).Range("A1")
    Next
End Sub