problème de vba

[picronte]

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

 

[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

 

[Pierrot93]

Re : problème de vba

Bonjour,

essaye peut être ceci :

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
@+

 

[picronte]

Re : problème de vba

Bonjour Pierrot93,
Merci cela fonctionne, si j'ai plus onglets, quel est le code?
Picronte

 

[Pierrot93]

Re : problème de vba

Re,

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

 

[Pierrot93]

Re : problème de vba

Re,

peut être rajouter un test :

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

 

[picronte]

Re : [Résolu] problème de vba

Re,
effectivement la première solution ne fonctionne pas.
Merci
Picronte

 

[Pierrot93]

Re : problème de vba

Re,

effectivement la première solution ne fonctionne pas.

oui, au cas ou plusieurs cellules modifiées...
j'en conclu que la 2ème solution convient...