Calcul Nombre de cellule coloriée contenant un certain texte
Bonjour,
Je souhaite calculer le nombre de cellule d'une certaine couleur contenant un certain texte.
dans mon fichier je souhaite calculer toutes les cellule de couleur verte contenant la partie de texte LTE1D.
Bonjour Robin, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim CPT As Integer 'déclare la variable CPTL (ComPTeur)
For Each CEL In Worksheets("Feuil1").UsedRange 'boucle sur toutes les cellules éditées de l'onglet "Feuil1"
If InStr(1, CEL.Value, "LTE1D", vbTextCompare) <> 0 Then 'condition : si la cellule contient le texte "LTE1D"
If CEL.Interior.Color = 5296274 Then CPT = CPT + 1 'si la cellule est de couleur verte, incrémente le compteur CPT
End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
MsgBox CPT 'affiche le compteur CPT
End SubBonjour,
Comment j’insère cette macro ?
En faite je voudrais faire apparaitre le résultat à la fin de la colonne.
Bonjour,
Comment j’insère cette macro ?
Bonjour,
Depuis la feuille Excel :
> Alt + F11
> Insertion/Module
> Copier-coller le code de ThauThème.
Petite modif de ce code (salutations à ThauThème
Function CptColor(Plage As Range, Color As Long) As Long
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim CPT As Integer 'déclare la variable CPTL (ComPTeur)
For Each CEL In Plage 'boucle sur toutes les cellules éditées de la plage
If InStr(1, CEL.Value, "LTE1D", vbTextCompare) <> 0 Then 'condition : si la cellule contient le texte "LTE1D"
If CEL.Interior.Color = Color Then CPT = CPT + 1 'si la cellule est de couleur verte, incrémente le compteur CPT
End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
CptColor = CPT 'affiche le compteur CPT
End FunctionPour l'utiliser, le placer dans un module (comme indiqué plus haut), et, dans la feuille, saisir la formule : =CptColor(C4:C37;5296274)
C4:C37 : la plage à scruter / 5296274 : le code de la couleur (ici ton vert).
Pour retrouver un code couleur :
> Sélectionner une cellule et la colorer
> Aller sous VBE (Alt+F11)
> Afficher la fenêtre d'exécution (Affichage/fenêtre exécution ou Ctrl+G)
> Dans la fenêtre d'exécution saisir :
? ActiveCell.Interior.Color
Valider par Entrée, le code vous est alors donné dans la fenêtre.
Re,
1. Copie le texte entre la première et la dernière ligne.
2. Raccourci clavier [Alt]+[F8].
3. Dans le Champ Nom de la Macro : taper le nom que tu désires
3. Dans le champs Macro dans : choisir Ce Classeur
4. Cliquer sur le bouton Créer
5. Coller le texte copié
Pour lancer la macro, point 2, double-clic sur la macro...
MAGNIFIQUE...
Merci beaucoup, cela faisait 1 semaine que je trainais sur ce problème ....
Je vais aller à la FNAC acheter VBA pour les NULL...
Question : comment cloturer ce sujet ??