Double VBA

Résolu/Fermé

jordan.MRC Messages postés 12 Date d'inscription mardi 21 juin 2016 Statut Membre Dernière intervention 22 juin 2016 - 22 juin 2016 à 12:23
jordan.MRC Messages postés 12 Date d'inscription mardi 21 juin 2016 Statut Membre Dernière intervention 22 juin 2016 - 22 juin 2016 à 13:54

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:

Vba double
Double ecran - Guide
Whatsapp double sim - Guide
Double appel - Guide
Double authentification google - Guide
Double boot - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
22 juin 2016 à 13:13

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

jordan.MRC Messages postés 12 Date d'inscription mardi 21 juin 2016 Statut Membre Dernière intervention 22 juin 2016 2
22 juin 2016 à 13:54

Merci beaucoup pour la réponse.

Problème résolu

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

comment ecrire un double cote " "

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel