XL 2016 Tester si cellule vide existe

[KTM]

Bonsoir chers amis du forum
je voudrais repérer la cellule vide contenue dans ma plage A1:M500
Merci et excellente fin de journée.

 

[djidji59430]

Bonjour à tous,

Il n'y en a qu'une ?

si oui, un exemple :

 

[KTM]

Bonjour à tous,

Il n'y en a qu'une ?

si oui, un exemple :

MERCI pour la formule.C'est super.
Mais j'aimerais faire le test par vba.
Est ce possible ?

 

[djidji59430]

Certainement, mais pas par moi !
pose ta nouvelle question en disant que tu veux une reponse en VBA


Crdlmt

 

[job75]

Bonsoir KTM, djidji59430,

Testez :

Dim c As Range
With [A1:M500] 'plage à adapter
    Set c = .Find("", .Cells(.Rows.Count, .Columns.Count), xlFormulas)
End With
If Not c Is Nothing Then MsgBox c.Address(0, 0), , "Première cellule vide" 'pour tester

A+

 

[KTM]

Bonsoir KTM, djidji59430,

Testez :

Dim c As Range
With [A1:M500] 'plage à adapter
    Set c = .Find("", .Cells(.Rows.Count, .Columns.Count), xlFormulas)
End With
If Not c Is Nothing Then MsgBox c.Address(0, 0), , "Première cellule vide" 'pour tester

A+

Merci Job75
c'est exactement ce que je cherchais
Bonne soirée à vous !!

 

[patricktoulon]

salut
en matricielle sans sommeprod
=ADRESSE(MAX(LIGNE(E5:G9)*(E5:G9=""));MAX(COLONNE(E5:G9)*(E5:G9="")))

et pour le vba
ben tu t’embête pas tu evalue la formule

Sub TEST()
MsgBox Evaluate("=ADDRESS(MAX(ROW(E5:G9)*(E5:G9="""")),MAX(COLUMN(E5:G9)*(E5:G9="""")))")
End Sub

edit:
et avec la gestion d'erreur

formule
= SIERREUR( ADRESSE(MAX(LIGNE(E5:G9)*(E5:G9=""));MAX(COLONNE(E5:G9)*(E5:G9="")));"")

vba

Sub TEST()
MsgBox Evaluate("=IFERROR(ADDRESS(MAX(ROW(E5:G9)*(E5:G9="""")),MAX(COLUMN(E5:G9)*(E5:G9=""""))),"""")")
End Sub

 

[KTM]

salut
en matricielle sans sommeprod
=ADRESSE(MAX(LIGNE(E5:G9)*(E5:G9=""));MAX(COLONNE(E5:G9)*(E5:G9="")))

et pour le vba
ben tu t’embête pas tu evalue la formule

Sub TEST()
MsgBox Evaluate("=ADDRESS(MAX(ROW(E5:G9)*(E5:G9="""")),MAX(COLUMN(E5:G9)*(E5:G9="""")))")
End Sub

edit:
et avec la gestion d'erreur

formule
= SIERREUR( ADRESSE(MAX(LIGNE(E5:G9)*(E5:G9=""));MAX(COLONNE(E5:G9)*(E5:G9="")));"")

vba

Sub TEST()
MsgBox Evaluate("=IFERROR(ADDRESS(MAX(ROW(E5:G9)*(E5:G9="""")),MAX(COLUMN(E5:G9)*(E5:G9=""""))),"""")")
End Sub

Merci !!!