XL 2016 Remplacer des caractère

M12

XLDnaute Accro

• 16 Juin 2020

• #2

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2020

• #3

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 :

Code:

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+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juin 2020

• #4

bonjour à tous

VB:

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

et si je pousse un peu plus loin

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2020

• #5

Bonjour patricktoulon,

patricktoulon à dit:

et si je pousse un peu plus loin

Cliquez pour agrandir...

Un peu trop loin non ? Faut pas pousser !

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juin 2020

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2020

• #7

Un code qui vrille le cervelet n'est pas propre

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juin 2020

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2020

• #9

Perso je me contenterai de ceci :

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juin 2020

• #10

re

VB:

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

je fourni les aspro aussi

 

Vote positif 0 Vote négatif

A

AdrienSLAP

XLDnaute Nouveau

• 25 Juin 2020

• #11

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.

 

Vote positif 0 Vote négatif