Double VBA

Résolu
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. 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. Merci beaucoup pour la réponse.

      Problème résolu
      0