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

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2012

• #2

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 ? 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juillet 2012

• #3

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

Salut Staple,

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

Cliquez pour agrandir...

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+ 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2012

• #4

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

Re

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

Cliquez pour agrandir...

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 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juillet 2012

• #5

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

Oui, bon, d'accord.

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


A+ 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2012

• #6

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

Re

Voici Lazy-Wolfy 🙄

Code:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juillet 2012

• #7

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

Merci Staple.


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

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+ 😎

 

Dernière édition: 27 Juillet 2012

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 27 Juillet 2012

• #8

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+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juillet 2012

• #9

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

Salut Bruno,

Non, pas de soluces en vues. 😉

A+ 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2012

• #10

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:

Cliquez pour agrandir...

Mettre les mains dans le cambouis, comme toujours 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juillet 2012

• #11

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

Re Staple, Bruno.

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

A plu plus 😎

 

Vote positif 0 Vote négatif