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


A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

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

Discussions similaires

Suppression listes déroulantes
Archa -
Sam -

5 réponses
Supprimer liste déroulante Excel
SamAlex -
b@bd -

8 réponses
Effacer le contenue d'une cellule avec liste déroulante
lebutters -
lebutters -

7 réponses
Supprimer Liste déroulante
Good -
Good -

2 réponses
Effacer liste déroulante
gabrielle -
jmps -

3 réponses