Double VBA

Résolu
jordan.MRC Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -  
jordan.MRC Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un code VBA, je veux le copier/coller en changeant juste les cellules.
Problèmes le deuxième code vba ne marche pas

Exemple:

Private Sub Worksheet_Calculate()
If Range("G8").Value > 800 Then
MsgBox ("Attention 800 ML dépassé")
End If
End Sub

Private Sub Worksheet_Calculate1()
If Range("G18").Value > 9 Then
MsgBox ("Attention 9H dépassé")
End If
End Sub

Merci d'avance pour votre aide.
A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour
Private Sub Worksheet_Calculate()
    If Range("G8").Value > 800 Then MsgBox "Attention 800 ML dépassé"
    If Range("G18").Value > 9 Then MsgBox "Attention 9H dépassé"
End Sub

Cdlt
1
jordan.MRC Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci beaucoup pour la réponse.

Problème résolu
0