Macro sur toutes les feuilles
Fermé
goffdelfo
-
Modifié par pijaku le 3/02/2017 à 07:52
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 3 févr. 2017 à 08:11
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 3 févr. 2017 à 08:11
A voir également:
- Macro sur toutes les feuilles
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro fusionner plusieurs feuilles excel en une seule - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
3 févr. 2017 à 07:56
3 févr. 2017 à 07:56
Bonjour,
j'ai plusieurs feuilles avec des tableaux les uns sous les autres
Quel est le Range utile pour chaque feuille?
j'ai plusieurs feuilles avec des tableaux les uns sous les autres
Quel est le Range utile pour chaque feuille?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 3/02/2017 à 08:15
Modifié par pijaku le 3/02/2017 à 08:15
Re-
Regarde cette fonction :
Pour rouge sur feuil1 :
=CompterCouleur(3;"Feuil1")
Pour vert sur feuil2 :
=CompterCouleur(14;"Feuil2")
Pour orange sur Feuil1, Feuil2 et Feuil3 :
=CompterCouleur(46;"Feuil1";"Feuil2";"Feuil3")
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
Regarde cette fonction :
Function CompterCouleur(couleur As Long, ParamArray Feuilles() As Variant) As Long
Dim Cpt As Integer, i As Integer, j As Integer, F
Application.Volatile
For Each F In Feuilles
With Sheets(F)
i = 1
While i < 49
j = 1
While .Cells(i, j) <> ""
If .Cells(i, j).Interior.ColorIndex = couleur Then Cpt = Cpt + 1
j = j + 1
Wend
i = i + 12
Wend
End With
Next
CompterCouleur = Cpt
End Function
Pour rouge sur feuil1 :
=CompterCouleur(3;"Feuil1")
Pour vert sur feuil2 :
=CompterCouleur(14;"Feuil2")
Pour orange sur Feuil1, Feuil2 et Feuil3 :
=CompterCouleur(46;"Feuil1";"Feuil2";"Feuil3")
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je