[Excel 2003] RAZ d'une liste déroulante

Résolu
drizzt22 Messages postés 44 Statut Membre -  
drizzt22 Messages postés 44 Statut Membre -
Bonjour,

Je travaille sous Excel 2003 et j'ai un petit programme à faire. J'ai créé un bouton RAZ qui efface plusieurs cellules et je voudrais qu'il puisse mettre à blanc ma liste déroulante (de l'onglet formulaire) aussi!!
La liste déroulante contient les données de la plage A3:A11 de la feuil3, et sa cellule liée est H3 de la feuil3. De plus la liste est placée dans la feuil1

Merci d'avance pour votre aide
cordialement

5 réponses

  1. Morgothal Messages postés 1350 Statut Membre 184
     
    Bonjour,
    Il suffit qu'il supprime également (Feuil3!A3:A11) non ?
    Je ne vois pas où est le problème ...
    0
  2. drizzt22 Messages postés 44 Statut Membre 1
     
    Bonjour Clément,

    Si je supprime mes données contenues en Feuil3!A3:A11, je n'aurai plus aucune entrée dans ma liste déroulante...

    Je me suis mal expliqué, en fin de compte la liste déroulante garde toujours le dernier choix que l'on fait. Je voudrait quelle revienne sur une position vide après avoir cliqué sur le bouton RAZ.
    0
  3. Morgothal Messages postés 1350 Statut Membre 184
     
    Aah ok,
    Il faut alors que ton bouton initialise la cellule liée avec le numéro de la ligne vide dans ta plage de données source :
    Quand tu choisis une valeur avec ta combobox, la cellule liée se modifie, et c'est également le cas si tu changes la cellule liée ;)

    J'espère avoir pu t'aider
    0
  4. eljojo_e Messages postés 1255 Statut Membre 155
     
    Bonjour,

    sub razliste()
    Range("D9").Select
    With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=$K$1:$K$5"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
    End With
    End Sub

    avec ce code tu met dans ta liste "xlBetween, Formula1:="=$K$1:$K$5"" k1 à k5

    Après, où tu met rien ou tu met ce que tu veux

    Cordialement,
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. drizzt22 Messages postés 44 Statut Membre 1
     
    Merci beaucoup ça marche!!

    Je ne savais pas que les informations allaient dans les deux sens entre la cellule liée et la liste!!
    0