liste déroulante double excel 2003

Question

Bonjour amis CCMistes,

Je viens vers vous une nouvelle fois car je trouve toujours mon bonheur ici!

Voila je cherche ss Excel 2003 a faire une liste déroulante (avec comme possibilité par exemple: limiteur, parachute, serrure, opérateur...), la c'est pas trop compliqué...


Mais j'ai différents fournisseurs pour chacun de ces matériels, et différents modèles!

Alors une fois le 1er choix fait, il faudrait une autre liste déroulante qui mette  les forunisseurs potentiels...

Par exemple, si on a choisit limiteur dans la première liste, il faut qu'il apparaisse dans la deuxième:

limiteur Thyssen
limiteur Octé 
limiteur Slycma

et une fois que dans la 2eme on a choisit ce que l'on veut, il faudrait qu'il apparaisse un tableau avec :
                Vous avez choisit Limiteur Thyssen
limiteur 06 m/s
limiteur 0.8 m/s
limiteur 1m/s

et qd on a cliké sur celui qu'on veut, et qu'on valide avec un bouton situé a coté, il s'imprime la notice technique du produit !

Je pense que bcp de monde ont deja fait ca mais je ne sais pas du tt comment faire ni comment m'y prendre!
Si qq'un saurait m'aider , je lui en serais TRES reconnaissant!

Mille merci par avance a ceux qui prendront le temps de m'aider!

tony020422 · Answer

En passant par VB et avec ce code la j'y arrive mais je n'arrive pas a passer a la dernière étape, cad d'imbriquer des 'If".....et de faire apparaitre finalement ce qu'il faut!

Voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column > 2 Then Exit Sub
  On Error Resume Next
  If Target.Value = "Limiteur" Then
    ActiveCell.Offset(0, 1).ClearContents
    Range("B" & Target.Row).Validation.Delete
    Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
      Operator:=xlBetween, Formula1:="=listeLimiteur"
    Target.Offset(0, 1).Select 'déplacements à adapter
    Exit Sub
  Else
    If Target.Value = "Parachute" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeParachute"
      Target.Offset(0, 1).Select 'déplacements à adapter
      Exit Sub
    Else
    If Target.Value = "Operateur" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeOperateur"
      Target.Offset(0, 1).Select 'déplacements à adapter
      Exit Sub
    Else
    If Target.Value = "Serrure" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeSerrure"
      Target.Offset(0, 1).Select 'déplacements à adapter
      Exit Sub
    Else
    If Target.Value = "Treuil" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeTreuil"
      Target.Offset(0, 1).Select 'déplacements à adapter
      Exit Sub
       Else
    If Target.Value = "Armoire" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeArmoire"
      Target.Offset(0, 1).Select 'déplacements à adapter
      Exit Sub
        Else
    If Target.Value = "DTU" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeDTU"
      Target.Offset(0, 1).Select 'déplacements à adapter
      Exit Sub
        Else
    If Target.Value = "Garde pieds" Then
      ActiveCell.Offset(0, 1).ClearContents
      Range("B" & Target.Row).Validation.Delete
      Range("B" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=listeGardepieds"
      Target.Offset(0, 1).Select 'déplacements à adapter
      
      Exit Sub
       
    
    Else
      Range("B" & Target.Row).Validation.Delete
    End If
  End If
  End If
  End If
  End If
  End If
  End If
  End If
  'déplacements à adapter
  If Target.Column = 2 Then
    Target.Offset(0, -1).Select
   End If
End Sub

Merci!!

Liste déroulante double excel 2003

1 réponse

Votre réponse

Discussions similaires

Newsletters