XL 2016 Remplacer cellule vide

[AdrienSLAP]

Bonjour, j'ai rentré le programme suivant :

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

Mais j'aimerai que lorsque la case est vide il la remplace par un mot prédéfinie ou autre. Cela serait possible ?

 

[GALOUGALOU]

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

 

[AdrienSLAP]

Merci de votre aide galoulu.

 

[mapomme]

Bonjour @AdrienSLAP, @GALOUGALOU ,

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

 

[GALOUGALOU]

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

 

[mapomme]

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

Le demandeur va vite s'en apercevoir 😵

 

[AdrienSLAP]

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 ?

 

[mapomme]

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

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

 

[GALOUGALOU]

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

 

[AdrienSLAP]

Merci de votre aide a tout les 2.