XL 2010 Prob avec sélection d'un onglet

[sebbbbb]

Bonjour

j'ai mis bcp de temps de faire le script ci-dessous qui fonctionne très bien.

---

Option Explicit
Dim I, II, III, IV, V
Dim Ws As Worksheet
Dim WsBL As Worksheet
Dim WsPLBL As Worksheet
Dim WsCM As Worksheet
Dim WsRe As Worksheet
Dim WsSWBS As Object
Sub NEWblmobile()
I = 0: II = 0: III = 0: IV = 0: V = 0
Application.ScreenUpdating = False
With ActiveWorkbook
.Unprotect ("BOURDAN1309")
For Each Ws In .Worksheets
With Ws
Select Case True
Case .Name Like "BL Mobile*"
I = I + 1
Case .Name Like "PL Mobile*"
II = II + 1
Case .Name Like "Man Mobile*"
III = III + 1
Case .Name Like "Receipt*"
IV = IV + 1
Case .Name Like "SWB service*"
V = V + 1
End Select
End With
Next Ws
.Sheets("BL Mobile1").Copy after:=.Sheets(.Sheets.Count)
Set WsBL = ActiveSheet
With WsBL
.Name = "BL Mobile" & 1 + I
End With
.Sheets("PL Mobile1").Copy after:=.Sheets(.Sheets.Count)
Set WsPLBL = ActiveSheet
With WsPLBL
.Name = "PL Mobile" & 1 + II
.UsedRange.Replace What:="BL Mobile1", Replacement:=WsBL.Name, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
.Sheets("Man Mobile1").Copy after:=.Sheets(.Sheets.Count)
Set WsCM = ActiveSheet
With WsCM
.Name = "Man Mobile" & 1 + III
.Unprotect
.UsedRange.Replace What:="BL Mobile1", Replacement:=WsBL.Name, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Protect
End With
.Sheets("Receipt1").Copy after:=.Sheets(.Sheets.Count)
Set WsRe = ActiveSheet
With WsRe
.Name = "Receipt" & 1 + IV
.UsedRange.Replace What:="BL Mobile1", Replacement:=WsBL.Name, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
.Sheets("SWB service1").Copy after:=.Sheets(.Sheets.Count)
Set WsSWBS = ActiveSheet
With WsSWBS
.Name = "SWB service" & 1 + V
.UsedRange.Replace What:="BL Mobile1", Replacement:=WsBL.Name, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
End With
Application.ScreenUpdating = True

ActiveWorkbook.Protect "BOURDAN1309"
Set WsBL = ActiveSheet
MsgBox "NE PAS OUBLIER D'INDIQUER LE NUMERO DU NOUVEAU BL"

End Sub

--

Le but étant que lorsque je clique sur un bouton, 6 onglets sont dédoublés avec le num qui se modifie dans le nom de l'onglet

ainsi si je clique sur le bouton situé dans l'onglet BL Mobile1, un onglet se créé automatiquement qui prend le nom BL Mobile2 et ainsi de suite. 5 onglets s'ajoutent en même tps pour que chacun se termine par 2 puis ensuite 3 et ainsi de suite.
les 5 onglets d'origine s'appellent :
- BL Mobile1
- PL Mobile1
- Man Mobile1
- Receipt1
- SWB service1

mon problème est que je voudrais qu'à chaque fois que je clique sur le bouton, et une fois que le jeu d'onglet a été ajouté, la page sélectionnée (donc visible à l'écran corresponde au dernier onglet BL Mobile? - le point d'interrogation correspondant au dernier numéro

actuellement le dernier onglet affiché correspond à SWB service? - le point d'interrogation correspondant au dernier numéro

j'espère être assez clair dans mes explications

merci par avance
seb

 

[Lolote83]

Demain.
@+ Lolote83

 

[sebbbbb]

Ok
MErci

 

[fanch55]

Bonsoir
ce fil fait doublon avec

XL 2010 - selection d'onglet

bjr please help ! j'ai dans un fichier des onglets appelés BL1, MAN1, PLIS1 un clic sur un bouton et un autre jeu d'onglets est créé automatiquement appelé BL2, MAN2, PLIS2 un autre clic sur le même bouton créé un 3e jeu onglets appelés automatiquement BL3, MAN3, PLIS3 et ainsi de suite...

www.excel-downloads.com

qui semble-t-il est résolu .

 

[Lolote83]

Bonjour,
Merci Franch55 pour le lien du doublon.
Je dirais même qu'il y a triplon. Voir ici = https://www.excel-downloads.com/thr...ncrementent-par-macro.20048560/#post-20357450
Sebbbbb, quand je disais plus haut :

Je ne le répèterais jamais assez, mais une demande doit être claire, concise et un maximum d'explication amène une réponse dans ce sens.

Je m'aperçois aussi, en parcourant les liens donnés ci-dessous, que plusieurs questions ont été posées ce qui colabore donc mes dires.
Quand tu disais :

je crois que mon 1er post donnait plutot bien le sens de ce que j'attendais, et mon fichier joint aussi

, je pense encore une fois qu'une explication claire, et précise n'aurait pas amenée autant de questionnements.
De même, comme le dit Franch55, les doublons ou triplons sont à éviter, car une fois qu'une solution est apportée, cela permet à tous ceux qui se cassent la tête pour te dépanner de chercher une solution alors que finalement, tu as eu ce que tu souhaitait.
Ceci dit, j'essaye de t'envoyer dans la journée, un exemple avec la fonction INDIRECT mais sache qu'il te faudra donc reprendre l'intégralité de tes formules faisant référence à un autre onglet. Et ce n'est pas une mince affaire ........
@+ Lolote83

 

[sebbbbb]

Merci

 

[Lolote83]

Re bonjour,
Voici donc ton fichier avec quelques formules utilisant la fonction INDIRECT (voir onglet PL Mobile1)
Une formule en CQ2 de l'onglet BL Mobile1 a été insérée. Ne pas supprimer. C'est cette formule qui permettra ensuite de réaliser les INDIRECT
Bonne chance pour les futures modifs.
Cordialement
@+ Lolote83

 

[sebbbbb]

Merci beaucoup pour ta patience et ta pedagogie.
Je vais m'y plonger
Bonne journee et merci encore