renommer des onglets sauf 1

A

A_binouze_drinker_among_others

Guest

• 18 Mars 2003

• #2

i=1
for each sh in sheets
if sh.name <>"Menu" then sh.name="toto" & i : i=i+1
next sh

 

Vote positif 0 Vote négatif

B

Brigitte

Guest

• 18 Mars 2003

• #3

Bonjour Binouze,

Merci, c'est ce que je voulais, Tu es trés actif sur le forum.

@brigitte

 

Vote positif 0 Vote négatif

B

Brigitte

Guest

• 18 Mars 2003

• #4

Re bonjour Binouze,

Je viens d'essayer ton code ça ne marche pas,
ou est l'erreur?

@Brigitte

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 18 Mars 2003

• #5

Bonjour le forum

Brigitte , il fonctionne bien son code

au pire modifier

Option Explicit
Sub renommer()
Dim i As Integer, sh As Object
i = 1
For Each sh In Sheets
If sh.Name <> "Menu" Then sh.Name = "toto" & i: i = i + 1
Next
End Sub

 

Vote positif 0 Vote négatif

B

Brigitte

Guest

• 19 Mars 2003

• #6

Bonjour Myta, Bonjour le forum,

Merci pour le complément VBA, maintenant ça marche.
Je suis débutante VBA alors il faut tout me placer.

Merci

@Brigitte

 

Vote positif 0 Vote négatif