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

XL 2021 Codes vba : Worksheet_Change

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
A

achraf26

XLDnaute Occasionnel
Bonjour
j'ai mis 2 code vba sur "Visualiser le code de la meme feuille (Feuil1)
le 1er pour filter
et le 2e pour Afficher et masque des shapes

VB: 
Sub Worksheet_Change(ByVal Target As Range)


Code: 
Private Sub Worksheet_Change(ByVal c As Range)

mais j'ai une erreur impossible d'executer les macros, il est possible qu'elle ne soit pas disponible.
une fois je supprime une l'autre fonctionne.

j'ai cherché un peu je trouve qu'il y'a des modules mais je ne sais meme pas à quoi sert, ou peut etre je dois les séparer.
Merci à vous
 
Solution
Re,
sylvanu à dit:
on ne peut pas avoir deux Worksheet_Change sur une même feuille.
Cliquez pour agrandir...
Donc en PJ j'ai concaténer les deux Worksheet_Change en une seule.
VB: 
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5]) Is Nothing Then
        ValB5 = [B5] ' Evite de lire 7 fois B5
        ActiveSheet.Shapes("Connecteur 1").Visible = ValB5 = "F"
        ActiveSheet.Shapes("Connecteur 2").Visible = ValB5 = "R"
        ActiveSheet.Shapes("Connecteur 3").Visible = ValB5 = "E"
        ActiveSheet.Shapes("Connecteur 4").Visible = ValB5 = "O"
        ActiveSheet.Shapes("Rectangle 13").Visible = ValB5 = "F"
        ActiveSheet.Shapes("Rectangle 14").Visible = ValB5 = "O"...
Trier par date Trier par votes
Bonjour Achraf,
Un petit fichier test serait le bienvenu. 😉
Ces deux macros sont elles sur la même feuille ?
Si oui, on ne peut pas avoir deux Worksheet_Change sur une même feuille.
On peut traiter deux actions dans une même Worksheet_Change, mais pour cela, il faut connaitre votre code et vos contraintes.
 
Vote positif 0 Vote négatif
Bonjour,
une fois je rajoute ce code, pour filtrer, tout bascule

VB: 
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$B$5" Then
        Select Case c
        Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3
        Case Else: ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=c
        End Select
    End If
     If c.Address = "$B$6" Then
        Select Case c
        Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=12
        Case Else: ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=12, Criteria1:=c
        End Select
    End If
    If c.Address = "$D$6" Then
        Select Case c
        Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7
        Case Else: ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:=c
        End Select
        [B8].Select
    End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
sylvanu à dit:
on ne peut pas avoir deux Worksheet_Change sur une même feuille.
Cliquez pour agrandir...
Donc en PJ j'ai concaténer les deux Worksheet_Change en une seule.
VB: 
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5]) Is Nothing Then
        ValB5 = [B5] ' Evite de lire 7 fois B5
        ActiveSheet.Shapes("Connecteur 1").Visible = ValB5 = "F"
        ActiveSheet.Shapes("Connecteur 2").Visible = ValB5 = "R"
        ActiveSheet.Shapes("Connecteur 3").Visible = ValB5 = "E"
        ActiveSheet.Shapes("Connecteur 4").Visible = ValB5 = "O"
        ActiveSheet.Shapes("Rectangle 13").Visible = ValB5 = "F"
        ActiveSheet.Shapes("Rectangle 14").Visible = ValB5 = "O"
        ActiveSheet.Shapes("Rectangle 15").Visible = ValB5 = "E"
    End If
    If Target.Address = "$B$5" Then
        Select Case Target
            Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3
            Case Else: ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=Target
        End Select
    ElseIf Target.Address = "$B$6" Then
        Select Case Target
            Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=12
            Case Else: ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=12, Criteria1:=Target
        End Select
    ElseIf Target.Address = "$D$6" Then
        Select Case Target
            Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7
            Case Else: ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:=Target
        End Select
        [B8].Select
    End If
Fin:
Application.ScreenUpdating = True
End Sub
En espérant ne pas mettre planter dans les actions à mener.🙂
 

Pièces jointes

Vote positif 1 Vote négatif
Solution
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

J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
404
job75
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
192
TooFatBoy
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
400
vgendron
  • Question Question
Microsoft 365 Calcul cumul heures automatique
2
Réponses
21
Affichages
295
AtTheOne
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
443
jalaba
J
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
427
sofmat
S
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
341
Pierreavecunp
P
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
632
crocrocro
C
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
426
BenExcel
B
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
521
kiki29
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
459
Etoto
R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
680
Rabeto
R
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
483
picc
P
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
678
chaelie2015
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
E
  • Question Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
551
Elisa47
E
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
2 K
Jouxte
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
954
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…