Discussion :

[Bubale]

Comment faire pour arréter un programme si sheets("options").range("B12").value = FAUX?
J'ai le code suivant ou j'ai essayer de réaliser en mettant un IF sur toute la macro cela mais ca ne marche pas!?

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Sub AlerterSiDepassementDeSeuil()
If Sheets("Options").Range("B12").Value = VRAI Then
    Dim FnLigne As Integer
    FinLigne = Sheets("options").Range("B4").Value + 1
    Dim SeuilA As Integer
    SeuilA = Sheets("options").Range("B9").Value
    Dim SeuilR As Integer
    SeuilR = Sheets("options").Range("B10").Value
    Dim nbrCA As Integer
    Dim nbrCR As Integer
    Dim nbrA As Integer
    Dim nbrR As Integer
    Dim nolign As Integer
    For i = 2 To FinLigne
        nbrA = Sheets("infos_eleves").Cells(i, 10).Value
        nbrCA = Sheets("infos_eleves").Cells(i, 11).Value
        nbrR = Sheets("infos_eleves").Cells(i, 12).Value
        nbrCR = Sheets("infos_eleves").Cells(i, 13).Value
        If nbrA >= SeuilA * (1 + nbrCA) Then
            NomE = Sheets("infos_eleves").Cells(i, 2).Value
            nolign = Sheets("options").Range("B11").Value
            'Ecrire une phrase alerte
            Sheets("accueil").Range("E" & nolign).Value = " - Imprimer un courrier type"
            Sheets("accueil").Range("F" & nolign).Value = "Absences"
            Sheets("accueil").Range("G" & nolign).Value = "aux parents "
            Sheets("accueil").Range("H" & nolign).Value = NomE
            Sheets("accueil").Select
                With Range("J" & nolign)
                    .Value = "Imprimer"
                    .Font.Name = "Arial"
                    .Font.Bold = True
                    .Font.Size = 10
                    .Font.Underline = xlUnderlineStyleSingle
                    .Font.Color = -16776961
                End With
            Sheets("accueil").Select
            Range("J" & nolign).Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                "accueil!" & Sheets("options").Range("H4").Value, TextToDisplay:="Imprimer"
            'Incrémenter le compteur de ligne alerte
            Sheets("options").Range("B11").Value = Sheets("options").Range("B11").Value + 1
        End If
        If Sheets("Infos_eleves").Cells(i, 12).Value >= SeuilR * (1 + nbrCR) Then
            NomE = Sheets("infos_eleves").Cells(i, 2).Value
            nolign = Sheets("options").Range("B11").Value
            'Ecrire une phrase alerte
            Sheets("accueil").Range("E" & nolign).Value = " - Imprimer un courrier type"
            Sheets("accueil").Range("F" & nolign).Value = "Retards"
            Sheets("accueil").Range("G" & nolign).Value = "aux parents "
            Sheets("accueil").Range("H" & nolign).Value = NomE
            Sheets("accueil").Select
            Range("J" & nolign).Select
            ActiveCell.FormulaR1C1 = "Imprimer"
            With ActiveCell.Characters(Start:=1, Length:=8).Font
                .Name = "Arial"
                .FontStyle = "Gras"
                .Size = 10
                .Underline = xlUnderlineStyleSingle
                .Color = -16776961
                .TintAndShade = 0
                .ThemeFont = xlThemeFontNone
            End With
            Sheets("accueil").Select
            Range("J" & nolign).Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                "accueil!" & Sheets("options").Range("H4").Value, TextToDisplay:="Imprimer"
           'Incrémenter le compteur de ligne alerte
            Sheets("options").Range("B11").Value = Sheets("options").Range("B11").Value + 1
        End If
    Next
End If
End Sub

[Montor]

Modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Sheets("Options").Range("B12") Then 'boolean

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Sheets("Options").Range("B12").Value = "VRAI" Then 'comparaison