XL 2016 Remplacer des caractère

[AdrienSLAP]

Bonjour, je rencontre un soucis dans mon fichier excel j'ai créer (non sans l'aide de ce forum) un code permettant de remplacer les apostrophe " ' " par "(bis)" automatique lorsque que l'on nomme un onglet, mais maintenant que j'ai ajouter une seconde ligne pour remplacer également les slashs "/ " par des "%"; la première ligne elle ne remplace plus les apostrophes.
Voici le code en question :

Private Sub Worksheet_Activate()
If Sheets("Données CSV").Range("E8") = "" Then
ActiveSheet.Name = "Collone 1"
Else
NomFeuille = Replace(Sheets("Données CSV").Range("E8"), "'", "(bis)")
NomFeuille = Replace(Sheets("Données CSV").Range("E8"), "/", "%") (Voici la ligne rajouter, sans celle ci le code marche parfaitement bien)
ActiveSheet.Name = NomFeuille
End If
End Sub

Quelqu'un aurait une idée de la raison de mon problème ? Merci d'avance.

 

[M12]

Bonjour
Teste simplement sans macro de renommer une feuille avec le "/"
Tu comprends donc que c'est un caractère interdit dans le nom des feuilles

 

[job75]

Bonjour AdrienSLAP, M12,

Il suffit de faire en sorte qu'il y ait 2 modifications successives, il n'y a aucun problème en utilisant :

Private Sub Worksheet_Activate()
If Sheets("Données CSV").Range("E8") = "" Then
    ActiveSheet.Name = "Collone 1"
Else
    nomfeuille = Replace(Sheets("Données CSV").Range("E8"), "'", "(bis)")
    nomfeuille = Replace(nomfeuille, "/", "%")
    ActiveSheet.Name = nomfeuille
End If
End Sub

Testez avec 15/06/2020' en Données CSV!E8.

A+

 

[patricktoulon]

bonjour à tous

ActiveSheet.Name = Replace(Replace(Sheets("Données CSV").Range("E8"), "'", "(bis)"), "/", "%")

et si je pousse un peu plus loin

With Sheets("Données CSV")
    ActiveSheet.Name = Array(Replace(Replace(.Range("E8"), "'", "(bis)"), "/", "%"), "Collone 1")(Abs(.Range("E8") = ""))
End With

 

[job75]

Bonjour patricktoulon,

et si je pousse un peu plus loin

Un peu trop loin non ? Faut pas pousser !

A+

 

[patricktoulon]

bonjour job75
ça fonctionne , c'est propre , 1 ligne

 

[job75]

Un code qui vrille le cervelet n'est pas propre

 

[patricktoulon]

re
tu trouve que ça vrille le cervelet ?

nom=array("truc","machin")(abs(chose=bidule))
c'est d'une simplicité absolue quand on connait et comprend la conversion d'un boolean

 

[job75]

Perso je me contenterai de ceci :

Private Sub Worksheet_Activate()
nomFeuille = Replace(Replace(Sheets("Données CSV").Range("E8"), "'", "(bis)"), "/", "%")
Name = IIf(nomFeuille = "", "Collone 1", nomFeuille)
End Sub

 

[patricktoulon]

re

Name = array("Collone 1", nomFeuille)(abs(nomFeuille <> ""))

je fourni les aspro aussi

 

[AdrienSLAP]

Merci de votre aide j'ai pu m'en sortir avec vos conseils et exemple, désolé du remerciement tardif. Bonne journée et merci encore.