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

problème de vba

  • Initiateur de la discussion Initiateur de la discussion picronte
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

picronte

XLDnaute Occasionnel
Bonjour le fil,
je reviens vers vous car j'ai deux problème avec ce code qui est dans Thisworkbook.
comme il est dans le thisworkbook il prend en charge toutes les feuils, mais je voudrais qu'il ne prenne pas en charge la feuil2 (Recap)
et le deuxième soucis c'est qu'il ne prend pas en charge quelques noms et prénoms composés comme DUPONT Jean-Claude
ci-joint le code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

If Target.Address = "$E$3" Then Sh.Name = Target

End Sub
pouvez-vous m'aider
Picronte
 
Re : problème de vba

Re bonsoir
J'ai trouvé le deuxième problème: J'avais des espaces après les prénoms donc trop de caractère et il ne voulais pas prendre.
mais pour ce qui est du premier problème je suis toujours dans l'impasse.
Bonne nuit à tous
Picronte
 
Re : problème de vba

Bonjour,

essaye peut être ceci :
Code:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Sh.Name <> "Recap" And Target.Address = "$E$3" Then Sh.Name = Target
End Sub
bonne journée
@+
 
Re : problème de vba

Re,

Code:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Sh.Name <> "Recap" And Sh.Name <> "toto" And Target.Address = "$E$3" And Target <> "" Then Sh.Name = Target
End Sub
 
Re : problème de vba

Re,

peut être rajouter un test :
Code:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Sh.Name <> "Recap" And Sh.Name <> "toto" And Target.Address = "$E$3" And Target <> "" Then Sh.Name = Target
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
484
Réponses
7
Affichages
987
S
Réponses
3
Affichages
749
Réponses
13
Affichages
924
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…