[Résolu] Enlever le (2) d'une feuille dupliquée.

[Lone-wolf]

Bonsoir le Forum,

est-t-il possible d'enlever le (2) dans un onglet et comment faire?

Merci.


A+ 😎

 

[Staple1600]

Re : Enlever le (2) d'une feuille dupliquée.

Bonsoir Wolfy

Il suffit de renommer l'onglet, non ?

C'est-t-y pas pour dépatouiller le demandeur ici par hasard ? 😉

 

[Lone-wolf]

Re : Enlever le (2) d'une feuille dupliquée.

Salut Staple,

C'est-t-y pas pour dépatouiller le demandeur ici par hasard ?

un peu oui. Bien sûr que je peux le faire manuellement, mais c'est chiant au bout de 10x 2 onglets à renommer. 😡 😱

Il me semble avoir vu quelque chose sur le forum?! 😕 😕


A+ 😎

 

[Staple1600]

Re : Enlever le (2) d'une feuille dupliquée.

Re

Il me semble avoir vu quelque chose sur le forum?!

Dans ce cas, la loupe t'attends, mon cher Wolfy.

Quand je disais renommer, il fallait lire : renommer par le biais d'une macro VBA 😉

 

[Lone-wolf]

Re : Enlever le (2) d'une feuille dupliquée.

Oui, bon, d'accord.

Et c'est quoi cette macro..ni? 😉


A+ 😎

 

[Staple1600]

Re : Enlever le (2) d'une feuille dupliquée.

Re

Voici Lazy-Wolfy 🙄

Sub Macro1()
' Macro enregistrée le 27/07/2012 par Staple1600
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Copie " & Trim(Split(ActiveSheet.Name, "(")(0))
End Sub

 

[Lone-wolf]

Re : Enlever le (2) d'une feuille dupliquée.

Merci Staple.


Mais comment adapter Trim(Split(ActiveSheet.Name, "(")(0)) dans ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet, sh As Worksheet
Application.ScreenUpdating = False
If Not Intersect(Target, [A2:A27]) Is Nothing Then
On Error Resume Next
With Sheets("Feuil1")
 lig = .[A65536].End(xlUp).Row
 If lig = 2 Then
 nom = Target
 Else
 lig = .Cells(lig - 1, 1) + 1
 End If
Set ws = Sheets("Avant")
ws.Copy After:=Sheets(4): ws.Name = "MODELE " & "|| " & Target

Set sh = Sheets("Après")
sh.Copy After:=Sheets(4): sh.Name = "OFFICE " & "|| " & Target
End With
End If
End Sub

A+ 😎

 

[Compte Supprimé 979]

Re : Enlever le (2) d'une feuille dupliquée.

Bonjour le fil
Salut Assassin, t'inquiète la solution est trouvée pour la création de feuille 😉

A+

 

[Lone-wolf]

Re : Enlever le (2) d'une feuille dupliquée.

Salut Bruno,

Non, pas de soluces en vues. 😉

A+ 😎

 

[Staple1600]

Re : Enlever le (2) d'une feuille dupliquée.

Bonsoir BrunoM45

Loup-Solitaire
Si, si mais la solution de Bruno est dans le fil de yblotiere, faut suivre Wollfy 😉
Sinon pour ceci

Mais comment adapter Trim(Split(ActiveSheet.Name, "(")(0)) dans ce code:

Mettre les mains dans le cambouis, comme toujours 😉

 

[Lone-wolf]

Re : Enlever le (2) d'une feuille dupliquée.

Re Staple, Bruno.

J'ai répondu sur l'autre post! 😀

A plu plus 😎