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

macro évenementielle

Créer une discussion

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
Y

yannick63430

XLDnaute Junior
Bonjour à tous,

j'ai besoin d'aide concernant la création d'un fichier excel !!!!!
En fait, je voudrais que sur différentes cellules, lorsqu'un utilisateur saisit Oui ou Non, une macro se déclenche (grouper ou dégrouper une plage de cellule).
j'ai essayer avec la macro suivante :


Private Sub Worksheet_Change(ByVal Target As Range)

If Range("Cell_audit_interne").Value = "Oui" Then
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = True
End If
If Range("Cell_Expert_externe").Value = "Oui" Then
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = True
End If
End Sub​


Mais, je suis confronté à différents problème :
- dès que je saisi sur d'autres cellules ou que je déclenche un grouper/dégrouper, la macro se déclenche et je ne veux pas qu'elle s’exécute
- Impossible d'annuler ou de rétablir

En espérant avoir été clair.
D'avance merci.

Bien cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : macro évenementielle

Bonsoir,
J'ajouterais la condition if not intersect pour définir que seul une modification dans cette plage execute la macro
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Cell_audit_interne , Cell_Expert_externe], Target) Is Nothing Then
If Range("Cell_audit_interne").Value = "Oui" Then
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = True
End If
If Range("Cell_Expert_externe").Value = "Oui" Then
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = True
End If
End If
End Sub
 
Vote positif 0 Vote négatif
Re : macro évenementielle

Bonjour yannick63430, st007,

On peut un peu réduire le code initial de yannick63430.
VB: 
Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Cell_audit_interne , Cell_Expert_externe], Target) Is Nothing Then
Range("Cell_audit_interne_Group").EntireRow.Hidden = Range("Cell_audit_interne") <> "oui"
Range("Cell_Expert_externe_Group").EntireRow.Hidden = Range("Cell_Expert_externe") <> "oui"
End If
End Sub
 
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

Discussions similaires

  • Question Question
XL 2016 compilation macro on/off
Réponses
7
Affichages
179
job75
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
891
candido57
C
B
  • Résolu(e)
XL 2019 Compléter une macro tirage au sort
Réponses
2
Affichages
115
berru76
B
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
249
pascal21
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
701
job75
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
139
Eric 888
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
564
Yogean
Y
D
  • Question Question
Microsoft 365 Macro pour conditionner une réponse selon des hypothèses
Réponses
3
Affichages
320
Phil69970
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
598
sylvanu
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
509
job75
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
531
KTM
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
552
cathodique
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
568
mikeduff
M
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
962
Simon 1234
S
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
820
thunder23
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…