Modifier choix liste déroulante vba

Résolu
Bonjour,

j'ai créé une liste déroulante et je souhaite savoir
si il existe un code vba pour modifier le choix.

En effet, je veux modifier le choix de ma liste, calculer la page et la copier dans un nouveau classeur et passer au choix suivant.

Par avance merci

1 réponse

  1. Bonjour,

    Quelques difficultees a vous comprendre !!!!!!!!
    -1
    1. Bonjour et merci de l intérêt que tu portes à ma question. En fait je cherche un code qui change la valeur de ma liste déroulante. Et à chaque fois que ma page change la copier dans nouveau classeur.
      Par avance merci
      0
    2. Bonjour et merci de l intérêt que tu portes à ma question. En fait je cherche un code qui change la valeur de ma liste déroulante. Et à chaque fois que ma page change la copier dans nouveau classeur.
      Par avance merci
      0
    3. Re,

      En fait je cherche un code qui change la valeur de ma liste déroulante. pourquoi en avoir une ????? Comprends toujours pas

      Et à chaque fois que ma page change la, pas comprendre non plu
      0
    4. J essaie d être plus clair.

      J ai besoin d un code qui choisisse le premier critère de la liste déroulante,(la page se recalculer), je la copie.le code passe au second critère .... jusqu'à la fin de la liste. J espère que c est plus clair
      0
    5. Re,

      un exemple simple de code:

      Sub Macro1()
      '
      ' Macro1 Macro
      'derniere cellule non vide liste pour liset de choix
      derlig = Worksheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
      For x = 1 To derlig
      With Worksheets("feuil1")
      'ecriture dans cellule liste de choix
      .Range("D2") = .Range("A" & x)
      'attente fin calcul (si beaucoup de formules)
      .Calculate
      'selection onglet
      .Cells.Select
      Selection.Copy
      'nouveau classeur
      Workbooks.Add
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
      ActiveWorkbook.Close
      End With
      Next x
      End Sub
      1