Modifier choix liste déroulante vba

Résolu
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -  
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Quelques difficultees a vous comprendre !!!!!!!!
    -1
    1. charlyjack
       
      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. charlyjack
       
      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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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. charlyjack
       
      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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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