Coller un objet sur toutes les feuilles

Slt tlm, j'ai 2 flèches avec des macros affectés, l'une des flèches permet d'aller vers la feuille suivante et l'autre la feuille précédente. Le problème n'est pas là, mon soucis est que je dois avoir ces flèches sur tous mes onglets de mon excel, j'ai 200 onglets !!!!!!!!!!!!

bjr à t

je suppose que les 200 onglets sont identiques

supprime 199 onglets et mets tout sur un unique onglet

tout devient alors très simple

si besoin joins un peeeeeeeeetit fichier exemple

amitiés

je peux pas les supprimer. je dois coller ces putain de flèches au même endroit de ces 200 putain d'onglets !!!!!!!!!!!!!!!!!!!!

Bonjour,

Un mini fichier exemple avec l'endroit des flêches et la macro serait préférable à 200 smiley

voici en pièce jointe l'impression de mon écran

furkan a écrit :

je peux pas les supprimer. je dois coller ces putain de flèches au même endroit de ces 200 putain d'onglets !!!!!!!!!!!!!!!!!!!!

quel langage !

je refuse donc de continuer à t'aider

Bonjour,

Ici, on évite d'utiliser des mots grossiers car ça ne sert à rien et ne fait pas avancer le projet donc, évites !

Maintenant, voici une piste pour insérer deux flèches tête bêche avec une procédure pour chacune d'entre elles (exécuter la sub "Test()" puis dans la feuille Excel, cliquer sur les flèches pour voir les messages :

Sub Test()

    Dim Fe As Worksheet
    Dim Fleche As Shape
    Dim Gauche As Single
    Dim Haut As Single
    Dim Large As Single
    Dim Epais As Single
    Dim Esp As Single

    Set Fe = ActiveSheet

    Large = 20
    Epais = 20
    Gauche = Fe.Range("D10").Left
    Haut = Fe.Range("D10").Top

    Set Fleche = Fe.Shapes.AddShape(34, Gauche, Haut, Large, Epais)
    Fleche.OnAction = "AGauche"

    Esp = 3

    Gauche = Fleche.Left + Fleche.Width + Esp

    Set Fleche = Fe.Shapes.AddShape(33, Gauche, Haut, Large, Epais)
    Fleche.OnAction = "ADroite"

End Sub

Sub AGauche()

    MsgBox "Clic sur la flèche vers la gauche !"

End Sub

Sub ADroite()

    MsgBox "Clic sur la flèche vers la droite !"

End Sub

CA MARCHE PAS

IL ME FAUT UN MACRO POUR FAIRE COPIER/COLLER DE CES FLECHES SUR TOUTES LES FEUILLES

Bonjour,

Tu dis que ça ne marche pas ! Les flèches ne se crées pas ?

Si tu veux copier des Shapes, il te faut connaître leurs noms !

Ici, les flèches se nomment "FlecheGauche" et "FlecheDroite" (voir les noms dans la zone de nom à gauche de la barre de formule) à adapter. Les flèches sont collées dans la cellule D10 et E10. Les flèches copiées se trouvent sur la feuille "Feuil1", adapter le nom si différent :

Sub CopierShape()

    Dim Fe As Worksheet
    Dim FlecheGauche As Shape
    Dim FlecheDroite As Shape

    Set FlecheGauche = Worksheets("Feuil1").Shapes("FlecheGauche")
    Set FlecheDroite = Worksheets("Feuil1").Shapes("FlecheDroite")

    For Each Fe In Worksheets

        If Fe.Name <> "Feuil1" Then

            FlecheGauche.Copy: Fe.Paste Fe.Range("D10")
            FlecheDroite.Copy: Fe.Paste Fe.Range("E10")

        End If

    Next Fe

End Sub

J'ai DEJA les flèches avec leurs macros qui MARCHENT mais il faut que je copie colle ces flèches et ses macros sur TOUS LES ONGLETS DE MA FEUILLE EXCEL

BOnjour,

Je pense que si tu avais déposé un fichier excel pour exemple avec tes macro depuis le début ; Theze aurait déjà résolu ton problème sans que tu utilises des mots "déplacés" ou l'écriture en majuscule ( signe d'énervement sur les forum).