message box si occurrence d'une case 40 Excel Fermé

Question

Bonjour,

J'aimerais pouvoir utiliser la fonction MSGBOX.

Dans la colonne B:B, j'ai des numéros de moules qui se déclarent à chaque fois que ceux-ci sont flashées. Cela peux prendre plusieurs milliers de lignes.

Dans la colonne D:D, j'ai l'inventaire de tous mes moules.

Dans la colonne E:E, j'ai le nombre de fois que les moules ont été utilisés.

Je voudrais qu'un message apparaisse dès qu'un moule a été utilisé plus de 40 fois.

Ce message devra faire apparaître le numéro du moule qui a dépassé les 40 utilisations.

Merci par avance pour votre retour

ccm81 · Answer

Bonjour

msgbox > macro, c'est bien ce que tu veux ?

Si oui, comment veux tu déclencher la recherche des moules ayant dépassé 40 utilisations ?

Si non une MFC (mise en forme conditionnelle) pourrait suffire

Cdlmnt

ccm81 · Answer

1. Que veux tu dire par là ? Comment sont entrés ces n° de moules en colonne B ?

Dans la colonne B:B, j'ai des numéros de moules qui se déclarent à chaque fois que ceux-ci sont flashées

2. Si ces n° sont entrés "à la main" une solution

Option Explicit

Const conum = "B"
Const conbr = "D"
Const lideb = 2

Const alerte = 5

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, li As Long, n As Long, nbocc As Long
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Columns(conum)) Is Nothing Then
  li = Target.Row
  n = Target.Value
  Set plage = Range(conum & lideb & ":" & conum & li)
  nbocc = Application.WorksheetFunction.CountIf(plage, n)
  Range(conbr & li).Value = nbocc
  If nbocc >= alerte Then MsgBox "alerte moule n° " & n
End If
End Sub

Cdlmnt

Message box si occurrence d'une case > 40 Excel

2 réponses

Discussions similaires