Liste déroulante double excel 2003

Fermé

tony020422 Messages postés 445 Date d'inscription mercredi 7 mai 2008 Statut Membre Dernière intervention 19 janvier 2010 - 30 juil. 2009 à 13:48
tony020422 Messages postés 445 Date d'inscription mercredi 7 mai 2008 Statut Membre Dernière intervention 19 janvier 2010 - 30 juil. 2009 à 18:06

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!

A voir également:

Liste déroulante double excel 2003
Liste déroulante excel - Guide
Double ecran - Guide
Whatsapp double sim - Guide
Excel liste déroulante en cascade - Guide
Formule excel - Guide

1 réponse

Réponse 1 / 1

tony020422 Messages postés 445 Date d'inscription mercredi 7 mai 2008 Statut Membre Dernière intervention 19 janvier 2010 6
30 juil. 2009 à 18:06

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!!

Discussions similaires

Suppression listes déroulantes

Supprimer liste déroulante Excel

Discussions similaires

Newsletters