Tester s'il existe une cellule vide dans un champ

[natorp]

Bjr à toutes et tous

J'ai besoin de tester (en VBA) s'il existe une ou plusieurs cellules vide(s) dans la liste variable

J'ai mis des explications dans le fichier joint

Merci de votre aide, cordialement, Gérard

 

[job75]

Re : Tester s'il existe une cellule vide dans un champ

Bonjour Gérard,

Par exemple :

Sub Macro()
Dim plage As Range, n&
Set plage = Range("A1", [A65536].End(xlUp))
n = Application.CountBlank(plage)
If n Then MsgBox "Il y a " & n & " cellule(s) vide(s)...": Exit Sub
'suite du code
End Sub

Nota : CountBlank c'est NB.VIDE, on pourrait aussi utiliser cette fonction dans la feuille.

A+

 

[natorp]

Re : Tester s'il existe une cellule vide dans un champ

Bonsoir Job75

Merci c'est tout à fait ça, pour le fun est-ce qu'il serait possible la boite de dialogue indique quelle est ou quelles sont les cellules vides ?

Sinon, c'est déjà super, merci beaucoup, bonne soirée, Gérard

 

[job75]

Re : Tester s'il existe une cellule vide dans un champ

Re,

Ceci fonctionnera bien s'il n'y a pas de texte vide "" :

Sub Macro()
Dim plage As Range, n&
Set plage = Range("A1", [A65536].End(xlUp))
n = Application.CountBlank(plage)
If n Then
  Set plage = plage.SpecialCells(xlCellTypeBlanks)
  MsgBox "Il y a " & n & " cellule(s) vide(s) :" _
    & vbLf & Replace(plage.Address(0, 0), ",", ", ")
  Exit Sub
End If
'suite du code
End Sub

A+

 

[R@chid]

Re : Tester s'il existe une cellule vide dans un champ

Bonsoir @ tous,
pour le Fun, une solution par formule...
Amicalement

 

[natorp]

Re : Tester s'il existe une cellule vide dans un champ

Merci à R@chid, c'est sympa mais je souhaite l'intégrer à une macro...

Job75 : c'est super, mais j'ose abuser, lorsque la boite de dialogue apparaît avec la ou les cellules vides, est-il possible qu'après avoir cliqué sur "Ok" la cellule active soit la première cellule vide ?

Merci , cordialement, Gérard

 

[job75]

Re : Tester s'il existe une cellule vide dans un champ

Bonjour natorp, R@chid, le forum,

Sub Macro()
Dim plage As Range, n&, ad$
Set plage = Range("A1", [A65536].End(xlUp))
n = Application.CountBlank(plage)
If n Then
  Set plage = plage.SpecialCells(xlCellTypeBlanks)
  ad = Replace(plage.Address(0, 0), ",", ", ")
  Range(Split(ad, ", ")(0)).Select
  MsgBox "Il y a " & n & " cellule(s) vide(s) :" & vbLf & ad
  Exit Sub
End If
'suite du code
End Sub

Fichier joint.

A+

 

[natorp]

Re : Tester s'il existe une cellule vide dans un champ

Super, merci beaucoup

Un régal !!!

Bonne journée, Gérard