XL 2010 Figer un ou plusieurs onglets

G

Goose

XLDnaute Occasionnel

• 9 Avril 2021

• #16

encore une chose !! si je prends ta macro, comment figer un deuxième onglet a coté de "Recap" ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Avril 2021

• #17

@Goose

N'oublie pas d'adapter le nom de l'onglet "Feuil1"

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Récap").Move Before:=Sheets(Sh.Name)

'A adapter
Sheets("Feuil1").Move Before:=Sheets("Récap") 'Feui1 à adapter avec le nom que tu souhaites
'
Sh.Activate
Application.EnableEvents = True
End Sub

@Phil69970

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 9 Avril 2021

• #18

Merci mais cette modif ne fonctionne pas, il n'y a aucun action !!

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Avril 2021

• #19

@Goose

Comme d'hab....

Phil69970 à dit:

Peux tu développer et fournir un fichier exemple représentatif avec les noms de tes onglets...
Répondre cela ne fonctionne ne nous aide pas beaucoup, explique qu'est ce qui ne fonctionne pas as tu copié le code

Cliquez pour agrandir...

Qu'as tu écris et ou..... etc...
Voir un fichier

....Car bien sur chez moi ça marche...... 🤔

@Phil69970

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 9 Avril 2021

• #20

Effectivement cela fonctionne a présent bizarre...et pour rajouter un 3ème onglet je rajoute la ligne:
Sheets("Feuil2").Move Before:=Sheets("Récap")
?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Avril 2021

• #21

@Goose

Sans tester je dirais plutôt ceci :

VB:

'A adapter
Sheets("Feuil2").Move Before:=Sheets("Feuil1") 'Feui2 à adapter avec le nom que tu souhaites

@Phil69970

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 10 Avril 2021

• #22

Nikel merci !!

 

Vote positif 0 Vote négatif