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

Microsoft 365 Vider des listes déroulantes en cascade

A

axelgr

XLDnaute Nouveau
Bonjour à tous,

J'ai besoin de votre aide pour améliorer un code que j'utilise actuellement.

Pour citer ma source, il s'agit d'un code que j'ai trouvé dans un tutoriel sur le site votre assistante.net
Ce code permet de réinitialiser plusieurs listes déroulantes si on modifie la valeur d'une liste :

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Reference As Range
    Set Reference = Intersect(Target, Range("C:C"))
    
    If Reference Is Nothing Then Exit Sub
    
    For Each Reference In Reference
        Range("D" & Reference.Row).Value = ""
        Range("E" & Reference.Row).Value = ""
        Range("F" & Reference.Row).Value = ""
    Next
    
End Sub

Pour traduire le code ci-dessus avec mes mots de novice :
Si on change la valeur d'une liste déroulante d'une cellule situé en colonne C, les cellules de la même ligne situées en colonne D, E et F se vident.

Ce code est appliqué à l'onglet Mouvement du fichier joint en exemple.
Je souhaiterai intégrer à ce code une ou plusieurs conditions supplémentaires.

- Si on change la valeur d'une liste déroulante d'une cellule situé en colonne D, les cellules de la même ligne situées en colonne E et F se vident.
- Si on change la valeur d'une liste déroulante d'une cellule situé en colonne E, la cellule de la même ligne située en colonne F se vide.

J'ai essayé de compléter ce code en tâtonnant, soit en rajoutant une condition "If", soit en rajoutant une nouvelle boucle "For", mais malheureusement mes compétences en VBA sont limitées.

Merci par avance pour votre aide.

Bonne fin de journée
Axel
 

Pièces jointes

  • Stock_Test_2024.xlsm
    54.3 KB · Affichages: 5
Solution
F
Salut, tu peux faire ceci:

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Reference As Range

    Set Reference = Intersect(Target, Range("C:C,D:D,E:E"))

    If Reference Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each Reference In Reference
        If Not Intersect(Reference, Range("C:C")) Is Nothing Then
            Range("D" & Reference.Row).Value = ""
            Range("E" & Reference.Row).Value = ""
            Range("F" & Reference.Row).Value = ""
        ElseIf Not Intersect(Reference, Range("D:D")) Is Nothing Then
            Range("E" & Reference.Row).Value = ""
            Range("F" & Reference.Row).Value = ""
        ElseIf Not Intersect(Reference, Range("E:E")) Is Nothing Then...
Trier par date Trier par votes
F

Franc58

XLDnaute Occasionnel
Salut, tu peux faire ceci:

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Reference As Range

    Set Reference = Intersect(Target, Range("C:C,D:D,E:E"))

    If Reference Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each Reference In Reference
        If Not Intersect(Reference, Range("C:C")) Is Nothing Then
            Range("D" & Reference.Row).Value = ""
            Range("E" & Reference.Row).Value = ""
            Range("F" & Reference.Row).Value = ""
        ElseIf Not Intersect(Reference, Range("D:D")) Is Nothing Then
            Range("E" & Reference.Row).Value = ""
            Range("F" & Reference.Row).Value = ""
        ElseIf Not Intersect(Reference, Range("E:E")) Is Nothing Then
            Range("F" & Reference.Row).Value = ""
        End If
    Next

    Application.EnableEvents = True

End Sub
 
Vote positif 0 Vote négatif
Solution
A

axelgr

XLDnaute Nouveau
Bonjour à tous,

Je vous sollicite à nouveau car j'ai un petit soucis lorsque je souhaite supprimer une ligne du tableau.
En effet quand je supprime une ligne, le code VBA intervient sur la ligne inférieure et les valeurs des cellules se vident.

Je ne sais pas si c'est normal et si il existe une solution.

J'ai joint le nouveau fichier si mes explications ne sont pas très claires.

Merci par avance
Bonne journée
 

Pièces jointes

  • Stock_Test_2024.xlsm
    53.7 KB · Affichages: 3
Vote positif 0 Vote négatif
A

axelgr

XLDnaute Nouveau
Bonjour,

Par exemple, je suis en cellule A8, clique droit, Supprimer ligne du tableau.
Quand je fais cette manipulation les cellules en colonnes D,E et F de la ligne 9 se vident.

Je joins à nouveau le fichier au cas où.
 

Pièces jointes

  • Stock_Test_2024.xlsm
    53.6 KB · Affichages: 1
Vote positif 0 Vote négatif
F

Franc58

XLDnaute Occasionnel
Effectivement, quand une ligne est effacée, l'action est interceptée par l'évènement _Change et comme ça impacte les cellules de la colonne C, le code s'exécute sur la ligne qui s'est décalée vers le haut. Je ne vois pas trop comment contourner ce problème. De plus, en supprimant une ligne, ça décale tes formules et elles retournent une erreur, ça te fait un deuxième problème.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Résolu(e)
XL 2021 Listes déroulantes en cascade
Réponses
8
Affichages
548
Constantin
C
T
  • Question
XL 2016 Listes déroulantes dépendantes
Réponses
11
Affichages
590
Thierry310
T
J
  • Question
Microsoft 365 EXCEL code VBA pour réinitialiser les listes déroulantes en cascades
Réponses
1
Affichages
323
fanch55
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
431
selkis
S
  • Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
526
ralph45
F
  • Résolu(e)
XL 2021 Créer un formulaire aves des listes déroulantes en cascades (Macro)
Réponses
8
Affichages
816
fanou06
F
J
  • Question
Microsoft 365 Afficher calendrier annuel selon choix des listes déroulantes
Réponses
1
Affichages
358
JJulie
J
E
  • Résolu(e)
XL 2019 Création d'une liste déroulante en cascade
Réponses
3
Affichages
608
Ericduke
E
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
529
casualexcel
C
F
  • Résolu(e)
XL 2019 Listes déroulantes en cascades et espaces ?
2
Réponses
26
Affichages
1 K
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…