MSGBOX d'alerte sur condition avec contenu variable

https://docs.google.com/file/d/0B13NnRQ_tyrlOFRFUWVhcGxnMTg/edit?usp=sharing</code>
                
                

'code de base de philmtjn - 24 août 2013 à 19:09
Private Sub Workbook_Open()
    Dim Chaine As String        'Variable qui recoit la chaine a afficher a l'ouverture
    Dim I As Long                   'Variable de boucle
    
    'état     est en colonne : CN soit 3*26+14=78+14=92
    'Client   est en colonne : E soit 5
    'Chantier est en colonne : F soit 6
    
    'l'onglet se trouve dans le classeur courant dans le premier onglet
    
    I = 5 ' la premiere ligne a traiter est 5
    Chaine = "Relancer les clients suivants :" & vbCrLf
    For x = 1 To Sheets.Count
        Do Until Sheets(x).Cells(I, "E") = "" 'on admettra qu'un client est TOUJOURS renseigné
            'Donc, on s'arrete sur un client vide
            If Sheets(x).Cells(I, "CN") = "A RELANCER" Then
                Chaine = Chaine + Sheets(x).Cells(I, "E") + "-" + Sheets(x).Cells(I, "F") & vbCrLf
            End If
            I = I + 1
        Loop
    Next x
    MsgBox Chaine
End Sub

'legere optimisation: ne pas parcourir toutes les cellules d'un onglet, tous les onglets si pas de relance

Private Sub Workbook_Open()
    Dim Chaine As String        'Variable qui recoit la chaine a afficher a l'ouverture
    Dim plage As Range, x As Byte, cmp As Byte
    Dim Nom_Onglet As String, Cas_Rech
    
    Cas_Rech = "A RELANCER"
    Chaine = "Relancer les clients suivants :" & vbCrLf
    'boucle des onglets
    For x = 1 To Sheets.Count
        'Nom_Onglet au cas ou il y aurait a tester le nom
        Nom_Onglet = Worksheets(x).Name
        With Worksheets(Nom_Onglet)
            'Recherche derniere ligne colonne E Client
            derlig = Range("E" & Rows.Count).End(xlUp).Row
            'au moins une ligne de Client
            If derlig > 4 Then
                'Definition Plage de cellule pour recherche colonne CN
                Set plage = .Range("CN5:CN" & derlig)
                'Recherche du nombre de fois "a relancer"
                Nb_fois = Application.CountIf(plage, Cas_Rech)
                'si au moins une fois
                If Nb_fois > 0 Then
                    'ligne de depart
                    Lig = 5
                    'boucle de recherche
                    For cmp = 1 To Nb_fois
                        'Recherche de la ligne colonne CN
                        Lig = .Columns("CN").Find(Cas_Rech, .Cells(Lig, "CN"), , xlWhole).Row
                        'Ecriture
                        Chaine = Chaine + .Cells(Lig, "E") + "-" + .Cells(Lig, "F") & vbCrLf
                    Next cmp
                End If
            End If
        End With
    Next x
    MsgBox Chaine
End Sub