Comptage des plus grande série de trois types de valeurs

[jopont]

Bonjour,
Je cherche sur une à compter le plus grand nombre de valeurs consécutive.
Les valeurs peuvent être RF, P1 ou cellule vide.

J'ai réussi avec une fonction à compter les RF consécutifs, mais si il y a des cellules vides ou des valeurs P1,elles ne s'ajoutent pas.

J'ai une formule du type : compte( C4:BL4;"RF"; VRAI) elle fonctionne.

Mais si je met : compte (C4:BL4;OU("RF"; "P1";""); VRAI) ça ne fonctionne pas.

Comment résoudre ce problème
merci

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Une autre petite question en rapport, pour dire à excel d'assembler toute les plages C4:BL4 de plusieurs onglet.
Merci

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Bonsoir y-a-t-il quelqu'un pour me donner une solution.
merci

 

[Tibo]

Re : Comptage des plus grande série de trois types de valeurs

Bonsoir,

J'ai lu tes trois messages, mais sans fichier à l'appui, j'ai quelque peine à comprendre.

Un extrait de ton fichier serait donc le bienvenu.

A te (re)lire

@+

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Bonjour,

Voila un fichier d'exemple.

merci pour votre aide

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Bonsoir,

Quelqu'un aurait-il la solution à mon problème.

merci

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Bonjour,

Comment résoudre mon problème ?

Merci

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Est-ce possible ?
merci

 

[CISCO]

Re : Comptage des plus grande série de trois types de valeurs

Bonsoir

Le début d'une méthode, avec une ligne intermédiaire, en pièce jointe.

@ plus

 

[R@chid]

Re : Comptage des plus grande série de trois types de valeurs

Salut tout le monde,
salut jopont si j'ai bien compris, c'est peut etre ce que tu cherche

 

[david84]

Re : Comptage des plus grande série de trois types de valeurs

Bonsoir,
Code VBA à tester mais c'est une sub et non une fonction :

Sub test()
Dim Plage, i&, j&, Nb&, temp
    For i = 1 To Sheets.Count
    Set Plage = Sheets(i).Range("A1").CurrentRegion.Resize(1)
        For j = 1 To Plage.Cells.Count
            If (Plage(2, j) = "RF" Or Plage(2, j) = "P1" Or Plage(2, j) = "") And _
                (Plage(2, j + 1) = "RF" Or Plage(2, j + 1) = "P1" _
                Or Plage(2, j + 1) = "") Then
                    Nb = Nb + 1
                    If temp < Nb Then temp = Nb
            Else:
                Nb = 0
            End If
        Next j
    Next i
    temp = temp + 1
End Sub

A+

 

[jopont]

Re : Comptage des plus grande série de trois types de valeurs

Bonjour,

Softmama a trouvé la fonction suivante qui semble fonctionner :

Function compte()

Application.Volatile 'selon le besoin…
Dim c As Range, t As Integer, Cpte As Integer
For t = 1 To Sheets.Count
Set c = Sheets(t).[A2]
Do While c.Column < 32
If c = "RF" Or c = "" Or c = "P1" Then
Cpte = Cpte + 1
Else
If compte < Cpte Then compte = Cpte
Cpte = 0
End If
Set c = c(1, 2)
Loop
Next
End Function

je vais tester, et je joindrai le fichier.
merci