MsgBox Synthèse

Bonjour,

J'aimerais créer dans mon fichier un msgbox qui me permettrai de savoir combien de palettes j'ai pour chaque zone. Le Msgbox doit me dire combien j'ai de palettes en livraison et combien à décaler, de plus il doit m'indiquer le type de véhicule que je dois utiliser (paramètres de décision indiqués dans la feuil2). En bref, je dois avoir : Zone 10 , 25 palettes, 0 à décaler, Semi-remorque.

Merci pour l'aide,

Bonne journée,

Salut Diesel,

...fichier .ODS converti en Excel XLSM !!!

Un double-clic sur la feuille 'Palettes' déclenche le calcul de ta MsgBox en fonction du n° de zone correspondant à la ligne double-cliquée.
J'ai légèrement modifié ton tableau de paramètres...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim sWk As Worksheet, iRow1%, iRow2%, iRow3, iDec%, iZone%, iPal%
'
Cancel = True
On Error Resume Next
Set sWk = Worksheets("Param")
'
iZone = Range("K" & Target.Row).Value
iRow1 = Columns(11).Find(what:=iZone, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext).Row
iRow2 = Columns(11).Find(what:=iZone, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious).Row
iRow3 = Range("N" & iRow1 & ":N" & iRow2).Find(what:="à décaler", lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious).Row
iPal = WorksheetFunction.Sum(Range("N" & iRow1 & ":N" & IIf(iRow3 = 0, iRow2, iRow3 - 1)))
'
MsgBox "Zone " & iZone & Chr(10) & Chr(10) & "Nombre de palettes = " & iPal & Chr(10) & _
    "Palettes à décaler =     " & IIf(iRow3 = 0, "NON", "OUI") & Chr(10) & Chr(10) & _
    "Moyen de transport =  " & IIf(iPal <= sWk.[B3], sWk.[C3], IIf(iPal >= sWk.[B5], sWk.[C5], sWk.[C4]))
On Error GoTo 0
'
End Sub

A+

Salut curulis,

Merci beaucoup, cela fonctionne à la perfection !!!