Nombre cellules consécutives

Bonjour

une piste :

Si par ex plage de CCCPP etc en B1:M1
En B2 mettre la formule =SI(B1=A1;A2&B1;B1) et l'étirer jusqu'à la fin de la plage
(ça regroupe les C)
En B3 mettre : =SI(OU(C2="P";C2="");B2;"") et étirer
(ne retient que les groupes avant P ou vide )
En B4 mettre =NB.SI(B3:P3;"C")+NB.SI(B3:P3;"CC")*2+NB.SI(B3:P3;"CCC")*3
(comptabilise les groupes de 1 à 3 C)

Cordialement

Bonjour à tous

Si les macros ne te font pas peur, on peut passer avec une seule formule
https://www.cjoint.com/?3BbkcSgPrmc

Alt-F11 pour voir la macro

Dans ton classeur
Alt-F11 pour passer dans l'editeur VBA
Insertion/Module
Copier le tout

Bonne suite

Je suis favorable à la macro (éviter que les utilisateurs ne touchent aux formules et éviter de créer encore plus de lignes ou colonnes qu'il n'y a déjà dans mon tableur), mais elle ne fonctionne pas... Pour info:

- Ma 1ère cellule qui peut contenir un P est en Q15
- J'ai enregistré la macro dans une feuille 'Module 2' car j'ai déjà une fonction 'explicit' dans la feuille 'Module 1' (si j'enregistre la macro dans le 'module 1' à la suite de l'autre macro 'explicit', la macro 'bugue')

Encore MERCI!

Bon tout fonctionne, il ne s'agissait que d'un problème de C au lieu de c :-)
Trop cool, merci à tous!!

Explicit n'est pas une macro mais une directive de compilation qui oblige à déclarer les variables, donc s'il y a deux Option Explicit, tu en supprimes une

pour les problèmes de majuscule/minuscule tu as la fonction Ucase

bonne suite

Autre "problème" sur un compteur de cellules...
si la dernière cellule est un H, je souhaite compter ce H + le nombre de H qui précèdent:

P P P H H H H H H H H P P P P Résultat attendu = 0 (dernière cellule ? H)
P P P C C P H H H P P C H H H Résultat attendu = 3 (dernière cellule = H + 2 H qui précèdent)
H P H P H C H H H H H H H H H Résultat attendu = 9 (dernière cellule = H + 8 H qui précèdent)

Merci :-)

Bonjour

Une solution

Public Function CompteDer(c As String, plage As Range) As Long
Dim ch As String, nbc As Long, cel As Range
ch = ""
For Each cel In plage
  ch = ch & cel.Value
Next cel
If Right(ch, 1) <> c Then
  CompteDer = 0
Else
  nbc = 0
  While Right(ch, 1) = c
    nbc = nbc + 1
    ch = Left(ch, Len(ch) - 1)
  Wend
  CompteDer = nbc
End If
End Function

RQ. on doit pouvoir se passer de macro...

Bonne suite

Tu es beaucoup trop fort ! C'est un vrai plaisir que d'avoir aussi vite des solutions quand on est bloqués...

Encore MERCI ccm81

C'est remoi :)

Est-ce que à la fonction 'compteder' ci-dessous il est possible d'ajouter la condition 'si cellule = F ou X continuer le compteur' ?

Pour l'exemple :

P P P H H H F H H H H P P P P Résultat attendu = 0 (dernière cellule diff de H)
P P P C C P H H H P F F H H H Résultat attendu = 3 (dernière cellule = H + 2 H qui précèdent, 2 F avant mais un P)
H F H F X F H H H H X H H H H Résultat attendu = 10 (dernière cellule = H + 3 H qui précèdent, 1 X à ne pas comtper, 4 H, F et X à ne pas comtper, 1 H à compter, 1 F à ne pas comtper, 1 H)

(pour résumer, faire abstraction des F et des X)

Public Function CompteDer(c As String, plage As Range) As Long
Dim ch As String, nbc As Long, cel As Range
ch = ""
For Each cel In plage
ch = ch & cel.Value
Next cel
If Right(ch, 1) <> c Then
CompteDer = 0
Else
nbc = 0
While Right(ch, 1) = c
nbc = nbc + 1
ch = Left(ch, Len(ch) - 1)
Wend
CompteDer = nbc
End If
End Function

Une solution à tester

Public Function CompteDerSauf(c As String, plage As Range, sauf As String) As Long
Dim ch As String, nbc As Long, cel As Range, s As String, k As Long
ch = ""
For Each cel In plage
  ch = ch & cel.Value
Next cel
' supprimer tous les caractères de s dans ch
If sauf <> "" Then
  For k = 1 To Len(sauf)
    ch = Replace(ch, Mid(sauf, k, 1), "")
  Next k
End If
If Right(ch, 1) <> c Then
  CompteDerSauf = 0
Else
  nbc = 0
  While Right(ch, 1) = c
    nbc = nbc + 1
    ch = Left(ch, Len(ch) - 1)
  Wend
  CompteDerSauf = nbc
End If
End Function

Appel =comptedersauf("H";A35:O35;"FX")

bonne suite