Double VBA

Résolu
jordan.MRC Messages postés 14 Statut Membre -  
jordan.MRC Messages postés 14 Statut Membre -
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.

1 réponse

  1. Frenchie83 Messages postés 2254 Statut Membre 339
     
    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
    1. jordan.MRC Messages postés 14 Statut Membre 2
       
      Merci beaucoup pour la réponse.

      Problème résolu
      0