Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code VBA pour revenir sur l'onglet précédent

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion loulourav
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

loulourav

XLDnaute Occasionnel
Bonjour à tous,

j'ai une macro sur mon classeur qui est présente sur tous mes onglets (13 onglets) sauf sur le dernier.
Cette macro tri des noms (qui se trouve dans le dernier onglet) dans l'ordre, chaque mois il doit être possible d’exécuter la macro pour que le tri s'effectue.
la macro fait bien ce qu'on lui demande mais je ne trouve pas quoi rajouter à " End With "pour que automatiquement après l’exécution de la macro je revienne vers l'onglet visité, car la je reste sur le dernier onglet ...

voici le code en question :

Code: 
Sub TRIER_PH()
'
' TRIER_PH Macro
'

'
    Sheets("NOM").Select
    ActiveWorkbook.Worksheets("NOM").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("NOM").Sort.SortFields.Add Key:=Range("A2:A3900"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("NOM").Sort
        .SetRange Range("A1:A3900")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 =====>que mettre ici ????<======
End Sub


merci d'avance pour votre aide !🙂
 
Trier par date Trier par votes
Re : Code VBA pour revenir sur l'onglet précédent

Bonjour loulourav, le forum,

Puisque le nom de la feuille "NOM" est spécifié clairement dans ton code, pourquoi sélectionner cette feuille au début du code ?

Ici, tu peux supprimer Sheets("NOM").Select qui n'est pas utile, et comme ça ton tableau est trié sans changer de feuille 🙂

Autre possibilité, si vraiment tu souhaites voir ce qui se passe pendant le tri, c'est de mémoriser le nom de ta feuille avant la macro, puis revenir sur cette feuille.

Code: 
Sub TRIER_PH()
'
' TRIER_PH Macro
'

'
    FeuilleActive = ActiveSheet.Name
    Sheets("NOM").Select
    ActiveWorkbook.Worksheets("NOM").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("NOM").Sort.SortFields.Add Key:=Range("A2:A3900"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("NOM").Sort
        .SetRange Range("A1:A3900")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets(FeuilleActive).Select '=====>que mettre ici ????<======
End Sub
 
Vote positif 0 Vote négatif
Re : Code VBA pour revenir sur l'onglet précédent

Bonsoir à tous, loulourav, NezQuiCoule

loulourav
Est-ce que cette version light de ta macro produit le même tri ?
Code: 
Sub TRIER_PH()
With Worksheets("NOM")
.Columns(1).Sort key1:=.Range("A2"), order1:=xlAscending, Header:=xlYes
End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
291
Dranreb
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
C
  • Question Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
524
candido57
C
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
514
telemarrk
T
J
  • Question Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
491
JMP56
J
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
677
Averell1976
A
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
514
Usine à gaz
B
  • Question Question
XL pour MAC Problème macro tri
Réponses
2
Affichages
683
Benjy51190
B
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
673
Gestionnaire_rh
G
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
897
MickaeL_D
M
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
913
Phil69970
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
785
Staple1600
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
264
JJ69
J
T
  • Résolu(e)
Microsoft 365 macro sur cellule nom onglet (formule) pour ouvrir l'onglet correspondant
Réponses
8
Affichages
708
Tartineaunut
T
G
  • Question Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
1 K
GUERET
G
  • Résolu(e)
Microsoft 365 Modifier une liste sur deux onglets
Réponses
11
Affichages
1 K
Roseline
C
  • Résolu(e)
Microsoft 365 créer un lien vers un onglet créé
Réponses
4
Affichages
1 K
cecenico
C
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
C
  • Question Question
Microsoft 365 Macro tri des lignes
Réponses
5
Affichages
1 K
Chris Linefield
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…