MSGBOX d'alerte sur condition avec contenu variable Fermé

Question

Bonjour !!

Je m'échine depuis 2 semaines sur un cas qui doit pourtant être très simple, j'en suis sur...

l'état des lieux : 

J'ai un tableau de suivi des affaires avec en Colonne E le nom du client, en F la reférence du chantier et, en CN un état ( "a relancer" ou non) défini par une fonction. 

Mon souhait : 
Afficher à l'ouverture du classeur, une msgbox qui reprendrait le contenu des colonnes E et F (nom et ref chantier), pour chaque ligne à partir de la 5eme et donc la valeur de la cellule CN = A RELANCER

J'arrive à imaginer fugacement le code mais impossible de l'écrire. 

Je remercie et m'incline devant toutes les personnes qui, dans leur grande bonté, m'offrirons leur aide! 





Configuration: Windows 7 / Chrome 28.0.1500.95

philmtjn · Answer

bonjour, je veux bien t'aider. Mais, pourrais-tu mettre un extrait de ton fichier pour voir ce que je peux faire ?

Comme ca, sans extrait... je ferais une boucle do_loop pour mettre dans une variable le contenu des cellules des colonnes E et F non-vide et je ferais un msgbox de la variable... avec un séparateur a chaque ligne pour que la msgbox ne dépasse pas l'ecran.

J'attend ton extrait, je te repondrai avec la macro.

a bientot

JL2r · Answer

Merci beaucoup ! sympa de te pencher sur mon cas. je te file un suivi factice. c'est exactement le même tableau que j'utilise tout les jours, c'est juste des données fausses.

tu remarquera en CN les mentions " A RELANCER". je voudrais que les noms de clients et les chantiers respectifs s'affichent dans la même msgbox à la ligne des un des autres. comme ça quoi :

Client a - Chantier a
Client b - Chantier b
Client c - Chantier c

Si et seulement si CN = A RELANCER.

précisions :
Le vrai fichier va faire dans les 300 lignes environs mais une 20aines de cas sont et seront à relancer.

Encore un grand merci.

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

f894009 · Answer

Bonjour a vous deux

'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

JL2r · Answer

Bonjour Messieurs. 

Au final j'ai réadapté mon tableau et son utilisation et j'ai donc modifié une partie des codes que vous m'avez si généreusement donné. 

Le tout fonctionne. je m'en sors donc avec un fichier qui tourne rond et répond à ce que je veux et une connaissance approfondi des méandres du VBA ( même si je me gratte souvent la tête en regardant les lignes).

Je vous remercie donc et m'en vais de ce pas allumer une bougie en l'honneur de votre génie et générosité. ( sors de la pièce en se prosternant 3 fois) 

A bientôt peut être.

MSGBOX d'alerte sur condition avec contenu variable

4 réponses

Discussions similaires