Bonjour,

Je voudrais faire une macro pour vérifier la dernière valeur d'une colonne suivant plusieurs conditions. Je voudrais que la macro s'arrête dès qu'une condition est atteinte.
Si la valeur en A45 = 0.5, j'ai pas besoin du message 2, 3, ....
Je bloque donc sur l'enchainement

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
Sub Pouet()
Sheets("Feuille1").Select
Dim DerLigG As Long
    DerLigG = Range("A" & Rows.Count).End(xlUp).Row
 
If Abs(Range("A" & DerLigG).Value) < 1 Then
MsgBox "Message 1"
End If
 
If Abs(Range("A" & DerLigG).Value) < 2 Then
MsgBox "Message 2"
End If
 
If Abs(Range("A" & DerLigG).Value) < 3 Then
MsgBox "Message 3"
End If
 
 
End Sub
Cordialement