agrémenter des onglets

[aperobass]

salut a tous!! je voudrais savoir si on peut agrémenter les onglets avec une macro?
merci.

 

[Compte Supprimé 979]

Re : agrémenter des onglets

Bonsoir Aperobass

Ca c'est une super question ....
Oui mais encore

Merci d'expliciter ta demande.

A+

 

[13GIBE59]

Re : agrémenter des onglets

Bonjour bruno

"Agrémenter des onglets" : peut-être y ajouter des échalottes ?
Sûr, c'est trop bon. Mais par macro (cuisine), est-ce possible ?

Arf.

 

[aperobass]

Re : agrémenter des onglets

bon je vais essayer de vous expliquez.j'ai créé un classeur avec 12 feuilles et je voudrais agrémenter les onglets quand je renommes la premiere feuille.
comment faire?

 

[aperobass]

Re : incrémenter des onglets

merci oui c'est icrémenter
j'espere que vous allez comprendre ce que je veut faire.

 

[Paritec]

Re : agrémenter des onglets

bonsoir à tous,
incrémenter ou agrémenter c'est pareil il faut faire quelques choses!!!
Mais quoi là est la question?
a+
papou

 

[JCGL]

Re : agrémenter des onglets

Bonjour à tous,

Un code sur l'activation de la feuille 1 :

Option Explicit

Private Sub Worksheet_Activate()
Dim X As Byte
For X = 1 To Sheets.Count - 1
Sheets(X + 1).Name = Left(Sheets(1).Name, 1) & 3500 + X
Next
End Sub

A+ à tous

 

[job75]

Re : agrémenter des onglets

Bonjour le fil, salut JCGL

Pour agrémenter la discussion, vous avez essayé de renommer la 1ère feuille ?

J'ai essayé h3499, ça inscrit .xls]h3499 et ensuite plus moyen de changer ce nom

A+

 

[JCGL]

Re : agrémenter des onglets

Bonjour à tous,
Salut Job ,

Je ne sais pas si tu parles de mon code mais je ne suis pas parvenu à reproduire ton exemple

A++
A+ à tous

 

[job75]

Re : agrémenter des onglets

Re JC,

Non, il ne s'agissait pas de ton code.

En fait j'avais essayé cette manip directement sur le fichier en pièce jointe, sans l'enregistrer sur le bureau. Une fois sur le bureau en effet pas de problème.

Curieux phénomène tout de même...

A+

 

[job75]

Re : agrémenter des onglets

Re,

Dans le cas où on veut incrémenter d'une valeur positive toutes les feuilles, il vaut mieux partir de la dernière feuille :

Sub IncrémenterNoms()
Dim inc As Variant, i As Integer
inc = InputBox("Incrémentation :", "Incrémenter les noms des feuilles")
inc = Int(Val(inc))
If inc <= 0 Then Exit Sub
For i = Sheets.Count To 1 Step -1
Sheets(i).Name = "h" & Mid(Sheets(i).Name, 2, 9 ^ 9) + inc
Next
End Sub

Edit : j'avais mal manipulé la variable inc...

A+

 

[Fo_rum]

Re : agrémenter des onglets

Salut,

j'avais, dans le même ordre d'idée que job, cherché une modification totale.
Puisque c'est fait, la voici.

 

[DIGGERJACK]

Re : agrémenter des onglets

Bonsoir à tous

Pour Job 75 je te confirmes que chez moi aussi j'ai parfois un résultat différent si je traites le "dossier" en direct ou si je l'enregistres sur le disque dur mais ce n'est pas le cas à chaque fois

Le mystère reste entier ..........

Bonne soirée

 

[aperobass]

Re : agrémenter des onglets

bonsoir, grand merci à tous.

fo_rum, pourquoi dans ton fichier la preniére feuille prend les zéros (dans l'onglet) mais pas les suivantes.
regarde.

 

[Fo_rum]

Re : agrémenter des onglets

Re,

parce que pas prévu. Remplace 46 par 48 ainsi :
Code:
If Asc(Cara) > 48 And Asc(Cara) < 58 Then Nb = Nb + 1
D'ailleurs je m'étais trompé. J'aurais dû écrire 47 !