Enchainement de fonctions IF dans une macro.

Version imprimable

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:

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

31/01/2019, 12h05
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/

bonjour

Code:

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:

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 ;)

07/02/2019, 11h06
Guizmonster

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