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

duclorenzo

XLDnaute Nouveau
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
 

Pièces jointes

  • Heure.xlsm
    92 KB · Affichages: 17

Calvus

XLDnaute Barbatruc
Bonjour,

Dans ton module1 qui est vide, copier ce code.
VB:
Sub message()
Dim i As Long, j As Single, k As Long
For i = 17 To Range("G" & Rows.Count).End(3).Row Step 9
For j = i To i + 5
If IsNumeric(Cells(j, 7)) And Cells(j, 7) > 12 Then MsgBox (Cells(j, 7).Address)
Next
Next
For k = 25 To Range("C" & Rows.Count).End(3).Row Step 9
If Cells(k, 3) > 60 Then MsgBox (Cells(k, 3).Address)
Next
End Sub

A+
 

Calvus

XLDnaute Barbatruc
Re,

Coller ce code dans le code de la feuille.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, j As Single, k As Long
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
For i = 17 To Range("G" & Rows.Count).End(3).Row Step 9
For j = i To i + 5
If IsNumeric(Cells(j, 7)) And Cells(j, 7) > 12 Then MsgBox (Cells(j, 7).Address)
Next
Next
For k = 25 To Range("C" & Rows.Count).End(3).Row Step 9
If Cells(k, 3) > 60 Then MsgBox (Cells(k, 3).Address)
Next
End Sub

A+
 

Discussions similaires

Réponses
17
Affichages
403

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof