XL 2010 selection d'onglet

Hasco

XLDnaute Barbatruc

Repose en paix

• 1 Septembre 2020

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 1 Septembre 2020

• #3

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 1 Septembre 2020

• #4

re,

sebbbbb à dit:

Oui c est volontaire.

Cliquez pour agrandir...

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.

sebbbbb à dit:

Peux tu m'aider ?

Cliquez pour agrandir...

Clairement non.

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Septembre 2020

• #5

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

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 2 Septembre 2020

• #6

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

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

End Sub

cordialement
galougalou

 

Pièces jointes

• ajout onglet.xlsm

  18.5 KB · Affichages: 14

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Septembre 2020

• #7

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Septembre 2020

• #8

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 :

VB:

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 ..

 

Pièces jointes

• seb.xlsm

  24.2 KB · Affichages: 5

Dernière édition: 2 Septembre 2020

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Septembre 2020

• #9

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Septembre 2020

• #10

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

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Septembre 2020

• #11

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Septembre 2020

• #12

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) :

VB:

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Septembre 2020

• #13

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 ?

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 2 Septembre 2020

• #14

En fait peu importe

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Septembre 2020

• #15

oki

 

Pièces jointes

• seb.xlsm

  29.5 KB · Affichages: 12

Vote positif 0 Vote négatif

Solution