changer macro

[bingo57]

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

 

[Staple1600]

Re : changer macro

Bonjour



Si bingo57 est Jean57, alors tu as la réponse ici non?

Question identique ailleurs

 

[pierrejean]

Re : changer macro

bonjour bingo57

Function Videcol(ZZ As Range)
Application.Volatile
Dim Cel As Range
Dim Nbre As Byte
Dim Temp As Byte
If ZZ.Columns.Count > 1 Then
MsgBox "Une seule colonne 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
Videcol = Temp
End Function

 

[bingo57]

Re : changer macro

merci beaucoup staple1600 j'avais perdu le lien