Re : création message alerte cellule si dépassement
Salut urbanito1, Le Forum
d'un ton code est dans le mauvais Module. il faut le placer dans le module de la Feuille
et de deux après MsgBox il faut remplacer les cotes ' par des guillemets "
Re : création message alerte cellule si dépassement
Le forum, dull, aspe salut et merci
j'ai essayé de mettre un deuxième argument mais j'ai erreur de compilation
Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then
MsgBox " attention valeur maxi 6 ANS atteinte "
If [d49].Value > 12 Then
MsgBox " attention valeur maxi 12 ANS atteinte "
End If
End Sub
le code doit-il être seulement dans la feuille, dan le module ou dans les deux ?
Re : création message alerte cellule si dépassement
Bonjour, urbanito1, Dull , aspe, le Forum,
Un essai avec le code ci-après :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then MsgBox " attention valeur maxi 6 ANS atteinte "
If [d49].Value > 12 Then MsgBox " attention valeur maxi 12 ANS atteinte "
End Sub
... j'ai essayé de mettre un deuxième argument mais j'ai erreur de compilation
Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then
MsgBox " attention valeur maxi 6 ANS atteinte "
If [d49].Value > 12 Then
MsgBox " attention valeur maxi 12 ANS atteinte "
End If
End Sub
...
Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then
MsgBox " attention valeur maxi 6 ANS atteinte "
End If
If [d49].Value > 12 Then
MsgBox " attention valeur maxi 12 ANS atteinte "
End If
End Sub