[RESOLU] une macro sous excel

[Bell@tor]

bjr !

 

j'expose mon prob, j'ai un fichier excel qui contient, ds une feuille, une base de données de 10 noms et prénoms et 10 feuilles nommées de 1 à 10. J'aimerai pouvoir renommer automatiquement les 10 feuilles avec le contenu de la base de données.

Ex : ligne 1 de ma base de donnée : Paul Hauchon,

ce qui donne comme nom de la feuille 1 : Paul Hauchon

comment puis-je procéder ?

merci

Modifié le 17 janvier 2006 par Bell@tor

[dahu57]

Bonsoir à tous,

Créer la liste des noms ainsi que les 10 feuilles. Aller dans Outils/macro/nouvelle macro/ok (à partir de maintenant la macro va s'enregistrer automatiquement, repérer le N° de la macro), sélectionner la liste de noms et la coller sucessivement dans les 10 feuilles, arrêter l'enregistrement en cliquant sur le "petit carré".

Clic gauche sur la barre d'outils Personnaliser/commandes/Formulaires(ascenceur)/Bouton, placer cette icône "bouton" dans la barre avec les autres icônes. Cliquer sur l'icône pour créer un bouton dans la feuille N°1, utiliser la boîte de dialogue proposée pour affecter la macro à ce bouton.

En cliquant sur le bouton la liste devrait se coller dans 10 feuilles aux emplacements choisis.

Bonne bidouille.

 

PS: En allant dans Outils/macros/Macros N°x/Modifier tu pourras consulter la routine de ta macro en VBA et éventuellement modifer les coordonnées des cellules.

[Bell@tor]

merci pour ta réponse, mais en faite je veux changer le nom de l'onglet (feuil1) par rapport a une cellule de ma base... et par la création d'une macro comme tu me démontre ci-dessus, ben ca marche pas !

[dahu57]

Bonjour Bell@tor,

J'ai fait un test qui répond à ta demande (mais cela ne marche qu'une seule fois).

Ci-joint ci-dessous la routine en VBA pour deux feuilles.

Bonne bidouille.

 

Sub Macro1()

'

' Macro1 Macro

' Macro enregistrée le 17/01/2006 par Dahu

'

 

'

Range("B15").Select

Selection.Copy

Sheets("Feuil1").Select

Application.CutCopyMode = False

Sheets("Feuil1").Name = "aaaaaaa"

Range("B16").Select

Selection.Copy

Sheets("Feuil2").Select

Application.CutCopyMode = False

Sheets("Feuil2").Name = "bbbbbbb"

Range("A1").Select

End Sub

[Bell@tor]

ok merci

je vois les cdes a faire...

je releve les manches et je bosse....

merci encore

 

Arrrrr je viens d'avoir l'info, d'un autre forum, juste apres le post;

voila ce qu'il faut faire

 

For I = 1 To 10

Worksheets(I).Name = Worksheets("base de données").Range("A" & I)

Next

Modifié le 17 janvier 2006 par Bell@tor