Macro ecarts max de cellule vides

bonjour

on m'a fait une macro pour compter les ecarts max de cellule vides

fonctionne bien mais uniquement les lignes ...

je voudrais la meme fonction pour les colones voici la macro

peut on changer quelque chose pour pour les colones ,

Option Explicit

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

merci pour une reponse

Edition: Par Mytå, pour mise en place de la balise Code

Salut Jean et le forum

Voila le code modifier pour une colonne

Function VideColonne(ZZ As Range)
Application.Volatile
Dim Cel As Range
Dim Nbre As Long
Dim Temp As Long

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
VideColonne = Temp
End Function

Et ici le code pour les deux choix (ligne ou colonne)

Function Vide(ZZ As Range)
Application.Volatile
Dim Cel As Range
Dim Nbre As Long
Dim Temp As Long

If ZZ.Columns.Count > 1 And ZZ.Rows.Count > 1 Then
MsgBox "Une seule colonne ou 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

Mytå

merci super la reponse aussi vite

bon week end

petit probleme il me marque #NOM?

Re Jean

As-tu remplacé ton ancienne fonction par la dernière qui fait les deux ?

Mytå

j'avais juste mis la colone

l'autre fonctionne c'est reglé pour moi merci et bon week