Pb avec code Tester cellule vide

L

loulou14

XLDnaute Nouveau

• 2 Février 2017

• #2

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

 

Dernière édition: 2 Février 2017

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 2 Février 2017

• #3

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.

 

Vote positif 0 Vote négatif

L

loulou14

XLDnaute Nouveau

• 3 Février 2017

• #4

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

 

Vote positif 0 Vote négatif

L

loulou14

XLDnaute Nouveau

• 7 Février 2017

• #5

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)

 

Vote positif 0 Vote négatif