Pb avec code Tester cellule vide

[loulou14]

Bonjour

J'ai un problème avec un code qui, entre autre, me permet de tester si il existe une cellule vide dans la plage de cellule allant de A4:I4 jusqu'à la dernière ligne non vide.

Or même lorsque toutes les cellules sont non vides, la macro me renvoie une cellule non vide (Colonne A et première ligne vide).
J'ai cherché, je ne vois pas d'erreur dans mon code

Pouvez-vous m'indiquer si vous voyez ce que je ne suis pas capable de voir ?

 

[loulou14]

Le code utilisé et qui me pose problème

For Each Cel In Sheets("BROUILLON IQF").Range("A4:I4" & Sheets("BROUILLON IQF").Range("A65536:I65536").End(xlUp).Row)

If Cel.Value = "" Then 'si elle est vide alors

'message à l'utilisateur

MsgBox "La cellule : " & Cel.Address & " IS EMPTY"

'sortie de la procédure

Cel.Activate

Exit Sub

End If

Next

 

[Papou-net]

Bonsoir loulou14,

Apparemment, une erreur dans la première ligne de la boucle.

Essaie comme ceci:

For Each Cel In Sheets("BROUILLON IQF").Range("A4:I" & Sheets("BROUILLON IQF").Range("A65536:I65536").End(xlUp).Row)

Cordialement.

 

[loulou14]

Merci Papou-Net pour votre réponse.

Malheureusement je ne confirme pas la solution.

Je précise que cette boucle est la première du programme. Donc aucune action avant qui modifierai la structure de la base de données.

Cordialement

 

[loulou14]

Bonjour à tous

Finalement je me suis résolu à réduire la largeur de mon range...mais sans comprendre pourquoi le code initial ou celui proposé par PAPOU-NET ne fonctionnent pas
Au final
For Each Cel In Sheets("BROUILLON IQF").Range("A4:I" & Sheets("BROUILLON IQF").Range("B65536:I65536").End(xlUp).Row)