Pb avec code Tester cellule vide

loulou14 · 2 Février 2017

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 · 2 Février 2017

Le code utilisé et qui me pose problème

VB:

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 · 2 Février 2017

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 · 3 Février 2017

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 · 7 Février 2017

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)

Pb avec code Tester cellule vide

loulou14

XLDnaute Nouveau

loulou14

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

loulou14

XLDnaute Nouveau

loulou14

XLDnaute Nouveau

Discussions similaires