Un problème d'appel de macro
Résolu
Moldude
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
Moldude Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Moldude Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Alexia organise un appel vidéo avec ses grand-parents qui ne veulent pas installer de logiciel ou d’application, ni créer un compte.
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Créer un compte instagram sur google - Guide
- Comment créer un groupe whatsapp - Guide
- Logiciel montage vidéo gratuit windows 10 - Guide
3 réponses
Bonjour,
Mettre cette macro dans un module
Insérez un bouton Contrôle de formulaire et affectez cette macro a ce bouton
Pour ce faire: clic droit sur le bouton et Affecrter une macro…
Au cas ou vous ne sauriez pas
Mettre cette macro dans un module
Sub Appel() If Range("Q3") = "HER3" Then Call HERregion ElseIf Range("Q3") = "HER5" Then Call HERdep End If End Sub
Insérez un bouton Contrôle de formulaire et affectez cette macro a ce bouton
Pour ce faire: clic droit sur le bouton et Affecrter une macro…
Au cas ou vous ne sauriez pas
Bonjour,
La proposition est bonne, toutefois j'ajouterais ceci en complément ...
Selon la description, je cite : "je précise aussi que le contenu de la cellule Q3 a plusieurs valeur possible"
Le Select Case me paraît plus approprié et plus facile à entretenir.
Disons simplement une autre façon de faire.
K
La proposition est bonne, toutefois j'ajouterais ceci en complément ...
Selon la description, je cite : "je précise aussi que le contenu de la cellule Q3 a plusieurs valeur possible"
Le Select Case me paraît plus approprié et plus facile à entretenir.
Option Explicit ' Private Sub Worksheet_Change(ByVal Target As Range) Dim Cible As Range Set Cible = Range("Q3") ' Le changement provient-il de la cellule Q3 If Not (Application.Intersect(Target, Cible) Is Nothing) Then ' Si oui Select Case Cible.Value Case "HER3" Call HERregion Case "HER5" Call HERdep Case "Etc..." Call HERetc... End Select End If End Sub ' Private Sub HERregion() MsgBox "Methode HERregion" End Sub ' Private Sub HERdep() MsgBox "Methode HERdep" End Sub Private Sub HERetc...() MsgBox "Methode HERetc..." End Sub
Disons simplement une autre façon de faire.
K