XL 2016 Remplacer cellule vide

GALOUGALOU

XLDnaute Accro

• 11 Février 2020

• #2

bonjour adrienslap bonjour le forum

Private Sub Worksheet_Activate()
If Sheets("Donn?es CSV").Range("E8") = "" Then
ActiveSheet.Name = "nom_choisi"
Else
ActiveSheet.Name = Sheets("Donn?es CSV").Range("E8")
End If
End Sub

cordialement
galougalu

 

Vote positif 0 Vote négatif

A

AdrienSLAP

XLDnaute Nouveau

• 11 Février 2020

• #3

Merci de votre aide galoulu.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2020

• #4

Bonjour @AdrienSLAP, @GALOUGALOU ,

Excel 2016 accepterait il comme nom d’onglet un texte avec point d'interrogation ?

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 11 Février 2020

• #5

bonjour mapomme bonjour le forum
et je ne pense pas
mais j'ai repris la ligne de code de AdrienSLAP et j'aurais dû préciser que le point d'interrogation était mal venu. mais dans le doute comme je travaille sur excel 2010 je me suis abstenu. il doit s'agir d'une erreur de frappe
cordialement
galougalou

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2020

• #6

GALOUGALOU à dit:

j'aurais dû préciser que le point d'interrogation était mal venu

Cliquez pour agrandir...

Le demandeur va vite s'en apercevoir

 

Vote positif 0 Vote négatif

A

AdrienSLAP

XLDnaute Nouveau

• 12 Février 2020

• #7

Oui en effet c'est une erreur je l'ai vite vus, merci a vous.
Mais je rencontre un nouveau soucis, c'est que plusieurs onglet ne peuvent avoir le même nom, est-ce possible de contourner le probleme ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2020

• #8

AdrienSLAP à dit:

c'est que plusieurs onglet ne peuvent avoir le même nom, est-ce possible de contourner le probleme ?

Cliquez pour agrandir...

Les onglets doivent avoir des noms uniques. Je ne vois pas quel contournement pourrait aller contre ce fait.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 12 Février 2020

• #9

bonjour adrienslap bonjour le forum
a supposer que le nom soit à récupérer dans la feuille choisi
dans toutes les feuilles concernées, dans évenement feuille coller le code suivant

Private Sub Worksheet_Activate()
If ActiveSheet.Range("E8") = "" Then
ActiveSheet.Name = "nom_choisi"
Else
ActiveSheet.Name = ActiveSheet.Range("E8")
End If
End Sub

cordialement
galougalou

 

Vote positif 0 Vote négatif

A

AdrienSLAP

XLDnaute Nouveau

• 12 Février 2020

• #10

Merci de votre aide a tout les 2.

 

Vote positif 0 Vote négatif