Tom's Guide > Forum > Logiciels > Bureautique et utilitaires > Nom onglet excel et cellule

Nom onglet excel et cellule

Forum Logiciels : Bureautique et utilitaires - Nom onglet excel et cellule

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

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

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

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 :

Code :
  1. Sub TabNameA1()
  2.     Dim Feuille As Worksheet
  3.    
  4.         For Each Feuille In Worksheets
  5.             If Feuille.Range("A1" ) <> "" Then
  6.             Feuille.Name = Feuille.Range("A1" ).Value
  7.       End If
  8.   Next Feuille
  9.  
  10. End Sub

Répondre à Nobuo81

MERCI a toi
J'essaye de suite :bounce:

Répondre à Anonyme

De rien.
Tiens moi au jus !

Répondre à Nobuo81

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

Répondre à Anonyme


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:

Code :
  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. Sub ArretTimer()
  8. On Error Resume Next
  9.   Application.OnTime Lheure, "ExecutionTimer", , False
  10. End Sub
  11. Sub ExecutionTimer()
  12.     Dim Feuille As Worksheet
  13.    
  14.         For Each Feuille In Worksheets
  15.         If Feuille.Range("A1" ) <> "" Then
  16.         Feuille.Name = Feuille.Range("A1" ).Value
  17.   End If
  18.   Next Feuille
  19.  
  20. Lheure = Now + TimeSerial(0, 0, 1)
  21.   Application.OnTime Lheure, "ExecutionTimer"
  22. 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.

Répondre à Nobuo81

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.

Répondre à Anonyme

Penses à basculer ensuite ton sujet en résolu et choisi la meilleure réponse.

Répondre à Nobuo81
Tom's Guide > Forum > Logiciels > Bureautique et utilitaires > Nom onglet excel et cellule
Aller à :

Il y a 2703 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Liens