Macro pour liste de choix

[3dbillard]

Bonsoir à tous,
existe il une macro pour remettre plusieurs listes de choix à la première ligne de texte.
Merci et bonne soirée

 

[Paritec]

Re : Macro pour liste de choix

bonsoir 3dbillard
un petit fichier et on te fait cela
a+
papou 😱

 

[3dbillard]

Re : Macro pour liste de choix

Bonjour Papou,
voici un fichier exemple, et merci d'avance.
Bonne journée

 

[Paritec]

Re : Macro pour liste de choix

Bonjour 3dbillard
voilà en retour ton fichier
a+
papou 😱

 

[3dbillard]

Re : Macro pour liste de choix

Merci Papou,
c'est exactement ce que je voulais, j'avais essayé en enregistrement de macro, mais ça n'a pas marché. En tous cas merci encore et bonne journée.

 

[BOISGONTIER]

Re : Macro pour liste de choix

Bonjour,

Voir pj

  For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
    If Left(c.Validation.Formula1, 1) = "=" Then
      NomList = Mid(c.Validation.Formula1, 2)
      c.Value = Sheets("listes").Range(NomList)(1)
    Else
      temp = c.Validation.Formula1
      a = Split(temp, ";")
      c.Value = a(0)
    End If
  Next c

JB

 

[3dbillard]

Re : Macro pour liste de choix

Merci Boisgontier,
avec cette solution je peux rajouter des listes sans avoir à modifier ma macro. Une deuxième question, peut-on mettre une alerte afin que quand on clique sur le bouton ça nous demande de valider ou non le reset.
A bientôt.

 

[BOISGONTIER]

Re : Macro pour liste de choix

Voir PJ

JB

 

[3dbillard]

Re : Macro pour liste de choix

Merci Boisgontier et aussi merci à Papou pour la permière réponse, ça fait plaisir de pouvoir progresser avec excel en compagnie de personnes aussi sympa et performantes. A bientôt.