fonction plus longue période avec for each et do while

[jopont]

Bonjour,

Dans le code ci-dessous, vous trouverez un exemple de fonction "période"
Je cherche à compter la plus longue période sur deux mois qui comporte les motifs "RF" ou vide.
La fonction me renvoie 12 dans l'exemple alors qu'elle devrait renvoyer 10.
La fonction me renvoie toujours 2 de plus par rapport à la réalité

Function periode(Optional lig As Long = 2)
Application.Volatile 'selon le besoin…

Dim c As Range, t As Integer, Cpte As Integer
Dim Cell As Range
Dim Ws As Worksheet
If lig = 0 Then lig = 4
For Each Ws In Sheets(Array("janvier", "février"))
    For Each Cell In Ws.Range("C" & lig)
  Set c = Range("C" & lig)
  Do While IsDate(Cells(1, c.Column))
    If c = "RF" Or c = "" Then
    Cpte = Cpte + 1
    
    Else
      'If periode < Cpte Then periode = Cpte
      Cpte = 0
    End If
      If periode < Cpte Then periode = Cpte
    Set c = c(1, 3)
  Loop
Next Cell
Next Ws
End Function

merci pour votre aide

 

[Staple1600]

Re : fonction plus longue période avec for each et do while

Bonjour


Pourquoi ouvrir un second fil ?
La charte est explicite à ce sujet, non ?

PS: tu es inscrit depuis septembre 2005 (et moi depuis juin 2005)
Tu devrais donc le savoir comme je le sais

 

[jopont]

Re : fonction plus longue période avec for each et do while

Bonsoir,

Car je voulais joindre un nouveau fichier d'exemple, mais ce dernier était trop volumineux.
Désolé