Message d'information relatif à la valeur d'une cellule

Bonjour à tous,

N'étant pas très doué en VBA, je souhaiterais dans cet exemple faire remonter une boite de dialogue m'informant d'une erreur dans une cellule. Le fichier ci joint sera peut être plus concret.

Vous remerciant par avance.

Cdt

Bonsoir,

Pourquoi ne pas utiliser les fonctionnalités déjà présentes dans Excel? Dans ton exemple, en sélectionnant les cellules concernées en colonne G, puis Données > Validation des données > Autoriser : Décimal (enfin, si j'ai compris!) > Inférieur ou égal à : 12

Dans l'onglet Alerte d'erreur, tu as la possibilité de personnaliser le message

Bonjour DucLorenzo, U.Milité,

un début vite fait, à tester et, sûrement, à améliorer!

Private Sub Worksheet_Change(ByVal Target As Range)
'
iRow = Target.Row
iCol = Target.Column
If iRow Mod 9 = 8 Or iRow Mod 9 < 6 Then
    iFlag = IIf(iRow Mod 9 = 8, 8 + Int(iRow / 9) * 9, 8 + (Int(iRow / 9) - 1) * 9)
    If (iRow >= iFlag And iRow <= iFlag + 6) And Cells(iRow, 7) > 12 Then
        Range("C" & iRow & ":G" & iRow).Font.Color = RGB(255, 0, 0)
        sFlag1 = "ATTENTION !  Valeur dépassée : " & Cells(iRow, 7)
    End If
    If Cells(iFlag + 8, 3) > 60 Then
        Range("C" & iFlag + 8).Font.Color = RGB(255, 0, 0)
        sFlag2 = "ATTENTION !  Valeur dépassée : " & Cells(iFlag + 8, 3)
    End If
    If sFlag1 <> "" Or sFlag2 <> "" Then
        MsgBox sFlag1 & Chr(10) & sFlag2
        Range("C" & iFlag + 8).Font.Color = RGB(0, 0, 0)
        Range("C" & iRow & ":F" & iRow).Font.Color = RGB(25, 35, 180)
        Range("G" & iRow).Font.Color = RGB(0, 0, 0)
    End If
End If
'
End Sub

A+

Bonjour,

Merci à vous, je vais m'empresser de tester.

Cdt