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:=False, 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:=False, Orientation:=xlTopToBottom
End Sub
Si l'un ou l'une d'entre vous peut éclairer ma lanterne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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" a écrit dans le message de 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
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" <danielos@nopubclub-internetpasdepub.fr> a écrit dans le message de
news: 48f38361$0$7937$7a628cd7@news.club-internet.fr...
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.
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" a écrit dans le message de 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
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" a écrit dans le message de 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
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" <danielos@nopubclub-internetpasdepub.fr> a écrit dans le message de
news: 48f38361$0$7937$7a628cd7@news.club-internet.fr...
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.
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" a écrit dans le message de 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
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
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.
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
..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
..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.
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.