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
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
jusque là c bon mais le problème réside lorsque je fait l'appel de la procédure.
exp:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Set currentCell = Range("Feuil1!B1")
   EmptyCell (currentCell)
là, un message d'erreur apparait en me disant: "Objet requit"

pour info, la procédure fonctionne correctement si je l'appelle ainsi:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
EmptyCell (Cells(1,1))
mais moi je dois impérativement utiliser la commande Range car je parcourt differentes feuilles

merci d'avance pour votre aide

P.S je travaille sur excel 2003