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

[torpedoc38]

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]

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]

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 et j'en profite pour féliciter Papou-net pour ses 3000 posts

un essai en pièce jointe (à adapter)

à+
Philippe

 

[torpedoc38]

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 !

 

[phlaurent55]

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

 

[Gardien de phare]

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

Bonjour,

A partir de l'exemple, le code pourrait être :

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

 

[torpedoc38]

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

Merci beaucoup à vous deux !

C'est exactement ce que je cherchais

Bonne journée

(PS : Je ne sais pas comment on met le sujet en résolut...)

 

[Gardien de phare]

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

Re,

Tu retournes sur ton 1er message tu peux modifier le titre.