Macro trop grande

[Bérengère]

Bonjour à tous,
J'ai fait une macro mais qui se trouve être trop grande au moment de l'éxécuter (voir mon fichier joint). Etant débutante sur excel, je n'arrive pas à modifier ma macro. Pourriez-vous m'aider?
Merci d'avance
Bérengère

 

[ROGER2327]

Re : Macro trop grande

Bonjour Bérengère

Essayez ceci :

[COLOR="DarkSlateGray"]Sub somme()
Dim total, valeur As Range
ReDim total(1 To 6, 1 To 70)
   For Each valeur In Range("C4:BT80").Cells
      Select Case valeur.Font.ColorIndex
         Case 10: total(1, valeur.Column - 2) = total(1, valeur.Column - 2) + valeur.Value
         Case 46: total(2, valeur.Column - 2) = total(2, valeur.Column - 2) + valeur.Value
         Case 13: total(3, valeur.Column - 2) = total(3, valeur.Column - 2) + valeur.Value
         Case 7: total(4, valeur.Column - 2) = total(4, valeur.Column - 2) + valeur.Value
         Case 44: total(5, valeur.Column - 2) = total(5, valeur.Column - 2) + valeur.Value
         Case 5: total(6, valeur.Column - 2) = total(6, valeur.Column - 2) + valeur.Value
      End Select
   Next valeur
   Range("C85:BT90").Value = total
End Sub[/COLOR]

ROGER2327
#1989

 

[Bérengère]

Re : Macro trop grande

bonjour Roger2327,
Je viens d'essayer ta macro, impec ça marche bien!
Merci beaucoup.
Bérengère