Problème de Macros

Question

Bonjour tt le monde, je suis nouveau dans le forum alors j'espère avoir votre aide c'est urgent !!

Mon problème est que j'ai créé deux macros sur le mm onglet avec bouton affecté à chacune des deux, par contre quand je clique sur l'une des deux ça me montre aussi le résultat de la 2ème.

En gros, je veux que ça soit sur le mm onglet et quand je clique sur un bouton, ça m'ouvre uniquement la macro concernée.

D'avance merci

MFerrand · Answer

Sans illustration (fichier), on ne voit pas très bien ce que tu veux dire ...

MFerrand · Answer

Macros enregistrées ! Tu ne vas pas nous faire lire un tel machin sans indentation et hors balises Code ! C'est un cauchemar ...

MFerrand · Answer

Déjà une macro enregistrée, c'est par définition pénible à lire, car truffée d'au moins 50% de code inutile...

La donner à lire : la moindre des choses est d'en coller une copie provenant du Module et le mettre sous balises Code : bouton </>. Ce n'est pas la panacée mais c'est déjà mieux.

Il est sans doute encore mieux de la donner à lire dans son fichier, on la lira alors dans le module et on pourra voir l'illustration de ce qu'elle fait. On peut également ajouter ce qu'on veut faire, ce qui permettra d'éviter de la lire et d'en écrire directement une qui fera ce qu'on souhaite en beaucoup moins de code et plus vite...

Cordialement.

MFerrand · Answer

D'abord ce ne sont pas les mêmes macros, on va encore se perdre en conjectures...

Si ça peut t'inspirer, voilà la première de ton fichier, un peu expurgée :

Sub Macro1()
    With Worksheets("CA")
        .Range("C7") = "123456"
        .Range("D7") = "234567"
        .Range("C7:D7").AutoFill .Range("C7:N7"), xlFillDefault
        .Range("C9") = "456789"
        .Range("D9") = "567894"
        .Range("C9:D9").AutoFill .Range("C9:N9"), xlFillDefault
        .Range("C11") = "789123"
        .Range("D11") = "894123"
        .Range("C11:D11").AutoFill .Range("C11:N11"), xlFillDefault
        .Range("C13") = "589632"
        .Range("C13").AutoFill .Range("C13:N13"), xlFillDefault
        .Range("C5").Formula = "=SUM(C7:C13)"
        .Range("C5").AutoFill .Range("C5:N5"), xlFillDefault
        .Range("O5").Formula = "=SUM(C5:N5)"
        .Range("O5").Copy
        .Range("O7,O9,O11,O13").PasteSpecial xlPasteFormulas
        .Range("N5:N14").Copy
        .Range("O5:O14").PasteSpecial xlPasteFormats
        .Range("O4:O14").BorderAround xlContinuous, xlThin
    End With
End Sub

Je n'oserais vraiment pas dire tout de même que c'est ainsi qu'il faut l'écrire, car ce type de macro ne sert à rien et le mieux est de ne pas l'écrire du tout...

S'il s'agit d'apprêter un tableau, on le fait, on le met en forme, on place les formules... c'est rapidement fait. Et ça se fait une fois !

S'il s'agissait de générer un tableau type à de multiples exemplaires, encore faudrait-il voir le contexte du projet, pourquoi pas une macro ? Mais garnir de chiffres arbitraires le tableau n'a pas de sens, et si on le génère, c'est alors en totalité, à partir de la feuille vierge... et avec une macro de ce type on est loin du compte alors.

Bref, je considère qu'il s'agit d'un amusement, à mon avis sans intérêt. La seconde est du même tonneau, pas la peine de s'y attarder. Donc amuse toi bien !

Quant au problème soulevé au départ, les deux macros opérant dans des zones distinctes, sans aucun recoupement, il n'a pas d'existence !