Modifier choix liste déroulante vba [Résolu/Fermé]

Signaler
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
-
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
-
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

Messages postés
15366
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2020
1 375
Bonjour,

Quelques difficultees a vous comprendre !!!!!!!!
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
Messages postés
15366
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2020
1 375
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
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
Messages postés
15366
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2020
1 375
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
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
1
Ca marche super, le seul truc c est que je n arrive pas a copier l onglet,
Encore merci