Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro Evenementielle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Chartchai
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Chartchai

Guest
Bonjour,

Après avoir cherché dans le forum, j'ai trouvé la manière théorique de mettre en place une macro évènementielle. Problème : je n'arrive pas à la faire fonctionner 🙁

Ci dessous un petit code qui devrait faire apparaître une box nok si on ecrit non dans la cellule c3 et ok si on ecrit oui.

Pourriez-vous m'éclairer sur ce mystère ?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$C$3" Then
             If Target.Value = "OUI" Then Call ok
             If Target.Value = "NON" Then Call nok
     End If
End Sub

Sub nok()

MsgBox ("nok")

End Sub

Sub ok()

MsgBox ("ok")

End Sub
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Macro Evenementielle

Salut Chartchai,

ça coince peut-être parce que tu as deux fois de suite la ligne suivante
Code: 
Private Sub Worksheet_Change(ByVal Cellule As Range)
 
Vote positif 0 Vote négatif
Re : Macro Evenementielle

Re,

S'il s'agit d'une erreur de recopie, une autre idée :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$C$3" Then
             If Ucase(Target.Value) = "OUI" Then Call ok
             If Ucase(Target.Value) = "NON" Then Call nok
     End If
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : Macro Evenementielle

Il s'agissait effectivement d'une faute de copie.
Merci Spitnolan08, mais ca marche pas 🙁
J'ai du mal à voir d'où ça vient 🙁🙁🙁
 
Vote positif 0 Vote négatif
Re : Macro Evenementielle

En fait, le code fonctionne, mais ...

Cela vient du fait que ma feuille est alimentée par l'extérieur et la cellule se met automatiquement à oui ou non. Dans ce cas là, ça ne fonctionne pas. Si je modifie la case à la main, alors la macro se déclenche.

Auriez-vous une idée pour que ça fonctionne y compris en cas d'une alimentation automatique ?

merci d'avance pour vos idées 🙂
 
Vote positif 0 Vote négatif
Re : Macro Evenementielle

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$C$3" Then
        
        If Target.Value = "OUI" Then
        Call ok
        
        ElseIf Target.Value = "NON" Then
        Call nok
        End If
        
     End If
     
End Sub

Attention, ce code est sensible à la casse. Tu dois écrire "OUI" ou "NON" dans la case C3.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
273
KTM
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
623
anthoYS
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
258
treza88
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
231
Marie L
M
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
358
AtTheOne
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
745
un internaute
U
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
567
TooFatBoy
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
333
PRy
P
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
893
bsalv
B
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
380
Atlas85200
A
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
700
fanch55
M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
548
macseb
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…