Discussion :

[Guizmonster]

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

[Trystan441]

Bonjour,

Je t'invite à utiliser la méthode select case, ça devrait t'éviter d'imbriquer des if

https://www.developpez.net/forums/d4...n-select-case/

[patricktoulon]

bonjour

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()
    With Sheets("Feuille1")
        '.Select(facultatif) débloquer si on veut activer la feuille
        With Range("A" & Rows.Count).End(xlUp)
 
            Select Case Abs(.Value)
            Case Is < 3 And Abs(.Value)>= 2
                MsgBox "<3"
            Case Is < 2 And Abs(.Value)>= 1
                MsgBox "<2"
            Case Is < 1 And Abs(.Value)>= 0
                MsgBox "<1"
            Case Else
                MsgBox "hors limite"
         End Select
        End With
    End With
 
End Sub

tu peux ranger tes case dans l'ordre croissant ce qui simplifie la chose

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
Sub Pouet()
    With Sheets("Feuille1")
        '.Select(facultatif) débloquer si on veut activer la feuille
        With Range("A" & Rows.Count).End(xlUp)
            Select Case Abs(.Value)
            Case Is < 1
                MsgBox "<1"
            Case Is < 2
                MsgBox "<2"
            Case Is < 3
                MsgBox "<3"
            Case Else
                MsgBox "hors limite"
            End Select
        End With
    End With
End Sub

perso je préfère le test complet c'est toi qui vois

[Guizmonster]

Merci, je fais le test complet et cela fonctionne très bien. Je vous remercie.