XL 2016 MSG spéciale

[Scorpio]

Bonjour à tous,
J'ai récupéré ce classeur ici dans le site, et qui m'intéresse, mais je suis vraiment pas un as avec les codes.
En fait, j'aimerais dans le msg, faire apparaitre les 2 messages, chacun sur une ligne selon l'ex, dans le classeur.
Y aurais-t-il quelqu'un de sympa, pour m'informer de ce changement?
Merci et à tout.

 

[vgendron]

hello
suffit de rajouter un retour chariot entre les deux messages ==> chr(10)

Case 0
                Msg = Msg & "La formation de " & cel.Offset(0, 3) & " " & cel.Offset(0, -3) & vbLf & _
                "est arrivée à son terme." & Chr(10)

 

[Scorpio]

Salut vgendron,
J'essaye et te redis.

 

[Scorpio]

Re,
Est-ce que je dois mettre ce retour chariot sur les 2 MSG

 

[vgendron]

sur le premier seulement, ca suffit (enfin. je pense)

 

[Scorpio]

J'aimerais bien avoir les 2 lignes de cette façon tu vois...

La formation de M. Gérard BADOU est arrivée à son terme.
La formation de M. Pierre FRISSON arrive à échéance dans 15 jours.

 

[vgendron]

je vois..
je pense qu'il faut aller voir du coté de la taille de la fenetre du MSGBOX....il y a sans doute quelque part un paramètre à adapter...

 

[Scorpio]

Je crois, la taille d'un MSG s'adapte en fonction de la longueur du texte.

 

[youky(BJ)]

Bonjour Scorpio et Vgendron,
Les vblf n'ont rien à faire il faut les supprimer
Dans ce code ca marche
Bruno

Private Sub Workbook_Open()
Dim cel As Range
Dim Ecart As Long
Dim Msg As String
Dim derlig As Long

    With Sheets("Feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
       
        For Each cel In .Range("D2:D" & derlig)
            If DateDiff("D", Date, cel.Value) < 0 Then
                Ecart = 0
            Else
                Ecart = DateDiff("D", Date, cel.Value)
            End If
            Select Case Ecart
            Case 1 To 15
                Msg = Msg & "La formation de " & cel.Offset(0, 3) & " " & cel.Offset(0, -3) & _
                " arrive à échéance dans " & cel.Offset(0, 2) & " jours." & Chr(10)

                cel.Offset(0, 1) = cel.Offset(0, -3)
                cel.Offset(0, 1).Interior.Color = vbRed
                cel.Offset(0, 1).Font.Color = vbWhite
            Case 0
                Msg = Msg & "La formation de " & cel.Offset(0, 3) & " " & cel.Offset(0, -3) & _
                " est arrivée à son terme." & Chr(10)

                cel.Offset(0, 1).ClearContents
                cel.Offset(0, 1).Interior.Color = xlNone
                cel.Offset(0, 1).Font.Color = none
            End Select
        Next cel
        MsgBox Msg, , "FORMATION"
    End With
End Sub

 

[Scorpio]

Bonjour youki(BJ),
Ho la, super, dis voir.
Ben ça y est, pour moi c'est bon hein.
Je remercie vgendron de son aide, et je vous remercie aussi youki(BJ)
A bientôt, merci

 

[Scorpio]

Re
youki(BJ),
J'ai juste encore si vous me permettez, un petit détail,
La 2ème ligne et coupée en 2, et j'aimerais bien avoir la ligne entière sans coupure.
Voir la photo
A tout, merci

 

[Paritec]

Bonsoir tous
a+
papou🙂

 

[Scorpio]

Bonjour Paritec,
Super, un grand merci de votre aide.
C'est parfait.
A plus