Bonjour,
comme indiqué dans l'intitulé, je me trouve face à un problème de "lourdeur" de macro. La macro concernée vérifie la valeur d'une série de cellule, si la valeur d'une de ces cellules est "1" elle appel l’exécution d'une autre macro puis RAZ cette même cellule.
EX:
If Range("CT29") = 1 Then
Call msp7Xdessouscible
Range("CT29").ClearContents
End If
If Range("CT39") = 1 Then
Call msp7Xdessuscible
Range("CT39").ClearContents
End If
If Range("CT49") = 1 Then
Call msp7Xdescendant
Range("CT49").ClearContents
End If
If Range("CT59") = 1 Then
Call msp7Xmontant
Range("CT59").ClearContents
End If
If Range("CU29") = 1 Then
Call msp7Xdessouscible
Range("CU29").ClearContents
End If
If Range("CU39") = 1 Then
Call msp7Xdessuscible
Range("CU39").ClearContents
End If
If Range("CU49") = 1 Then
Call msp7Xdescendant
Range("CU49").ClearContents
End If
If Range("CU59") = 1 Then
Call msp7Xmontant
Range("CU59").ClearContents
End If
etc...etc...
Le problème est que, comme vous pouvez le voir, ces codes ne traitent que 2 colonnes de cellules alors que mon tableau en comporte 90(je vous laisse faire le calcul...). Je reste persuadé qu'il y a possibilité de "compacter" ce code mais je ne sais pas comment m'y prendre...je me suis renseigné sur le système de "boucle" mais je n'ai réussi à le transposer à mon problème. Je me tourne donc une nouvelle fois vers vous et votre savoir.
Veuillez trouver en PJ une copie "allégé" de mon d'origine
La macro ce trouve dans le code de la feuille "avril"
merci par avance
comme indiqué dans l'intitulé, je me trouve face à un problème de "lourdeur" de macro. La macro concernée vérifie la valeur d'une série de cellule, si la valeur d'une de ces cellules est "1" elle appel l’exécution d'une autre macro puis RAZ cette même cellule.
EX:
If Range("CT29") = 1 Then
Call msp7Xdessouscible
Range("CT29").ClearContents
End If
If Range("CT39") = 1 Then
Call msp7Xdessuscible
Range("CT39").ClearContents
End If
If Range("CT49") = 1 Then
Call msp7Xdescendant
Range("CT49").ClearContents
End If
If Range("CT59") = 1 Then
Call msp7Xmontant
Range("CT59").ClearContents
End If
If Range("CU29") = 1 Then
Call msp7Xdessouscible
Range("CU29").ClearContents
End If
If Range("CU39") = 1 Then
Call msp7Xdessuscible
Range("CU39").ClearContents
End If
If Range("CU49") = 1 Then
Call msp7Xdescendant
Range("CU49").ClearContents
End If
If Range("CU59") = 1 Then
Call msp7Xmontant
Range("CU59").ClearContents
End If
etc...etc...
Le problème est que, comme vous pouvez le voir, ces codes ne traitent que 2 colonnes de cellules alors que mon tableau en comporte 90(je vous laisse faire le calcul...). Je reste persuadé qu'il y a possibilité de "compacter" ce code mais je ne sais pas comment m'y prendre...je me suis renseigné sur le système de "boucle" mais je n'ai réussi à le transposer à mon problème. Je me tourne donc une nouvelle fois vers vous et votre savoir.
Veuillez trouver en PJ une copie "allégé" de mon d'origine
La macro ce trouve dans le code de la feuille "avril"
merci par avance