Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copier des objets (rectangles) sur plusieurs feuilles

Copier des objets (rectangles) sur plusieurs feuilles

16 réponses
Avatar
Pierre F.
Bonjour à toutes et à tous;

J'ai huit macros commandées par des boutons (= zones de textes à qui
j'ai chaque fois attribué une macro spécifique).

Je souhaite copier ces boutons sur toutes les feuilles de mon classeur
(12 onglets).

Comment faire ça simplement ??? (je ne peux pas copier la feuille
initiale car mes autres feuilles sont toutes différentes)

Merci.

Cordialement,
Pierre F.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
LSteph
Bonsoir,

peut-être avec cette macro

Sub collzi()
Dim i As Byte
Feuil1.Shapes.SelectAll
Selection.Copy
For i = 2 To Sheets.Count
Sheets(i).Activate
ActiveSheet.Paste
Next
End Sub

'lSteph
'(un rare cas où je me sens obligé de sélectionner)

Bonjour à toutes et à tous;

J'ai huit macros commandées par des boutons (= zones de textes à qui
j'ai chaque fois attribué une macro spécifique).

Je souhaite copier ces boutons sur toutes les feuilles de mon classeur
(12 onglets).

Comment faire ça simplement ??? (je ne peux pas copier la feuille
initiale car mes autres feuilles sont toutes différentes)

Merci.

Cordialement,
Pierre F.


Avatar
Pierre F.
Bonsoir,

peut-être avec cette macro

Sub collzi()
Dim i As Byte
Feuil1.Shapes.SelectAll
Selection.Copy
For i = 2 To Sheets.Count
Sheets(i).Activate
ActiveSheet.Paste
Next
End Sub



il bugge à la ligne :

Feuil1.Shapes.SelectAll

même si je remplace "Feuil1" par le nom de ma première feuille.

Merci.

Cordialement,
Pierre F.

Avatar
LSteph
...
L'exemple suppose tes rectangles en Feuil1
et selon ces conditions ne bugg pas chez moi...

@suite

Bonsoir,

peut-être avec cette macro

Sub collzi()
Dim i As Byte
Feuil1.Shapes.SelectAll
Selection.Copy
For i = 2 To Sheets.Count
Sheets(i).Activate
ActiveSheet.Paste
Next
End Sub



il bugge à la ligne :

Feuil1.Shapes.SelectAll

même si je remplace "Feuil1" par le nom de ma première feuille.

Merci.

Cordialement,
Pierre F.



Avatar
Pierre F.
...
L'exemple suppose tes rectangles en Feuil1
et selon ces conditions ne bugg pas chez moi...



Effectivement, si la première feuille est nommée Feuil1, ça marche :-))
quel quel soit le nom des autres feuilles.

Par contre avec un autre nom et même en modifiant la macro, ça bugge ??

Merci.

Les objets sont collée de manière décalée par rapport à la feuille 1...
chez toi aussi ??

A+
Pierre F.

Avatar
LSteph
...
Essaie ainsi, et remplace b2 par la cellule où se situe le coin
supérieur gauche de ton premier objet

Sub collzi()
Dim i As Byte
Feuil1.Shapes.SelectAll
Selection.Copy
For i = 2 To Sheets.Count
Sheets(i).Activate
[b2].Select 'je deteste devoir faire cela
ActiveSheet.Paste
Next
End Sub

...
L'exemple suppose tes rectangles en Feuil1
et selon ces conditions ne bugg pas chez moi...



Effectivement, si la première feuille est nommée Feuil1, ça marche :-))
quel quel soit le nom des autres feuilles.

Par contre avec un autre nom et même en modifiant la macro, ça bugge ??

Merci.

Les objets sont collée de manière décalée par rapport à la feuille 1...
chez toi aussi ??

A+
Pierre F.



Avatar
Pierre F.
...
Essaie ainsi, et remplace b2 par la cellule où se situe le coin
supérieur gauche de ton premier objet

Sub collzi()
Dim i As Byte
Feuil1.Shapes.SelectAll
Selection.Copy
For i = 2 To Sheets.Count
Sheets(i).Activate
[b2].Select 'je deteste devoir faire cela
ActiveSheet.Paste
Next
End Sub


C'est top !!!!!!!! Mille mercis !!

Cordialement,
Pierre F.

1 2