msgbox

[olitri]

Bonjour ,

je voudrait savoir si il est possible de faire en sorte que quand mon champ J5 affiche un multiple de 90 un msgbox s'ouvre pour me dire que la celule est à 90 , 180 , 270 ...

un grand merci

 

[michel]

bonjour Olitri

j'espere que la macro ci dessous repondra à ta demande

Sub ControleMultipleCellsJ5()
If Range("J5") / 90 = Int(Range("J5") / 90) Then MsgBox Range("J5")
End Sub


bonne soiree
michel

 

[olitri]

non , cela ne va pas .

je cherche à metre une piece jointe pour te montrer ( plus facile à comprendre en image ) et il me dit que je doit metre en zip sti , c'est quoi et comment ?

 

[omicron]

Bonsoir Olitri,

Tu trouveras en pièce jointe un exemple répondant à la question posée.

Voici le code à insérer dans le traitement de l'évènement "Change" de la "Worksheet" contenant la cellule J5 à tester

=====================================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$5" Then
If IsNumeric(Range("J5")) Then
If Range("J5").Value Mod 90 = 0 Then _
MsgBox "La cellule J5 contient " & Range("J5").Value & " qui est un multiple de 90"
End If
End If
End Sub
=====================================================

Cordialement.

Omicron.

 

[olitri]

Merci Omicron

cela fonctionne comme je le voulait .

olitri