Boite de dialogue

Bonjour la communauté,

Dans le fichier joint, je souhaiterais avoir une boite de dialogue stipulant " à telle date il y a (supérieur à 4) "

Voir explication dans le fichier.

D'avance merci.

Re la communauté,

Alors j'ai réussi à mettre une boite de dialogue qui m'informe combien de cellules sont supérieur à 4.

Mais je n'arrive pas à y mettre plus d'éléments.

Bonjour la communauté,

Cela est il faisable ?

Je cherche ici et sur Google, mais les réponses que je trouve sont sur les colonnes et non les lignes.

Bonjour,

Pourrais-tu décrire un peu plus ce que tu souhaites avoir dans ta boite de dialogue ?

Si c'est mettre plusieurs lignes dans ta boite de dialogue, tu peux faire cela

MsgBox "Ligne 1 " & Chr(13) & "Ligne 2" & chr(13) & "Ligne 3" etc....

Merci

Jp

Bonjour jpbt84,

Ce que je souhaite avoir dans la boite de dialogue est la chose suivante:

" Le 02/05/2017 (G5), il y à 5 personnes (G24).

Le 03/05/2017 (H5), il y a 5 personnes (H24).

........ "

Ainsi de suite pour toutes les dates (F5 à GG5) où en ( F24 à GG24) la valeur est supérieur à 4 .

Ok,

C'est tout à fait faisable, mais cela représente plus de 180 lignes.

Difficile de rendre cela lisible !!!!

Toutes ne seront pas supérieur à 4 .

Un proposition à tester.

Bien à toi

Jp

Parfait merci jpbt84

Bonjour,

Une proposition.

Cdlt.

Public Sub Compte2()
Dim ws As Worksheet
Dim lCol As Long, lCol2 As Long, LRow As Long, LRow2 As Long, I As Long
Const v As Byte = 4
Dim Msg As String
    Set ws = ActiveSheet
    lCol = 6: LRow = 5: LRow2 = 24
    With ws
        lCol2 = .Cells(LRow, .Columns.Count).End(xlToLeft).Column
        For I = lCol To lCol2
            If .Cells(LRow2, I) > v Then
                Msg = Msg & .Cells(LRow, I).Value & " : " & .Cells(LRow2, I).Value & vbLf
            End If
        Next I
    End With
    MsgBox Msg, vbOKOnly + vbInformation, "Congés > 4 jours"
End Sub

Bonjour Jean Eric et merci.

J'ai le choix