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

[duclorenzo]

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

 

[Calvus]

Bonjour,

Dans ton module1 qui est vide, copier ce code.

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+

 

[duclorenzo]

Bonjour Calvus et merci
J'ai bien copié ton code comme demandé mais rien se s'affiche lorsque je modifie les heures........
Désolé de ma novicité
Pourrais tu m'envoyer le fichier fonctionnel STP.
Merci encore

 

[Calvus]

Re,

Voici.
Il faut lancer la macro depuis 1 bouton.
A+

 

[duclorenzo]

Calvus,
j'ai testé avec un bouton qui exécute la macro et ça fonctionne. Est il possible d'avoir le message à la frappe sans passer par ce bouton ?

 

[Calvus]

Re,

Coller ce code dans le code de la feuille.

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+

 

[duclorenzo]

Merci beaucoup Calvus, c'est top
Au plaisir
Merci encore
Cdt