Liste déroulante dépendante

Résolu/Fermé
faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 - 6 juin 2022 à 01:07
faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 - 4 janv. 2023 à 18:01
Bonjour, J'ai une liste déroulante pour les cellules AX11 a AX35 dont voici la formule (=MACHINERIE!$B$2:$B$17)
Une autre liste déroulante dépendante de la valeur a la colonne AX, pour les cellules AY11 a AY35 (=INDIRECT(AX11)

J'aimerais avec ou sans VBA que si je supprime la valeur a la cellule AX11, que la valeur a la cellule AY11 disparaissent.


Est-ce que quelqu'un peut m'aider svp

Merci

Configuration: Windows / Edge 102.0.1245.30

8 réponses

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
7 juin 2022 à 11:25
Bonjour Via55,

Merci pour le retour

J'ai fais ce que tu m'as expliqué et ca ne fonctionne pas non plus

Est ce d'avoir une liste déroulante a la colonne AX et une autre a la colonne AY pourrait causer problème

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Selection.Column > 3 And Selection.Column < 48 Then 'Routine pour mise en couleur jaune pour heure double
If Selection.Row > 3 And Selection.Row < 48 Then
If Target.Interior.ColorIndex = -4142 Then
Target.Interior.ColorIndex = 6
Else
Target.Interior.ColorIndex = -4142
End If
End If
End If
If Not Intersect(Target, Range("AX11:AX35")) Is Nothing Then Range("AY" & Target.Row) = ""
Cancel = True
End Sub


Merci,
1
faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
8 juin 2022 à 00:35
Bonjour,

Merci beaucoup ca fonctionne.

Merci,
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
6 juin 2022 à 01:41
Bonjour

Macro à mettre dans le worksheet de la feuille concernée dans l'éditeur VBA :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AX11:AX355")) Is Nothing Then Range("AY" & Target.Row) = ""
End Sub


Cdlmnt
Via
0
faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
6 juin 2022 à 11:23
Bonjour Via55, je viens d'essayer et j'obtiens ce message d'erreur VBA


Ce n'est pas la seule macro que j'ai dans cette feuille

Merci
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
6 juin 2022 à 16:05
Bonjour

Normal puisque tu vois que nos macros ont le même nom

Donc tu mets simplement ma ligne
If Not Intersect(Target, Range("AX11:AX355")) Is Nothing Then Range("AY" & Target.Row) = ""

à la fin de ta macro juste avant le Cancel=True pour l'y intégrer et tu supprimes ce que tu avais rajouté

Cdlmnt
Via
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
7 juin 2022 à 17:37
Tu n'as pas mis la ligne dans la bonne macro (tu l'as mis dans Private Sub Worksheet_BeforeDoubleClick, de mon fait en partie car sur la mauvaise image je n'avais pas vu qu'il y avait 2 macros))
Il faut la mettre à la fin de Private Sub Worksheet_Change, avant le End Sub
0

Bonjour via55, vous m'avez déjà aidé dans le passé pour quelques fichiers Excel.

J'aurais encore besoin de vos services, si vous le voulez bien. Est-ce que vous êtes encore en mesure de m'aider svp

Merci et bonne journée, Martin

0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
4 janv. 2023 à 17:43

Bonjour Martin

Oui que puis-je pour toi ?

Cdlmnt

Via


0
faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
4 janv. 2023 à 18:01

Bonjour Via, merci de bien vouloir m'aider a nouveau.

Voici le lien pour le fichier https://www.cjoint.com/c/MAeqTHpWzqL

Les cellules AX2 a AZ7 me donnent les informations lorsque je clique sur une cellule de I11 a AV35. Présentement les cellules AX8 et AZ8 ne servent pas et j'aimerais qu'ils affichent l'information en lien avec la colonne AY. Je m'explique...

J'aimerais par exemple que si je clique sur AY11, que l'information qui apparaisse a la cellule AX11, soit le Mot camion et que a AZ11, l'information en lien avec ce numéro (1395), apparaisse aussi, soit GUY RACINE. Le nom des personnes associés au camions se retrouvent aux colonnes AG et AH de l'onglet MACHINERIE.

J'aimerais aussi que si je clique sur AY12, que le moto BOBCAT apparaisse a AX8 et que CASE SV 185 s'affiche a la cellule AZ8.

Toutes les informations se retrouvent a l'onglet MACHINERIE

Regarde bien les colonnes BC a BJ du premier onglet, elles affichent les informations dépendamment de la cellule que l'on clique

Autre point, tu m'avais adapté les listes déroulantes aux cellules AX11 a AY35, et qui fonctionnent très bien aussi. 

Quand je veux supprimer une cellule, par exemple si je supprime AX17, les valeurs a AY17 et AZ 17 s'enlèvent, ce qui est normal. Par contre, si je supprime AX17 et AX 18 en même temps, les valeurs associées a AY et AZ ne s'effacent pas tous, seule la première des lignes choisies s'effacent. J'aimerais que si on supprime plusieurs cellules a la colonne AX, que toutes les valeurs aux colonnes AY et AZ s'effacent aussi.

Merci 

Martin,

0