tri colonne sur feuille hidden

Le
Daniel
Bonjour,

Il n'est pas possible de faire un select sur une feuille cachée mais
est-il faisable d'effectuer le tri croissant d'une colonne sur une
feuille cachée ?

J'ai une macro qui fonctionne mais elle fait apparaître la feuille le
temps du tri or cela est quand même perceptible dans le déroulement.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Visible = True
Sheets("Nom").Select
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Sheets("Valideur").Visible = Hidden 'True
End Sub

J'ai essayé de modifier en ne faisant pas afficher la feuille et
retirant les select mais ça ne fonctionne pas.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Columns("A:B").Sort Key1:=Range("A2"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
End Sub

Si l'un ou l'une d'entre vous peut éclairer ma lanterne.

Merci d'avance

Daniel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #17516431
Il est cependant obligatoire qu'il y a au MOINS UNE feuille
de calcul visible dans ton classeur lors de l'exécution de cette macro


Sub Maj_valideurs()
' Mise à jour et classement alphabétique
With Sheets("Nom")
.Visible = False
With .Columns("A:B")
.Sort Key1:=Sheets("Nom").Range("A2"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
End With
End With
End Sub



"Daniel" news: 48f38361$0$7937$
Bonjour,

Il n'est pas possible de faire un select sur une feuille cachée mais
est-il faisable d'effectuer le tri croissant d'une colonne sur une
feuille cachée ?

J'ai une macro qui fonctionne mais elle fait apparaître la feuille le
temps du tri or cela est quand même perceptible dans le déroulement.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Visible = True
Sheets("Nom").Select
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Sheets("Valideur").Visible = Hidden 'True
End Sub

J'ai essayé de modifier en ne faisant pas afficher la feuille et
retirant les select mais ... ça ne fonctionne pas.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Columns("A:B").Sort Key1:=Range("A2"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
End Sub

Si l'un ou l'une d'entre vous peut éclairer ma lanterne.

Merci d'avance

Daniel
JCA
Le #17516691
Bonjour,
Il faut essayer sans faire de mise à jour de l'écran pendant l'exécution
par la commande


Application.ScreenUpdating = False


La macro se déroule sans que l'on s'en apperçoive

JCA

"Daniel" news: 48f38361$0$7937$
Bonjour,

Il n'est pas possible de faire un select sur une feuille cachée mais
est-il faisable d'effectuer le tri croissant d'une colonne sur une feuille
cachée ?

J'ai une macro qui fonctionne mais elle fait apparaître la feuille le
temps du tri or cela est quand même perceptible dans le déroulement.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Visible = True
Sheets("Nom").Select
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Sheets("Valideur").Visible = Hidden 'True
End Sub

J'ai essayé de modifier en ne faisant pas afficher la feuille et retirant
les select mais ... ça ne fonctionne pas.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Columns("A:B").Sort Key1:=Range("A2"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
End Sub

Si l'un ou l'une d'entre vous peut éclairer ma lanterne.

Merci d'avance

Daniel


LSteph
Le #17518851
Bonjour,

Oublie les select inutiles et ca marchera mieux.

--
lSteph
(Au moins une feuille visible)

Daniel a écrit :
Bonjour,

Il n'est pas possible de faire un select sur une feuille cachée mais
est-il faisable d'effectuer le tri croissant d'une colonne sur une
feuille cachée ?

J'ai une macro qui fonctionne mais elle fait apparaître la feuille le
temps du tri or cela est quand même perceptible dans le déroulement.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Visible = True
Sheets("Nom").Select
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Sheets("Valideur").Visible = Hidden 'True
End Sub

J'ai essayé de modifier en ne faisant pas afficher la feuille et
retirant les select mais ... ça ne fonctionne pas.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Columns("A:B").Sort Key1:=Range("A2"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
End Sub

Si l'un ou l'une d'entre vous peut éclairer ma lanterne.

Merci d'avance

Daniel


LSteph
Le #17519041
..exemple:


Application.ScreenUpdating = False
With Feuil3
.Visible = xlSheetVisible
.[A1:B9].Sort _
Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
.Visible = xlSheetVeryHidden
End With



LSteph a écrit :
Bonjour,

Oublie les select inutiles et ca marchera mieux.

--
lSteph
(Au moins une feuille visible)

Daniel a écrit :
Bonjour,

Il n'est pas possible de faire un select sur une feuille cachée mais
est-il faisable d'effectuer le tri croissant d'une colonne sur une
feuille cachée ?

J'ai une macro qui fonctionne mais elle fait apparaître la feuille le
temps du tri or cela est quand même perceptible dans le déroulement.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Visible = True
Sheets("Nom").Select
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Sheets("Valideur").Visible = Hidden 'True
End Sub

J'ai essayé de modifier en ne faisant pas afficher la feuille et
retirant les select mais ... ça ne fonctionne pas.

Sub Maj_valideurs()
' Mise à jour et classement alphabétique
Sheets("Nom").Columns("A:B").Sort Key1:=Range("A2"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
End Sub

Si l'un ou l'une d'entre vous peut éclairer ma lanterne.

Merci d'avance

Daniel




LSteph
Le #17519361
..et encore + simple:

With Feuil3

.[A1:B9].Sort _
Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom

End With

'LSteph
Publicité
Poster une réponse
Anonyme