Trier des lignesRésolu

Question

salut

alors j'ai un code de tri de lignes qui ne fonctionne pas dans tous les cas :

ça marche :
Sub Macro8()
ActiveSheet.Rows("11864:11964").Select
Selection.Sort Key1:=Cells(11864, 2), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

ça marche pas quand je l'associe à un bouton :
Private Sub CommandButton2_Click()
Workbooks("Classeur1").Worksheets("Feuil3").Activate
ActiveSheet.Rows("11864:11964").Select
Selection.Sort Key1:=Cells(11864, 2), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

pourquoi ?

merci d'avance

cs_Jack · Accepted Answer

Salut
Quand tu dis "ne fonctionne pas", que veux-tu dire ?
Pourquoi as-tu rajouté le WorkBooks(...).Activate ?
Où se trouve ton bouton ? sur quoi ? dans le même classeur ?
Pour faire simple, tu peux aussi simplement appeler Macro8 depuis ton bouton :
Call Macro8

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

odouane · Answer

le bouton se trouve sur la feuil1 et les lignes à trier sur la feuil3 le tout dans le classeur1

j essai la fonction call

odouane · Answer

ok ça fonctionne

merci

Trier des lignes

3 réponses

Votre réponse

Discussions similaires