Case à cocher Vrai Faux

Le 30/01/2017 à 18:22

Bonsoir à tous,

Je viens vers vous pour dans la mesure du possible Transformer un True en Préventif.

Je m'explique j'ai une case à cocher qui me renvoie VRAI FAUX. Si j'ai bien compris c'est normal car c'est du Boolean.

Mais j'aimerais que ce Vrai le transformer en Préventif pour le mettre en message dans mon mail.

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
    Sheets("fiche d'intervention").Range("E28") = True
    Else
        Sheets("fiche d'intervention").Range("E28") = False
    End If
End Sub
Private Sub CommandButton3_Click()

    'Déclaration des variables
    Dim MonOutlook As Object
    Dim MonMessage As Object
    Dim MyBench As String
    Dim NumberOfIntervention As String
    Dim Description_du_dysfonctionnement As String
   Dim Prev As String
    'Condition pour l'envoie du mail
    'Aller dans le module checking pour voir si tous se déroule correctement
    If CheckingFormField.CheckingField = False Then

    'Appel du module SaveInBDD1 ceci permet compléter la base de donée
    'SaveInBDD1

    'Utilisation des variables sous format Non de la feuille plus cellule d'identification
    MyBench = Sheets("Fiche d'intervention").Range("I10").Value
    NumberOfIntervention = Sheets("Fiche d'intervention").Range("N1").Value
    Description_du_dysfonctionnement = Sheets("Fiche d'intervention").Range("C19").Value
    Prev = Sheets("fiche d'intervention").Range("E28")
        'Appel de la l'applicaion Outlook pour crée un mail
        Set MonOutlook = CreateObject("Outlook.Application")
        Set MonMessage = MonOutlook.CreateItem(0)
            MonMessage.BodyFormat = 2
            Corps = "<HTML><BODY>"
            MonMessage.To = ""
            MonMessage.CC = ""
            MonMessage.Subject = "Demande d'intervention maintenance " & NumberOfIntervention
            ' Le corps du message est divisé en 2 lignes :
            Corps = Corps & "Bonjour Benjamin,"
            ' <p> = Touche ENTER
            Corps = Corps & "<p>"
            Corps = Corps & "<p> Voici la demande d'intervention pour le " & "<b>" & MyBench & "</b>" & " ainsi que le numéro d'intervention " & "<b>" & NumberOfIntervention & "</b>" & "<b>" & prev & " </b></p>"
            Corps = Corps & "<p> Voici le problème rencontré : " & "<b>" & Description_du_dysfonctionnement & "</b>"
            Corps = Corps & "<p><a href=""H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel 2017\Archivage fiche d'intervention maintenance 2017.xlsm"">lien vers l'interface maintenance</a></p>"
            Corps = Corps & "</BODY></HTML>"
            MonMessage.HTMLBody = Corps
            MonMessage.Display

        Set MonOutlook = Nothing

        'Enlever les alertes
        Application.DisplayAlerts = False
        'Sauvegarder le fichier
        'ThisWorkbook.Save
        'Fermer le fichier
        'ThisWorkbook.Close
        Application.DisplayAlerts = True
        'Rendre l'Aplication invisible
        Application.Visible = True

    End If

End Sub

Je voudrais changer le Vrai en Gras par Preventif

J'aimerais que le mot préventif soit dans mon mail.

Pour le moment j'ai que Vrai ou Faux qui se retranscrit.

Je n'arrive pas a dire que Vrai Préventif

Et Donc que Faux égal rien ""

Auriez vous une idée de comment faire

Le 30/01/2017 à 19:45

Bonjour et bienvenue sur le forum

Ce serait mieux avec ton fichier mais essaie ça :

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
    Sheets("fiche d'intervention").Range("E28") = "Préventif"
    Else
        Sheets("fiche d'intervention").Range("E28") = "Curatif"
    End If
End Sub

Bye !

Le 30/01/2017 à 22:51

Bonsoir,

Merci de ta réponse j'ai essayer cela mais ceci ne fonctionne pas.

Voici le fichier en pièce jointe.

Par contre il n'est pas très propre c'est mon fichier esclave avant de le mettre sur l’officiel.

Cordialement

Romain

Le 31/01/2017 à 06:51

Bonjour,

Quand tu poste un fichier ici, évite de la protéger ou donne le mot de passe !

Teste ça :

Private Sub CheckBox2_Click()

    Sheets("fiche d'intervention").Range("E28") = Choose(CLng(CheckBox2.Value) + 2, "préventif", "")

End Sub
Le 31/01/2017 à 20:03

Merci à vous c'est réolu

Rechercher des sujets similaires à "case cocher vrai faux"