Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Remplacer cellule vide

AdrienSLAP

XLDnaute Nouveau
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

XLDnaute Accro
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
 

GALOUGALOU

XLDnaute Accro
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
 

GALOUGALOU

XLDnaute Accro
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…