Contact: 514-605-7112 / info@lecfomasque.com

Sélectionner onglets pairs ou impairs

Ce sujet a 17 réponses, 2 participants et a été mis à jour par  Philgood.001, il y a 1 an et 2 mois.

3 sujets de 16 à 18 (sur un total de 18)
  • Auteur
    Messages
  • #35254

    Philgood.001
    Participant

    Bonsoir,

    Désolé Francis. Je m’aperçois que vous me vous-voyez et que je vous tutoie…
    Toutes mes excuses! Je m’aligne et passe donc au vouvoiement.
    A très bientôt.
    Bonne soirée.

    Philgood.001.

    #35255

    francispaquet
    Participant

    Bonsoir,

    Des boutons ActiveX différents, un sur chaque feuille, peuvent être tous liés à la même macro VBA sans aucun problème…

    • Cette réponse a été modifiée le il y a 1 an et 9 mois par  francispaquet.
    #39547

    Philgood.001
    Participant

    Bonsoir Francis,

    Toutes mes excuses pour avoir laissé ce post en l’état…
    Depuis le temps…

    Je reviens donc dessus pour en finir avec cette question.
    Je rappelle la question posée :

    Comment relier un bouton Active X identique sur plusieurs onglets à une seule macro?

    – Au début, j’avais copié-collé la même macro sur toutes les feuilles VBA.
    Mais pour chaque modif. ou amélioration du code, je devais refaire la même manip pour
    toutes les feuilles…

    – Après votre réponse quant à la possibilité de le faire, j’ai trouvé une solution
    alternative :

    Recopier une commande simple dans chaque feuille VBA appelant la macro dans le Module1 où
    se trouvait le code à exécuter, ce qui donne :

    * Sheet :

    `Private Sub ViderCellules_Click()

    ‘ VIDER_CELLULES Macro

    ‘Call ViderCellules
    ViderCellulesModule

    End Sub`

    * Module1 :

    `Sub ViderCellulesModule()

    ‘ VIDER_CELLULES Macro
    Range(« C7:D10,F7:G10,C13:D14,F13:G14,C16:D23,F16:G23,C25:D30,F25:G30,C32:D35,F32:G35,C38:D39,F38:G39,C41:D42,F41:G42,C44:D45,F44:G45,C47:D50,F47:G50,C52:D56,F52:G55 »).Select
    Selection.ClearContents

    ActiveSheet.Next.Select

    Range(« B7:C34 »).Select
    Selection.ClearContents

    Range(« C34 »).Select

    ActiveSheet.Previous.Select

    Range(« D7 »).Select

    End Sub`

    Cette méthode fonctionne parfaitement, mais je me rends compte que si toutes mes feuilles sont déjà créées et que je décide d’ajouter ce bouton sur chacune d’entre elles, cela devient très long à faire.
    Y-a-t’il une solution qui joigne directement le bouton de chaque feuille à la macro du Module1 plutôt que de passer par l’intermédiaire de chaque « sheet »?

    Merci à vous Francis.

    Philgood.001.

3 sujets de 16 à 18 (sur un total de 18)

Vous devez être connecté pour répondre à ce sujet.