Déplacement de feuilles en fonction de l'intitulé d'une cellule.

torpedoc38

XLDnaute Nouveau
Bonjour à tout le monde.

Merci tout d'abord aux futurs membres qui voudront bien prendre quelques minutes de leurs temps pour me répondre.

Je cherche depuis pas mal de temps sur tous les forums possibles (et sur le votre en particulier !) mais pas moyen de trouver une réponse . Et comme mon niveau en VBA n'est pas suffisant, je me permets de m'en remettre à vous.

Voila, c'est surement pas bien compliqué :

J'ai un classeur excel comportant 10 feuilles (par exemple).

Chaque feuille porte un nom bien défini (feuille 1 : toto ; feuille 2 : tata ; etc...)

J'ai créer une liste déroulante de ces noms de feuille sur la première (qui ne fait pas partie des 10 autres et placée en premier !)

Sur 10 cellule (de G1:G10 par exemple) je mets un chiffre de 1 à 10. Sur les 10 cellules d'en face (H1:H10) je choisi le nom d'une feuille (via la liste crée...)

Jusque là tout va bien, mais :

Je souhaite créer une macro (en appuyant sur un bouton) qui classe les feuilles suivant leur position dans la feuille 1 (par exemple : H5 = toto donc la feuille nommée "toto" va se placer en 5+1 position (la première feuille ne compte pas, pour mémoire)

Voila, vous me rendriez vraiment un grand service !

Bonne journée !
 

Papou-net

XLDnaute Barbatruc
Re : Déplacement de feuilles en fonction de l'intitulé d'une cellule.

Bonjour torpedoc38, et bienvenue,

Bien ta question soit clairement posée et comprise,

Tu augmenterais tes chances d'obtenir une réponse en joignant ton fichier qu'il serait trop fastidieux de reconstituer.

Cordialement.
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Déplacement de feuilles en fonction de l'intitulé d'une cellule.

Bonjour à tous,

Merci tout d'abord aux futurs membres qui voudront bien ............
ça marche aussi avec les anciens :rolleyes: et j'en profite pour féliciter Papou-net pour ses 3000 posts

un essai en pièce jointe (à adapter)

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    22.2 KB · Affichages: 36
  • 111.xlsm
    22.2 KB · Affichages: 41
  • 111.xlsm
    22.2 KB · Affichages: 30

torpedoc38

XLDnaute Nouveau
Re : Déplacement de feuilles en fonction de l'intitulé d'une cellule.

Merci Papou-net et Phillipe pour votre réponse rapide.

J'ai mis en pièce jointe un exemple de ce que je veux faire pour être plus clair.

Merci d'avance !
 

Pièces jointes

  • Essai.xlsx
    12.2 KB · Affichages: 28
  • Essai.xlsx
    12.2 KB · Affichages: 29
  • Essai.xlsx
    12.2 KB · Affichages: 37

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Déplacement de feuilles en fonction de l'intitulé d'une cellule.

Re,

voir fichier joint

Attention, il ne peut pas y avoir de doublons dans la liste en colonne B
la procédure ne gère pas le mot "Rien"

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    23.1 KB · Affichages: 23
  • 111.xlsm
    23.1 KB · Affichages: 30
  • 111.xlsm
    23.1 KB · Affichages: 30

Gardien de phare

XLDnaute Accro
Re : Déplacement de feuilles en fonction de l'intitulé d'une cellule.

Bonjour,

A partir de l'exemple, le code pourrait être :
VB:
Sub trier()
Dim i As Long, Fe As String
For i = 13 To 4 Step -1
    Fe = Sheets(1).Range("B" & i).Value
    If Fe <> "Rien" Then
    Worksheets(Fe).Move after:=Worksheets(1)
    End If
Next
End Sub

A adapter, bien sur à ton classeur réel.

HTH
 

Discussions similaires

Réponses
2
Affichages
485