agrémenter des onglets

C

Compte Supprimé 979

Guest

• 8 Octobre 2009

• #2

Re : agrémenter des onglets

Bonsoir Aperobass

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

Merci d'expliciter ta demande.

A+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 9 Octobre 2009

• #3

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.

 

Vote positif 0 Vote négatif

aperobass

XLDnaute Junior

• 9 Octobre 2009

• #4

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?

 

Vote positif 0 Vote négatif

aperobass

XLDnaute Junior

• 9 Octobre 2009

• #5

Re : incrémenter des onglets

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

 

Pièces jointes

• Classeur1.xls

  16 KB · Affichages: 80
• Classeur1.xls

  16 KB · Affichages: 82
• Classeur1.xls

  16 KB · Affichages: 82

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Octobre 2009

• #6

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Octobre 2009

• #7

Re : agrémenter des onglets

Bonjour à tous,

Un code sur l'activation de la feuille 1 :

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2009

• #8

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Octobre 2009

• #9

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

 

Pièces jointes

• Change Nom Feuille +1.zip

  9.4 KB · Affichages: 48

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2009

• #10

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2009

• #11

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 :

Code:

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+

 

Pièces jointes

• Classeur1(1).zip

  11.3 KB · Affichages: 39
• Classeur1(1).zip

  11.3 KB · Affichages: 32
• Classeur1(1).zip

  11.3 KB · Affichages: 40

Dernière édition: 9 Octobre 2009

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 9 Octobre 2009

• #12

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.

 

Pièces jointes

• IncrémenterNomOnglet.zip

  8.6 KB · Affichages: 39
• IncrémenterNomOnglet.zip

  8.6 KB · Affichages: 41
• IncrémenterNomOnglet.zip

  8.6 KB · Affichages: 41

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 9 Octobre 2009

• #13

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

 

Vote positif 0 Vote négatif

aperobass

XLDnaute Junior

• 9 Octobre 2009

• #14

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.

 

Pièces jointes

• IncrémenterNomOnglet.zip

  12.8 KB · Affichages: 21
• IncrémenterNomOnglet.zip

  12.8 KB · Affichages: 21
• IncrémenterNomOnglet.zip

  12.8 KB · Affichages: 20

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 10 Octobre 2009

• #15

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 !

 

Vote positif 0 Vote négatif