Votre question

Nom onglet excel et cellule

Tags :
  • Standard
  • Logiciels
Dernière réponse : dans Logiciels
Anonyme
a b 6 Logiciels
3 Novembre 2009 20:02:30

Bonjour,
J'ai un chiffre en cellule A1 (ce chiffre est le résultat d'une formule).
JE voudrais que mon onglet ai pour nom le chiffre contenu en A1.
Comment faire par VBA?
Ainsi que mon onglet change de nom automatiquement en fonction du résultat qui ce trouve en A1.
MERCI

Autres pages sur : nom onglet excel cellule

4 Novembre 2009 10:59:42

Salut, je confirme que le standard de l'application Excel ne permet pas se genre d'option. Ca passe obligatoirement par du VBA.

Pour Excel 2003, on pourrait utiliser ça :

  1. Sub TabNameA1()
  2.  
  3. Dim Feuille As Worksheet
  4.  
  5. For Each Feuille In Worksheets
  6. If Feuille.Range("A1") <> "" Then
  7. Feuille.Name = Feuille.Range("A1").Value
  8. End If
  9. Next Feuille
  10.  
  11. End Sub
Anonyme
a b 6 Logiciels
4 Novembre 2009 17:46:41

MERCI a toi
J'essaye de suite :bounce: 
Contenus similaires
4 Novembre 2009 17:47:37

De rien.
Tiens moi au jus !
Anonyme
a b 6 Logiciels
4 Novembre 2009 18:19:50

Salut

Alors je viens de testé !
Je l'inscrit dans le code de la premiere feuil et hop ca marche . . .Génial :lol: 

Mon souci maintenant c'est que lorsque la valeur A1 change le nom de mon onglet ne suit pas ! ! ! c'est balo ! ! ! :pt1cable: 

Pourquoi il ne prend pas ?


en tous les cas merci de votre aide, je cherche pas moi meme depuis plus d'une semaine mais je n'ai aucune notion de vba, j'apprends sur le "tas" comme ont dit ! ! !
Alors merci bcp d'avoir contribué a mon évolution sur le sujet
5 Novembre 2009 17:29:52


Salut,

Il ne te le prends pas car la vérification ne se fait que lorsque tu lance ton programme.

Plusieurs possibilités :

Soit tu ajoutes un raccourci à la macro et tu l'exécutes à chaque fois que tu as besoin de rafraîchir.

Soit tu met un "timer" et là bonjour le travail. :cry: 

Je plainsante vu que je suis nouveau sur tom's guide et que j'ai besoin de points. :sol: 

  1. Sub Auto_open()
  2. Dim nbs As Integer
  3. 'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
  4. Interval = nbs = 1
  5. Application.OnTime Now + TimeSerial(0, 0, 1), "ExecutionTimer"
  6. End Sub
  7.  
  8.  
  9. Sub ArretTimer()
  10. On Error Resume Next
  11. Application.OnTime Lheure, "ExecutionTimer", , False
  12. End Sub
  13.  
  14.  
  15. Sub ExecutionTimer()
  16.  
  17. Dim Feuille As Worksheet
  18.  
  19. For Each Feuille In Worksheets
  20. If Feuille.Range("A1") <> "" Then
  21. Feuille.Name = Feuille.Range("A1").Value
  22. End If
  23. Next Feuille
  24.  
  25. Lheure = Now + TimeSerial(0, 0, 1)
  26. Application.OnTime Lheure, "ExecutionTimer"
  27. End Sub


Bon cerise sur le gâteau, j'ai rajouté et un timer pour que le code s'exécute sur dès que tu fais une modification et un auto_open pour que le programme se lance tout seul à l'ouverture de ton fichier. Le tout servi sur un plateau.
Anonyme
a b 6 Logiciels
5 Novembre 2009 18:36:41

salut :pt1cable: 


MERCI tu es trop fort toi :bounce: 

Je t'adore . . . si ce second VBA fonction aussi bien que le premier alors Chapeau bas !



encore merci, merci merci merci pour ton aide.
5 Novembre 2009 19:43:16

Penses à basculer ensuite ton sujet en résolu et choisi la meilleure réponse.
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS