Liste déroulante dépendante

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,

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

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

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

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

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

Bonjour Martin

Oui que puis-je pour toi ?

Cdlmnt

Via

---

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,