nombre d'occurence d'une série de valeur

[jopont]

Bonsoir,
Dans la fonction ci-dessous, je compte une période où il y a l'apparition de "A" ou de "" tant que je trouve une date en ligne 1 pour les feuilles concernées.
J'aimerais compter une période pour laquelle j'ai la série suivante : A A VIDE VIDE A A
Je ne sais pas comment faire
merci

Function periode(Optional lig As Long = 2)
    Application.Volatile    'selon le besoin…
    Dim Sh As Worksheet, c As Range
    Dim t As Integer, Cpte As Integer
    For Each Sh In Sheets
        If Sh.Name = "septembre" or Sh.Name = "octobre" Then
            If lig = 0 Then lig = 4
            Set c = Sh.Range("C" & lig)
            Do While IsDate(Sh.Cells(1, c.Column))
            If c = "A" Or IsEmpty(c) = True Then
                    Cpte = Cpte + 1
                Else
                    Cpte = 0
                End If
                If periode < Cpte Then periode = Cpte
                Set c = c(1, 2)
            Loop
        End If
    Next
End Function

 

[JCGL]

Re : nombre d'occurence d'une série de valeur

Bonjour à tous,

Peut-être comme ça mais pas testé...

Option Explicit

Function periode(Optional lig As Long = 2)
    Application.Volatile    'selon le besoin…
    Dim Sh As Worksheet, c As Range
    Dim t As Integer, Cpte As Integer
    For Each Sh In Sheets
        If Sh.Name = "septembre" Or Sh.Name = "octobre" Then
            If lig = 0 Then lig = 4
            Set c = Sh.Range("C" & lig)
            Do While IsDate(Sh.Cells(1, c.Column))
            If c = "A" And c + 1 = "A" Or IsEmpty(c) = True And IsEmpty(c + 1) = True Then
                    Cpte = Cpte + 1
                Else
                    Cpte = 0
                End If
                If periode < Cpte Then periode = Cpte
                Set c = c(1, 2)
            Loop
        End If
    Next
End Function

A + à tous

 

[jopont]

Re : nombre d'occurence d'une série de valeur

bonsoir,

Merci mais ce code ne fonctionne pas.
Cela vient-il du fait que l'on fait c + 1 et puis en fin de procédure on met set c(1,2)

 

[jopont]

Re : nombre d'occurence d'une série de valeur

J'ai essayé avec offset mais non concluant:

If c = "G" And ActiveCell.Offset(0, 1).Value = "G" Or IsEmpty(c) = True And IsEmpty(ActiveCell.Offset(0, 1)) = True Then

Je voudrais avoir le nombre de fois ou j'ai : A A vide vide vide vide A A
merci

 

[jopont]

Re : nombre d'occurence d'une série de valeur

bonjour,

Quelle peut-être la solution à mon problème ?

merci

 

[jopont]

Re : nombre d'occurence d'une série de valeur

Bonjour,
quelqu'un a-t-il une idée ?
merci

 

[Staple1600]

Re : nombre d'occurence d'une série de valeur

Bonjour à tous

Jopont:
Tu vas ouvrir combien de fils pour cette question ???

 

[JCGL]

Re : nombre d'occurence d'une série de valeur

Bonjour à tous,

Peut-être comme ça mais pas testé...

Tu n'as pas compris qu'avec un fichier joint il sera plus facile de tenter de t'aider...

A + à tous

 

[Staple1600]

Re : nombre d'occurence d'une série de valeur

Re, JCGL (salute)

Il ya déjà 3 fils pour une même question .. cela commence à faire beaucoup, non ?
https://www.excel-downloads.com/thr...gue-periode-avec-for-each-et-do-while.167276/
https://www.excel-downloads.com/thr...rande-serie-de-trois-types-de-valeurs.166067/
https://www.excel-downloads.com/threads/detection-de-la-plus-grande-plage-avec-3-valeurs.166199/

Ps: Une petite relecture de la charte ne serait pas inutile...

 

[jopont]

Re : nombre d'occurence d'une série de valeur

Il me semblait que la question était différente.

 

[JCGL]

Re : nombre d'occurence d'une série de valeur

Bonjour à tous,
Salut l'Agrafe,

Effectivement...
Et en plus les séquences à tester varient d'une discussion à l'autre et même d'un message à l'autre dans la même discussion.

A + à tous

 

[Staple1600]

Re : nombre d'occurence d'une série de valeur

Il me semblait que la question était différente.

Re,

jopont:
On parle dans tous les cas de la fonction période.

PS: tu ne daignes pas me dire bonjour...
Décidément il est urgent de relire la charte

 

[jopont]

Re : nombre d'occurence d'une série de valeur

Voici le fichier d'exemple
merci et bonjour à stapple