Discussion :

[SUKINET]

Bonjour,
Sur le premier onglet du classeur dans la colonne A j'ai une liste de noms
...
LEGOANVIC_MARIE-FRANCE
LEMARQUIS_NATHALIE
LEMIEN_STEEVE
LEMOAL_EVELYNE
LEPERS_SYLVIE
...
a chaque nom correspond 1 onglet qui porte le meme nom

a l'aide d'une macro je voudrais inserer une feuille "LEMIEN_STEEVE" avant l'onglet "LEMOAL_EVELYNE"

Le code enregistré me donne ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("0-Matrice_AMENDE").Copy Before:=Sheets(46)
    Sheets("0-Matrice_AMENDE (2)").Select
    Windows("VRP  DONNEES.xlsm").Activate
    Windows("VRP   AMENDE.xlsm").Activate
    Sheets("0-Matrice_AMENDE (2)").Select
    Sheets("0-Matrice_AMENDE (2)").Name = "LEMIEN_STEEVE"

Comment faire pour récupérer "=sheets(46)" comme une variable 46 etant la position de l'onglet "LEMOAL_EVELYNE"

Merci pour votre aide

[jojo86]

Je ne comprend pas trop ce que tu veux faire...

Mais si tu veux ajouter un onglet avant un autre, il te faut récuperer l'Index de l'onglet qui sera précédé de l'onglet à ajouter.

Exemple :
Feuil 1, Feuil2, Feuil3

On veux ajouter Feuil4 avant Feuil 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Insertion()
'Récuperer l'Index de la feuil2 que l'on stock dans une variable "IndexFeuil" de type Intege
Dim IndexFeuil As Integer
IndexFeuil = Sheets("NOM DE TA FEUIL").Index 'Te donne le N° D'index !
'Ensuite, il te faut inserer ta feuil en utilisant IndexFeuil
Sheets("NOM DE TA FEUIL").Copy Before:=Sheets(IndexFeuil)
End Sub

Pour adapter à ton exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
a l'aide d'une macro je voudrais inserer une feuille "LEMIEN_STEEVE" avant l'onglet "LEMOAL_EVELYNE"
Sub Inserer ()
Dim IndexLEMOAL As Integer
 
IndexLEMOAL = Sheets("0-Matrice_AMENDE").Index 'Te donne le N° D'index !
 
   Sheets("0-Matrice_AMENDE").Copy Before:=Sheets(IndexLEMOAL)
    Sheets("0-Matrice_AMENDE (2)").Select
    Sheets("0-Matrice_AMENDE (2)").Name = "LEMIEN_STEEVE"

End sub

Voila j'éspère t'avoir aidé !

Sinon reformule ton éxplication ! (c'est vrai que c'est pas toujours facile de décrire ce que l'on veut faire)

[Pierre Fauconnier]

Bonjour

Tu n'es pas obligé de passer par l'index, tu peux directement passer le nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
worksheets.add before:=worksheets("LEMOAL_EVELYNE")
activesheet.name="LEMIEN_STEEVE"

Mais tu veux ajouter un onglet, ou tu veux déplacer un onglet existant?

[SUKINET]

Merci,

C'est presque cela que je voulais

sheet(46) correspond l'onglet "LEMOAL_EVELYNE)
mais si j'ai déjà insérer d'autre onglet, sheet(46) peut devenir (48) ou (54)
je voudrais respecter l'ordre alphabétique des onglet en les inserant.
dans le code que tu m'as donné indexfeuil ="46"
lorsque je'exécute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("0-Matrice_AMENDE").Copy Before:=Sheets(IndexFeuil)

indexfeuil attend 1 chiffre mais pas entre ()

Merci

Merci
je veux ajouter 1 nouvel onglet...

[Pierre Fauconnier]

C'est pour cela que tu ne dois pas utiliser l'index, mais bien le nom de l'onglet...

[SUKINET]

Merci

le code donné par Pierre FAUCAUNNIER fonctionne à merveille.

Je ne pensais pas que cela aurait été si simple (quand on sait, cela semble simple)

Merci à tous