salut tout le monde
j'ai le meme probleme que aizen64 dans cette discussion.
g un classeur excel avec 4 feuilles
mon programme fait plein de manip sur des valeurs tirées des différentes feuilles.
je veux arrêter mon programme si je tombe sur une cellule vide au cours de l'exécution avec un message d'erreur mentionnant la cellule vide.
ce que g fait
jusque là c bon mais le problème réside lorsque je fait l'appel de la procédure.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub EmptyCell(cell As Range) If cell.Value = "" Then MsgBox "la cellule (" & cell.Row & "," & cell.Column & ") est vide, fin du programme" End End If End Sub
exp:
là, un message d'erreur apparait en me disant: "Objet requit"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Set currentCell = Range("Feuil1!B1") EmptyCell (currentCell)
pour info, la procédure fonctionne correctement si je l'appelle ainsi:
mais moi je dois impérativement utiliser la commande Range car je parcourt differentes feuilles
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 EmptyCell (Cells(1,1))
merci d'avance pour votre aide
P.S je travaille sur excel 2003
Partager