Message box simple

xorsankukai a écrit :

Re,

Donc mon premier code devait etre le bon :

Si tu modifies une valeur dans la feuille calculateur et si B75 dans la feuille prix est supérieure à 0, alors on déclenche le message ?

Tant que B75=0, rien, meme si on agit sur la feuille calculateur.

Teste pour voir :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Sheets("Prix").Range("B75").Value > 0 Then    'code simplifié
'MsgBox ("Attention!  Valeur > 0")
'End If

If IsNumeric(Sheets("Prix").Range("B75").Value) Then    'code ExcelCoreGame qui vérifie que la valeur est bien numériue
    If Sheets("Prix").Range("B75").Value > 0 Then
        MsgBox ("Attention!  Valeur > 0")
    End If
Else
    MsgBox ("Attention! B75 n'est pas un nombre")
End If
End Sub

Le seul Hic, comme l'avais signalé Excelcoregame, c'est que tant que B75 est>0, à chaque action sur la feuille calculateur, tu verras apparaitre le message

Hello,

Ca fonctionne mais...

Tu as modifié la cellule B75 de la feuille prix. c'est une formule, la somme de b70:b74.

Ces cellules changent quand on clique sur un bouton du calculateur.

Clique sur le bouton se trouvant en B5 du calculateur et tu verras

Le message d'avertissement apparaît seulement si je clique sur une cellule du calculateur alors que je voudrais qu'il apparaisse une fois que j'ai cliqué sur le bouton B5 qui par la formule fait passer B75 de la feuille prix a une valeur > 0.

Est ce que je me suis mieux exprimé?

Je te joins le fichier.

Re,

un essai vite fait, je dois partir bosser.....

Private Sub Worksheet_Calculate()
If IsNumeric(Sheets("Prix").Range("B75").Value) Then    'code ExcelCoreGame qui vérifie que la valeur est bien numériue
    If Sheets("Prix").Range("B75").Value > 0 Then
        MsgBox ("Attention!  Valeur > 0")
    End If
Else
    MsgBox ("Attention! B75 n'est pas un nombre")
End If
End Sub

@+

xorsankukai a écrit :

Re,

un essai vite fait, je dois partir bosser.....

Private Sub Worksheet_Calculate()
If IsNumeric(Sheets("Prix").Range("B75").Value) Then    'code ExcelCoreGame qui vérifie que la valeur est bien numériue
    If Sheets("Prix").Range("B75").Value > 0 Then
        MsgBox ("Attention!  Valeur > 0")
    End If
Else
    MsgBox ("Attention! B75 n'est pas un nombre")
End If
End Sub

@+

Ca fonctionne! Super!!!! Je le crie haut et fort! Je t'aime!

Re,

Si je voulais pousser le vice, je constate que le message d'avertissement apparaît, puis j'appuie sur OK, puis il réapparaît. En appuyant un seconde fois sur Ok, il disparaît définitivement.

Est ce logique?

Merci

j'essaye d'embellir l'avertissement mais j'ai un message d'erreur.

Je voudrais mettre l'icône attention et un titre.

Je respecte la syntaxe mais rien n'y fait.

Merci

Bonjour

à tester

voir ici Excel pratique boîtes de dialogue

MsgBox("Attention!  Valeur > 0", vbExclamation, "Attention B75 n'est pas un nombre !")

ce qui donnerai merci à Nowhereman :

Private Sub Worksheet_Calculate()
If IsNumeric(Sheets("Prix").Range("B75").Value) Then    'code ExcelCoreGame qui vérifie que la valeur est bien numérique
   If Sheets("Prix").Range("B75").Value > 0 Then
        MsgBox("Attention!  Valeur > 0", vbExclamation, "Attention B75 n'est pas un nombre !")
    End If
Else
    MsgBox ("Attention! B75 n'est pas un nombre")
End If
End Sub

crdlt,

André

Private Sub Worksheet_Calculate()

If IsNumeric(Sheets("Prix").Range("B75").Value) Then 'code ExcelCoreGame qui vérifie que la valeur est bien numériue

If Sheets("Prix").Range("B75").Value > 0 Then

MsgBox("Attention", vbExclamation, "ATTENTION")

End If

Else

MsgBox ("Attention! B75 n'est pas un nombre")

End If

End Sub

voilà ce que j'ai comme erreur.

Bonjour à tous,

Je ne parviens pas à comprendre pourquoi le message apparait 2 fois mais pour le reste, voici 2 propositions:

1) message avec icône

Private Sub Worksheet_Calculate()

      If Sheets("Prix").Range("B75").Value > 0 Then
         Select Case MsgBox("Valeur de B75 > 0", vbExclamation, "Attention")
         End Select
      End If

End Sub

2) Message via userform

Cordialement,

xorsankukai a écrit :

Bonjour à tous,

Je ne parviens pas à comprendre pourquoi le message apparait 2 fois mais pour le reste, voici 2 propositions:

1) message avec icône

Private Sub Worksheet_Calculate()

      If Sheets("Prix").Range("B75").Value > 0 Then
         Select Case MsgBox("Valeur de B75 > 0", vbExclamation, "Attention")
         End Select
      End If

End Sub

2) Message via userform

Cordialement,

Terriblement efficace!

Merci!