Un problème d'appel de macro
Résolu/Fermé
Moldude
Messages postés
19
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
8 janvier 2020
-
26 mars 2019 à 08:27
Moldude Messages postés 19 Date d'inscription jeudi 21 mars 2019 Statut Membre Dernière intervention 8 janvier 2020 - 29 mars 2019 à 19:04
Moldude Messages postés 19 Date d'inscription jeudi 21 mars 2019 Statut Membre Dernière intervention 8 janvier 2020 - 29 mars 2019 à 19:04
A voir également:
- Un problème d'appel de macro
- Appel masqué - Guide
- Renvoi d'appel ooredoo ✓ - Forum Mobile
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Prix d'un appel local - Forum Mobile
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
26 mars 2019 à 10:11
26 mars 2019 à 10:11
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
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
26 mars 2019 à 18:34
26 mars 2019 à 18:34
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
27 mars 2019 à 06:10
27 mars 2019 à 06:10
Bonjour,
Certes, certes mais pour les puristes, le select case est plus lent que le if then else mais c'est jouable si pas trop de tests. Tout est relatif quand il est question de vitesse d'exécution en fonction de l'utilisateur
Certes, certes mais pour les puristes, le select case est plus lent que le if then else mais c'est jouable si pas trop de tests. Tout est relatif quand il est question de vitesse d'exécution en fonction de l'utilisateur
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
27 mars 2019 à 15:23
27 mars 2019 à 15:23
Tout à fait d'accord :-)
Moldude
Messages postés
19
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
8 janvier 2020
29 mars 2019 à 19:04
29 mars 2019 à 19:04
Bonjour,
Merci pour le script il fonctionne parfaitement, est court et facile d'accès c'est pile ce qu'il me fallait.
La seconde méthode est aussi intéressante je la garde sous le coude opur des cas plus complexes.
En tout cas merci a vous deux pour la pertinence de vos réponse et votre rapidité.
Merci pour le script il fonctionne parfaitement, est court et facile d'accès c'est pile ce qu'il me fallait.
La seconde méthode est aussi intéressante je la garde sous le coude opur des cas plus complexes.
En tout cas merci a vous deux pour la pertinence de vos réponse et votre rapidité.