Voici mon code

ce que je voudrais faire
c'est que de la ligne 2 a la ligne 20
je regarde dans les cellules de B si il y a un ok ou non

si il y a rien je fais apparaitre ma message box
si il y a ok ou autre choses je ne fais pas apparaitre ma message box

et comme vous le voyer ma message box je l'as fait apparaitre sur une feuille "Rapport" c'est la aussi ou elle s'execute

mais je voudrais la faire apparaitre sur la feuille "Saisie"

pour le moment j'ai contrer le probleme en fesant un retour sur la feuille Saisie
mais bon si je pouvais evite ca


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For i = 2 To 20
    If IsNumeric(Range("B" & i).Value) Then
 
    If Cells(i, 2) = "" Then
 
    Sheets("Rapport").Select
    Result = Cells(Range("A1").End(xlDown).Row, 1).Value
 
           MsgBox "depassement:" & Result
    Else
 
    Sheets("Saisie").Select
 
    End If
    Next i
 
    Sheets("Saisie").Select
 
    End Sub

comme toujours un aiguillage est le bienvenue
merci d'avance