Msgbox

bonjour

ne trouvant pas de solution a mon problème je revient vers vous en changeant de process

je cherche que quand je clique sur le bouton masquer lignes si la cellule M5 et inferieur a 40 un msgbox s'affiche pour signaler que le poids et trop faible

amicalement

Bonjour

A tester

Sub masquerlignes()
Dim cel As Range
  If Range("M5") < 40 Then
    MsgBox "Poids trop faible"
    Exit Sub
  End If
  Application.ScreenUpdating = False
  For Each cel In Range("N17:N90")
    If cel = "" Or cel = 0 Then
      cel.EntireRow.Hidden = True
    End If
  Next
End Sub

merci beaucoup

tout fonctionne

amicalement