bonjour à tous,

P'tite question sur un programme tout bête..

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
20
21
22
23
24
25
26
27
28
29

Sub test()

Dim i%

For i = 5 To 14
        
            If Sheets("page1").Cells(3, 1) = Sheets("page1").Cells(i, 1) Then
            Sheets("page1").Cells(i, 1).Select
            End If
        Next
End Sub

Private Sub CommandButton1_Click()

Application.Run "Classeur1.xls!Feuil1.test"

End Sub

Private Sub CommandButton2_Click()

Range("A3").Select
    Selection.ClearContents
    
    Range("D10").Select
    Selection.ClearContents
    
End Sub
Je voudrais que dans la partie rouge de mon programme, si mon test échoue, la cellule D10 par exemple, affiche un message du type :"Recommencez"

je ne sais pas où insérer le "ELSE" sans que ma cellule D10 n'affiche à chaque fois le message "Recommencez" après éxecution de la macro...

Merci par avance,

++