syntaxe sur nom des feuilles

[jeffe]

Bonjour à tous et toutes, suite à une remarque très pertinante sur la façon de noter les noms de feuilles dans une macro, je ne trouve pas la bonne syntaxe pour ecrire Feuil1 plutot que son nom (comme ça si qq'un modifie le nom, la macro fonctionne toujours).Merci [file name=copiecolone5.zip size=8233]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copiecolone5.zip[/file]

 

[ERIC S]

Bonjour

pourquoi ne protèges-tu pas tes feuilles?

quand un utilisateur commence à changer des noms, tu peux t'inquiéter pour l ereste (formules, code..)

A+

 

[ERIC S]

re


If Feuil1.Cells(X, 6) = 'X' Then
Z = Feuil2.Range('A65536').End(xlUp).Row + 1
'copie les 7colones
For Y = 1 To 7
Feuil2.Cells(Z, Y) = Feuil1.Cells(X, Y)

doit marcher

A+

 

[pierrejean]

bonjour jeffe Eric

pour remplacer toto par Feuil1:

Sheets('toto').Name = 'Feuil1'

mais si le nom a été remplaçé ça ne marchera pas !!!!!!

pour remplacer le nom de toutes les feuilles quelque soit le nom d'origine:

For n = 1 To Worksheets.Count
Worksheets(n).Name = 'Feuil' & n
Next

Message édité par: pierrejean, à: 07/02/2006 11:18

 

[jeffe]

Eric, Pierrejean, merci pour vos reponces rapides. Je prend les solutions d'Eric
Merci