XL 2010 selection d'onglet

[sebbbbb]

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, autant de fois que l'on clique sur le bouton

je souhaiterai également qu'à chaque fois que l'on clic sur ce bouton, l'onglet sélectionné soit le BL* (* étant le dernier onglet appelé BL créé)

merci pour votre aide
seb

 

[Hasco]

Bonjour,

Votre demande fait doublon avec https://www.excel-downloads.com/threads/prob-avec-selection-dun-onglet.20048515/
Cordialement

 

[sebbbbb]

Bjr
Oui c est volontaire.
Il me semble que c etait plus clair.
Peux tu m'aider ?
Merci

 

[Hasco]

re,

Oui c est volontaire.

Alors signalez-le dans l'autre discussion et mettez y le lien vers celle-ci, que ceux qui vous répondrons ne s'y perdent pas.

Peux tu m'aider ?

Clairement non.

 

[sebbbbb]

bonjour a tous
pas de solution j'ai l'impression ?

 

[GALOUGALOU]

bonjour sebbbb bonjour le fil bonjour le forum
essayer de créer une variable de type string, de stocker le nom de l'onglet bl* dans la variable , et de l'appeler en fin de procédure pour qu'il soit l'onglet actif au moment du clic sur le bouton.
un exemple à adapter

Sub créer_onglet()
Dim Og As String
Sheets.Add
Og = ActiveSheet.Name
Sheets("base").Select
MsgBox ActiveSheet.Name

Sheets(Og).Select
MsgBox ActiveSheet.Name

Sheets("base").Select

End Sub

cordialement
galougalou

 

[sebbbbb]

Merci
on s'en approche mais celà me semble un peu compliqué. je souhaiterai que celà se fasse automatiquement sans avoir a cliquer sur plusieurs boutons

 

[fanch55]

Bonjour,
Quand vous dites créer : les nouveaux onglets sont vierges ( pas de copie à effectuer ...)
Trop facile, il doit y avoir un non-dit ...???

Pour ce faire:
créer un userform non modal avec un seul bouton qui lance la sub ci-dessous :

Option Explicit
Private Sub CommandButton1_Click()
Dim M As Integer, J As Variant, Sh As Worksheet
    M = 0
    For Each Sh In Worksheets
        If Sh.Name Like "BL*" Then
            J = Mid(Sh.Name, 3)
            M = WorksheetFunction.Max(J, M)
        End If
    Next
    If M > 0 Then
        M = M + 1
        Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "PLIS" & M
        Sheets.Add(After:=ActiveSheet).Name = "MAN" & M
        Sheets.Add(After:=ActiveSheet).Name = "BL" & M
    End If
End Sub

Nota: vous pouvez si vous le préférez, associer cette macro à un bouton sur une feuille menu ..

 

[sebbbbb]

bjr
non bien sur les onglets ne sont pas vierges
il y a des données a l'interieur
je précise que 'l'onglet BL est le premier de mon jeu de 3 onglets donc par défaut la feuille affcihée est la dernière PLIS? (? etant le numéro associé)
merci a vous

 

[fanch55]

Que désirez-vous alors, copier la dernière BL etc.. ?

 

[sebbbbb]

Non toute.
Mais que la feuille active (donc affichee) soit la derniere feuille nommée BLx

 

[Eric C]

Bonsoir le forum
Bonsoir Seb, Roblochon, Galougalou & fanch55

En reprenant et modifiant le code de notre ami Galougalou (comme tu n'as pas donné ton propre code) :

Sub créer_onglet()
Dim Og As String
Sheets.Add
Og = ActiveSheet.Name
'Sheets("base").Select
'MsgBox ActiveSheet.Name

'Sheets(Og).Select
'MsgBox ActiveSheet.Name

'Sheets("base").Select
Sheets(Sheets.Count - 1).Select    <--- Ici, ta feuille active sera l'avant dernière DONC celle dernièrement créée
End Sub

Bonne soirée à toutes & à tous et continuez à vous protéger

 

[fanch55]

Bon ben je ne suis pas plus avancé, je vais détailler :
le jeu d'onglets à créer/coller doit-il l'être à partir du dernier jeu ou du premier ?

 

[sebbbbb]

En fait peu importe

 

[fanch55]

oki