Excel 2013 ne peut exécuter la macro

nistarok Messages postés 338 Statut Membre -  
nistarok Messages postés 338 Statut Membre -
Bonjour,

J'essaie de faire une macro toute simple sur excel 2013 qui consiste à remplir une case en noire.
Alors bon, j'enregistre ma macro, j'ouvre le format d'une cellule dans laquelle je lui donne le caractère de remplissage noir, je stoppe l'enregistrement, je crée mon bouton avec la macro liée, je choisis la case où je veux appliquer la macro, je clique et :

" Impossible d'exécuter la macro 'classeur1.xlsx!Bouton4_Cliquer'. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées. "

Je suis perplexe. Merci !

9 réponses

  1. nistarok Messages postés 338 Statut Membre 23
     
    up merci !
    0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Difficile sans voir le fichier
    Un exemple
    https://www.cjoint.com/?3EErCjoKcol

    RQ. Les boutons sont des objets ActiveX pris dans la boite à outils Contrôles

    Cdlmnt
    0
  3. nistarok Messages postés 338 Statut Membre 23
     
    Hello merci ccm81.
    Je t'avoue que je ne connais rien aux macros, et je tatonne seul.
    Voilà mon fichier, j'ai enregistré une macro avec les paramètres de la cellule A1, puis j'ai créé mon bouton.
    C'est quand je me positionne dans une autre cellule et que je clique sur le bouton, la macro ne fonctionne pas.

    https://www.cjoint.com/?3EEsywlHk9h
    0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Je ne peux pas lire ton fichier, peux tu l'envoyer au format excel 2003 (fichier/enregistrer sous/Type/ .....xls)
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Le format n'est pas le bon (je pense que tu as choisi .xlt)

    Essaies encore et au cas où copie ta macro ici
    0
  7. nistarok Messages postés 338 Statut Membre 23
     
    Pourtant mon fichier est bel et bien "classeur.xls"

    Bon ma macro est :

    Sub case_noire()
    '
    ' case_noire Macro
    '

    '
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    End Sub
    0
  8. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Essaies simplement

    Sub Case_Noire
    Selection.Interior.ColorIndex = 1
    End Sub
    0
  9. nistarok Messages postés 338 Statut Membre 23
     
    Mais c'est trop mortel, ça marche !
    Par contre ce que je saisi pas, c'est que j'ai suivi le tuto sur openclassroom à la différence que eux, ils voulaient changer la couleur du texte en rouge et en gras.

    J'ai juste changé le paramètre, je comprends pas pourquoi il me met un blabla inutile et qui ne fonctionne pas.

    Merci beaucoup !
    0