[Résolu]mini code qui ne marche pas dans "Private Sub" ???

[Kiriko]

Bonjour,
Ce code :

Private Sub renommerOnglet()
ActiveSheet.Name = Range("R2").Value
End Sub

ne fonctionne pas, alors qu'il marche sans "private".

Qu'ai-je loupé (j'imagine une bête erreur de grand débutant ?)

Merci !

 

[fhoest]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour
le private fonctionne avec des objects dessiner tel un bouton avec un evénement derrière exemple un click()
sans le private il s'agit d'une sous routine que tu peux appeller avec ou sans l'instruction "Call" dans un bout de code.
exemple:

private sub commandbutton1_click()
call test
end sub

sub test()
msgbox "bonjour"
end sub

A+

 

[david84]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour,
testé dans un module standard, le code fourni fonctionne.
A+

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour fhoest, et merci de ton aide !
Cela ne fonctionne toujours pas malheureusement!
Le plus étrange est que ça marche dans un module, mais pas dans le code de la feuille..

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour David84,
Oui, c'est bien mon soucis : Ok dans module standard, mais pas dans code de la feuille !!!

Je dois rater un truc...

 

[fhoest]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour David84,
Peut etre faudrait il joindre un bout de ton fichier pour voir dans le contexte ou tu travaille genre userform ou feuille excel etc...
de plus je ne vois pas ou est le souci dans le sens ou lorsque tu enlèves private cela fonctionne,c'est toi qui doit adapter a vba et pas vba qui doit s'adapter a ce que tu veux lui écrire.
A+

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Voici le fichier, bien vide...
C'est bien là mon soucis, sans autre modification, il fonctionne dans un module et pas dans le code de la feuille....
Une "option" d'excel désactivée ? Mon excel qui est "corrompu" ?

Merci encore

 

[fhoest]

Re : mini code qui ne marche pas dans "Private Sub" ???

Voici ton fichier en retour,

le code peut rester dans la feuille.
regarde le test du bouton chez moi il fonctionne sans passer par un module.

A+

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Merci fhoest,

A voir ton fichier, je comprends que je me suis vraiment très mal expliqué !!
Je voulais mettre ce code "dans la feuille", sans avoir à l'appeler avec un quelconque bouton, de manière à ce qu'il s'exécute dès que l'on sélectionne le dit onglet... Ce qui ne fonctionne toujours pas...
Désolé si j'ai manqué de clarté jusqu'alors, le grand débutant que je suis pensais que cela était "implicite" lorsque l'on parlait de "Private Sub"...

Et à ME relire, je me rends compte qu'il serait encore plus intéressant pour moi que cet onglet se renomme "dynamiquement", instantanément dès que le contenu de la cellule R2 est modifié...
Si tu as des pistes en ce sens...
A te relire,

Cordialement,

 

[MJ13]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour à tous

On peut dans ton cas utiliser les évènements de la feuille.

Exemple de code à mettre dans la feuille:

Private Sub Worksheet_Activate()
ActiveSheet.Name = Cells(1, 1)
End Sub

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Re bonjour MJ13, et merci !
Chez moi, ton code me renvoi "Erreur définie par l'application ou par l'objet"...

 

[MJ13]

Re : mini code qui ne marche pas dans "Private Sub" ???

Re

Pourtant cela devrait fonctionner. Voir ce fichier en cliquant sur l'onglet Test 🙂.

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Et bien oui, cela fonctionne parfaitement...
Je ne vois pas où j'ai fauté, je suis désolé...

UIne éventuelle piste pour l'adapter afin qu'il s'actualise à chaque changement de valeur dans la dite cellule, ou cela n'est pas recommandé ?

Merci encore !!

 

[Si...]

Re : mini code qui ne marche pas dans "Private Sub" ???

Salut

dans le module de la feuille dont le nom doit être défini en R2 de cette même feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$R$2" Then Exit Sub
  ActiveSheet.Name = Target
End Sub

 

[Kiriko]

Re : mini code qui ne marche pas dans "Private Sub" ???

Bonjour Si... et Merci !

Toutefois, cela ne fonctionne pas chez moi...
J'ai copié le code tel quel dans la "feuille" concernée, sans rien d'autre...
Sans succès....