Accélérer une macro

[ascal44]

Bonjour à tous ,
comment accélérer l'exécution d'une macro ?

Sub MACRO7()
'
' J'ai une macro qui sélectionne plusieurs cellule à la suite afin d'exécuter un événement
'dans "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" (200 cellules sélectionnées)

'Comment rendre l'opération plus rapide ?

Application.ScreenUpdating = False
    Range("B4").Select
    Range("B5").Select
     Range("B6").Select
      Range("B7").Select
       Range("B7").Select
        Range("B8").Select
         Range("B9").Select
          Range("B9").Select
           Range("B10").Select
            Range("B11").Select
             Range("B12").Select
              Range("B13").Select
  Application.ScreenUpdating = True
   
End Sub

 

[MJ13]

Re : Accélérer une macro

Bonjour

Essayes avec: for each (euh non cela ne marchera paut-être pas à moins de nommer ta zone). Sinon est-ce que la macro doit faire la même chose pour toutes les cellules.

Un fichier serait le bienvenu.

 

[Paritec]

Re : Accélérer une macro

bonjour ascal 44,Mj 13 le forum,
déjà tu peux faire
range("B4:B13")
cela t'évitera des pages d'écritures inutiles
bonne journée
Papou

 

[MJ13]

Re : Accélérer une macro

Bonjour Paritec

J'y avais pensé au départ mais pas sur que ce soit ce qu'il veuille vraiment.

C'est pour cela qu'on demande des fichiers.

 

[Paritec]

Re : Accélérer une macro

Bonjour MJ13,
oui c'est sur que l'on ne sait pas ce qu'il fait après, avec, mais une certitude si sa macro se limite à l'action qu'il nous a mis la solution est donnée.
En plus il pose des questions on répond et il ne les lit même pas alors !!! ???
bonne journée MJ 13
a+
Papou

 

[Lii]

Re : Accélérer une macro

Bonjour,

Si tu veux, avec une macro évènementielle, lancer une «Action» lors d’un click sur une des cellules d’une plage (ici, B4 :B13) teste :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub 'possibilité de sélectionner une plage sans l'action
  If Not Application.Intersect(Target, Range("B4:B13")) Is Nothing Then
      Action
  ...

 

[Pierrot93]

Re : Accélérer une macro

Bonjour à tous

Pas sur d'avoir tout compris, mais si tu mets des "select" dans une procédure "Worksheet_SelectionChange", celle-ci risque fort de boucler sur elle même. A te lire avec un peu plus de détails.

bonne journée
@+