Discussion :

[Lahax]

Bonjour,

Je travaille sur un fichier excel et j'ai un petit problème mais qui me bloque quand même...

J'ai une combobox dans un userform qui est alimentée par une colonne. A un moment donné, j'aimerai trier cette colonne mais sans activer la feuille où elle se trouve car à côté de ça j'ai des "activesheets" de partout.

Trier une colonne en allant dessus, ça je sais faire (en fait je fais et puis j'enregistre, et oui on fait ce qu'on peut), mais sans activer la feuille je sais pas.

Est-ce que quelqu'un pourrait m'aider?
Merci d'avance

Alex

[zazaraignée]

Salut

et en utilisant le nom de la feuille plutôt qu'ActiveSheet?

[Vesta]

Le code généré par la macro change la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Feuil2.Activate
Cell(1,1).Select
Range("A1").Sort ...

Ca se résume très fort, on a pas bsoin de toutes ces étapes...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fauil2.Range("A1").Sort ...

Ca devrait aller...
Et aussi, n'enleve rien apres le sort...
Si possible envoie le code enregistré qui change la page, je pourrais alors exactement te dire quoi mettre

[Vesta]

Salut

et en utilisant le nom de la feuille plutôt qu'ActiveSheet?

Oui mais le Key de l'instruction Sort devra aussi etre changé donc vaut mieu voir le code :p

[zazaraignée]

Il est où le problème?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Feuil1.Range("A1:B7").Sort Key1:=Feuil1.Range("A2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ComboBox1.RowSource = "A2:A7"
End Sub

[Lahax]

Merci beaucoup!

En fait à la place de "feuil1" je marquais worksheet("blabla") et avec ça, ça ne marchait pas...

Maintenant c'est nickel.

Alex.