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

Classement & onglets ?

Créer une discussion

Initiateur de la discussion boulou
Date de début 24 Avril 2010

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

boulou

XLDnaute Occasionnel

24 Avril 2010

#1

Bonjour à tous.

Comment puis-je obtenir ce résultat ?
- Sur une page nommée « Home » je veux lister par ordre alpha toutes les valeurs situées en cellule B2 de chaque feuille de mon classeur à l’exception si possible de celle de la feuille « Home » et ceci dans une plage BW5 :BW300.
- Dans la plage BX5 :BX300 je veux cette fois que s’affiche le nom de chaque onglet d’où sont extraites les valeurs B2.

Ceci relève d’un lourd classeur de suivi en bourse et le produit devrait donc donner à titre d’exemple.

AIR France ; AF
BCI NABIGATION ; BNA
MEDICREA ; ALMED
RECYLEX ; RX
SOITEC ; SOI
VALLOUREC ;VK

Merci dès à présent pour votre aide.

Trier par date Trier par votes

C

Compte Supprimé 979

Guest

24 Avril 2010

#2

Re : Classement & onglets ?

Bonjour Boulou 😉

Tu trouveras ci-dessous le code à utiliser

Code:

Sub Compilation()
  Dim Sht As Worksheet, Lig As Long
  ' Initialisation de la ligne
  Lig = 5
  ' Avec la feuille Home
  With Sheets("Home")
    ' Pour chaque feuille du classeur
    For Each Sht In ThisWorkbook.Worksheets
      ' Si le nom de la feuille n'est pas Home
      If Sht.Name <> "Home" Then
        ' Inscrire la valeur de la cellule B2 de la feuille
        .Range("BW" & Lig).Value = Sht.Range("B2").Value
        .Range("BX" & Lig).Value = Sht.Name
        Lig = Lig + 1
      End If
    Next Sht
    ' Faire le tri des données
    Lig = .Range("BW" & Rows.Count).End(xlUp).Row
    .Range("BW5:BX" & Lig).Sort Key1:=.Range("BW5"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  End With
End Sub

A+

Vote positif 0 Vote négatif

boulou

XLDnaute Occasionnel

24 Avril 2010

#3

Re : Classement & onglets ?

BrunoM45 à dit:

Bonjour Boulou 😉

Tu trouveras ci-dessous le code à utiliser

Code:

Sub Compilation()
  Dim Sht As Worksheet, Lig As Long
  ' Initialisation de la ligne
  Lig = 5
  ' Avec la feuille Home
  With Sheets("Home")
    ' Pour chaque feuille du classeur
    For Each Sht In ThisWorkbook.Worksheets
      ' Si le nom de la feuille n'est pas Home
      If Sht.Name <> "Home" Then
        ' Inscrire la valeur de la cellule B2 de la feuille
        .Range("BW" & Lig).Value = Sht.Range("B2").Value
        .Range("BX" & Lig).Value = Sht.Name
        Lig = Lig + 1
      End If
    Next Sht
    ' Faire le tri des données
    Lig = .Range("BW" & Rows.Count).End(xlUp).Row
    .Range("BW5:BX" & Lig).Sort Key1:=.Range("BW5"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  End With
End Sub

A+

Ta solution est excellente mais est-il possible de la perfectionner de telle sorte qu'elle s'automatise dès la création d'un nouvel onglet ?

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

Partager ce contenu :

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp E-mail Copier le lien