bonjour
j'ai une macro pour compter les intervals max dans les lignes
comment faire pour avoir le meme calcul en colones
merci
Function Vide(ZZ As Range)
Application.Volatile
Dim Cel As Range
Dim Nbre As Byte
Dim Temp As Byte
If ZZ.Rows.Count > 1 Then
MsgBox "Une seule ligne Svp ?"
Exit Function
End If
For Each Cel In ZZ
If IsEmpty(Cel) Then
Nbre = Nbre + 1
Else
If Nbre > Temp Then Temp = Nbre
Nbre = 0
End If
Next Cel
Vide = Temp
End Function
j'ai une macro pour compter les intervals max dans les lignes
comment faire pour avoir le meme calcul en colones
merci
Function Vide(ZZ As Range)
Application.Volatile
Dim Cel As Range
Dim Nbre As Byte
Dim Temp As Byte
If ZZ.Rows.Count > 1 Then
MsgBox "Une seule ligne Svp ?"
Exit Function
End If
For Each Cel In ZZ
If IsEmpty(Cel) Then
Nbre = Nbre + 1
Else
If Nbre > Temp Then Temp = Nbre
Nbre = 0
End If
Next Cel
Vide = Temp
End Function