MsgBox selon résultat

[matrix]

Bonjour,

Je voudrais ajourter dans ma macro, dans la section MsgBox, la valeur de la cellule B et C de la même ligne que le résultat.

Comment faire s.v.p?

Dim Dates As Range

Set List1 = CreateObject("Scripting.Dictionary")
With Sheets("Base de donnée")
    For Each Dates In .Range("m2:m" & .[m65000].End(xlUp).Row)
        If Dates >= ((Date + 365) - 14) And Dates <= ((Date + 365) + 14) Then
        MsgBox "En date du " & Dates
        End If
    Next Dates
   
   
End With

Merci

 

[ROGER2327]

Re : MsgBox selon résultat

Bonjour matrix

Peut être comme ceci :

[COLOR="DarkSlateGray"]Dim Dates As Range
Set List1 = CreateObject("Scripting.Dictionary")
   With Sheets("Base de donnée")
      For Each Dates In .Range("m2:m" & .[m65000].End(xlUp).Row)
         If Dates >= ((Date + 365) - 14) And Dates <= ((Date + 365) + 14) Then
            MsgBox "En date du " & Dates[COLOR="DarkRed"].Offset(0, -11) & "/" & Dates.Offset(0, -10)[/COLOR]
         End If
      Next Dates
   End With[/COLOR]

ROGER2327

 

[matrix]

Re : MsgBox selon résultat

Super, merci encore une fois.