J'ai un tableau avec une personne par ligne horizontale (nom colonne A)
sur chaque ligne j'ai sept colonnes de valeurs
j'aimerai par macro que lors de l'execution de cette derniere creer pour
chaque ligne un onglet dont le nom serait celui de la colonne A de chaque
ligne et recopier verticalement les sept donnees...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
yan
Salut Essaie ceci a adapter à tes besoins
Sub ajouter_des_onglets() l = [A65536].End(3).Row For x = 1 To l Sheets.Add
nom = Sheets("feuil1").Cells(x, 1).Value ActiveSheet.Name = LCase(nom) For y = 1 To 7 Cells(y, 1) = Sheets("feuil1").Cells(x, y+1).Value Next y Next End Sub Remplace "feuil1" par le nom de l'onglet ou sont des données A+ Yan
"Lionel" a écrit dans le message de news: 45887227$0$21149$
Bonjour a tous
J'ai un tableau avec une personne par ligne horizontale (nom colonne A) sur chaque ligne j'ai sept colonnes de valeurs j'aimerai par macro que lors de l'execution de cette derniere creer pour chaque ligne un onglet dont le nom serait celui de la colonne A de chaque ligne et recopier verticalement les sept donnees...
Merci de votre aide
Salut
Essaie ceci a adapter à tes besoins
Sub ajouter_des_onglets()
l = [A65536].End(3).Row
For x = 1 To l
Sheets.Add
nom = Sheets("feuil1").Cells(x, 1).Value
ActiveSheet.Name = LCase(nom)
For y = 1 To 7
Cells(y, 1) = Sheets("feuil1").Cells(x, y+1).Value
Next y
Next
End Sub
Remplace "feuil1" par le nom de l'onglet ou sont des données
A+
Yan
"Lionel" <lionel.ma@club-internet.fr> a écrit dans le message de news:
45887227$0$21149$7a628cd7@news.club-internet.fr...
Bonjour a tous
J'ai un tableau avec une personne par ligne horizontale (nom colonne A)
sur chaque ligne j'ai sept colonnes de valeurs
j'aimerai par macro que lors de l'execution de cette derniere creer pour
chaque ligne un onglet dont le nom serait celui de la colonne A de chaque
ligne et recopier verticalement les sept donnees...
Sub ajouter_des_onglets() l = [A65536].End(3).Row For x = 1 To l Sheets.Add
nom = Sheets("feuil1").Cells(x, 1).Value ActiveSheet.Name = LCase(nom) For y = 1 To 7 Cells(y, 1) = Sheets("feuil1").Cells(x, y+1).Value Next y Next End Sub Remplace "feuil1" par le nom de l'onglet ou sont des données A+ Yan
"Lionel" a écrit dans le message de news: 45887227$0$21149$
Bonjour a tous
J'ai un tableau avec une personne par ligne horizontale (nom colonne A) sur chaque ligne j'ai sept colonnes de valeurs j'aimerai par macro que lors de l'execution de cette derniere creer pour chaque ligne un onglet dont le nom serait celui de la colonne A de chaque ligne et recopier verticalement les sept donnees...