IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

If Cond pas vérifié Alors Ne pas continuer


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    59
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 59
    Par défaut If Cond pas vérifié Alors Ne pas continuer
    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

  2. #2
    Membre émérite
    Avatar de Montor
    Homme Profil pro
    Autre
    Inscrit en
    Avril 2008
    Messages
    879
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : Autre

    Informations forums :
    Inscription : Avril 2008
    Messages : 879
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. mes boutons radio ne sont pas vérifiés
    Par seblille59 dans le forum Général JavaScript
    Réponses: 9
    Dernier message: 21/12/2008, 20h44
  2. [POO] comparaison pas vérifiée par la fonction
    Par Alexdezark dans le forum Langage
    Réponses: 22
    Dernier message: 22/10/2008, 16h45
  3. une seule et uniqe variable qui pose probleme alors que pas les autres!
    Par guiguizekid dans le forum Général Python
    Réponses: 3
    Dernier message: 16/05/2008, 08h27
  4. Réponses: 7
    Dernier message: 06/02/2007, 11h33
  5. Variable qui existe pas. Et alors?
    Par kalash_jako dans le forum Langage
    Réponses: 2
    Dernier message: 10/11/2006, 22h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo