Macro trop longue

[head_tatty]

Bonjour à tous,🙂

J' ai une macro qui est trop longue et donc, que je ne peux pas executer. J' aimerais donc savoir quel est le nombre de ligne maximum d' une macro.
Ainsi, je pourrais "trancher" ma macro en plusieurs macros un minimum de fois.

Bonne journée à tous,

Cordialement,

 

[MJ13]

Re : Macro trop longue

Bonjour Head tatty

Il faut déjà le faire pour créer une macro très longue. Il me semble que cela ne m'est jamais arrivé

Le mieux est de voir pourquoi, elle est si longue (as tu utilisé l'enregistreur de macro par hasard?). Dans ce cas, il y a surement ds lignes qui ne servent à rien.

Sinon, tu peux déjà couper ta macro en 2 voir plus de macros. Tu pourras les lancer les unes derrière les autres dans un macro générale.

Une petite question: Tu as combien de lignes dans ta macro?

 

[head_tatty]

Re : Macro trop longue

Re,

Eh bien j' ai plus de 3000 lignes. En effet, j' ai utilisé l' enregistreur de macro. J ai effacé des lignes au fur et à mesure et la macro s' est executer quand il ne m' en restait que 1950.
Si il y a des lignes qui me servent à rien, cela va me prendre un temps fou à les supprimer. De plus j' utilise très souvent des macros longues.

Je vais donc maintenant couper mes macros en macro de 1950 lignes et puis je les executerais une par une.

Aurais-tu un exemple de macro générale ou je pourrais executer toute mes macros dans l' ordre ?

Cordialement,

 

[head_tatty]

Re : Macro trop longue

Bonjour Jean-Marcel,

🙂Merci

Que veux-tu dire par épurer ?

Cordialement,

 

[head_tatty]

Re : Macro trop longue

Bonjour,

D' accord. Dans le même contexte, j' ai une formule que j' aimerais épurer. En fait j' aimerais remplacer des nombres en couleur noir par les mêmes nombres en une couleur bleue.

Voici la formule non épurée :

    Cells.Replace What:="1957", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
    Cells.Replace What:="1960", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
    Cells.Replace What:="1961", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
    Cells.Replace What:="2005", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

Puis j' ai essayé de l' épurer mais ça ne marche pas:

Cells.Replace What:=("1957";"1960";"1961";"2005"), Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

Cordialement,

 

[JNP]

Re : Macro trop longue

Bonjour le fil 🙂,
La syntaxe exacte serait

Cells.Replace What:=Array("1957", "1960", "1961", "2005"), Replacement:=Array("", "", "", ""), LookAt:=xlWhole, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

pour lui dire que tu as plusieurs valeurs, mais malheureusement, Replace n'accepte pas les matrices, et n'utilise que la première valeur, donc seul 1957 est supprimé.
Du fait, il faut décrire les différentes valeurs et

Tableau = Array("1957", "1960", "1961", "2005")
For I = 0 To 3
Cells.Replace What:=Tableau(I), Replacement:="", LookAt:=xlWhole, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Next I

fonctionnera, ce qui épure quand même un petit peu 🙄.
Bon dimanche 😎

 

[head_tatty]

Re : Macro trop longue

Bonjour,

En effet, ça épure. Merci.

Bonne journée,

Cordialement,