Liste déroulante conditionnée

[CelluleVide]

Bonjour le forum,
Meilleurs voeux a tous pour 2009,

Je voudrais créer un fichier pour optimiser l'utilisation de chutes de panneaux.
Le but est de présenter a l'utilisateur une liste des dimensions disponible dans le coloris choisi. Je joins un fichier pour plus de détails.

Merci.

 

[BOISGONTIER]

Re : Liste déroulante conditionnée

Bonjour,

Si le nb de caractères de la liste ne dépasse pas 200 caractères:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect([i4:j6], Target) Is Nothing And Target.Count = 1 Then
   For Each c In [C2:C100]
    col = Target.Column - 8
    If c = Target.Offset(0, -col) And c.Offset(0, 2) = "" Then
      temp = temp & c.Offset(0, 1) & ","
    End If
   Next c
   Target.Validation.Delete
   If temp <> "" Then
     Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
   End If
 End If
End Sub

JB
Formation Excel VBA JB

 

[CelluleVide]

Re : Liste déroulante conditionnée

Bonjour BOISGONTIER,

Merci de ton aide c'est pile ce que je voulais.
Pourrais-je abuser encore de ton temps pour voir s'il est possible de supprimer de la liste 2 ( colonne J) la dimension séléctionnée en liste 1.

A+

 

[BOISGONTIER]

Re : Liste déroulante conditionnée

Voir PJ

JB

 

[CelluleVide]

Re : Liste déroulante conditionnée

Merci JB
Super travail meme si pour toi c'est facile...

Bonne journée.