XL 2019 cellule vide consecutive

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2021

• #2

Bonsoir @LEPATOCHE ,

Voyez la formule matricielle suivante en ai1 à recopier vers le bas:

=MAX(FREQUENCE(SI(A1:AH1="";COLONNE(A1:AH1));SI(A1:AH1<>"";COLONNE(A1:AH1))))

Cliquez pour agrandir...

 

Pièces jointes

• LEPATOCHE- Nbr cell. vide contigüe- v1.xlsx

  9.8 KB · Affichages: 4

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 10 Octobre 2021

• #3

Bonsoir mapomme ok ca marche bonne soiree a vous tous !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Octobre 2021

• #4

Bonsoir LEPATOCHE,, mapomme,

Le VBA évite de se prendre la tête, voyez cette fonction :

VB:

Function MaxVide(r As Range)
Dim rc&, i&, x$, deb&
rc = r.Count
For i = 1 To rc
    x = Trim(CStr(r(i)))
    If deb = 0 Then If x = "" Then deb = i
    If x <> "" Or i = rc Then
        If i - deb >= MaxVide Then MaxVide = i - deb + (i = rc) * (x = "")
        deb = 0
    End If
Next
End Function

Le code doit être impérativement dans un module standard.

Edit : remplacé > par >= pour traiter correctement la dernière cellule.

Formule en AI1 =MaxVide(A1:AH1)

A+

 

Pièces jointes

• cellule vide consecutive(1).xlsm

  14.9 KB · Affichages: 0

Dernière édition: 11 Octobre 2021

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 10 Octobre 2021

• #5

Rebonsoir job75 ca marche aussi ta formule encore merci bonne soiree a vous tous !

 

Vote positif 0 Vote négatif