Créer des feuilles à partir d'une liste

Fermé

Feuille

chataigf Messages postés 5 Date d'inscription dimanche 1 décembre 2013 Statut Membre Dernière intervention 2 décembre 2013 - 1 déc. 2013 à 15:33
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 2 déc. 2013 à 21:04

Bonjour
Savez vous comment créer des feuilles à partir d'une liste de nom en colonne A, et conserver sur les feuilles créer les mêmes tableaux que sur la première feuille ?
Ci joint un lien de ce que j'ai fait
Merci à ceux qui voudront bien prendre le temps de me répondre !

https://www.dropbox.com/s/0g0mdpqsu4wsdru/note%20de%20stage%20essai.xlsx

A voir également:

Créer plusieurs feuilles excel à partir d'une liste
Liste déroulante excel - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer une adresse hotmail - Guide

5 réponses

Réponse 1 / 5

LunaSpleen Messages postés 50 Date d'inscription jeudi 6 mai 2010 Statut Membre Dernière intervention 6 octobre 2014 1
2 déc. 2013 à 11:56

Clic droit sur la feuille que tu veux copier et choisir "Déplacer ou copier" et cocher copier la feuille

Réponse 4 / 5

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
2 déc. 2013 à 14:08

Bonjour,

Il n'y a que le VBA pour traiter ta demande si tu as quelques notions

Private Sub CommandButton4_Click()
Dim M, i As Long
Dim k As Range
Dim erreur As Boolean
Application.ScreenUpdating = False
For Each k In Sheets("Contrôle").Range("A2:A100")
If k.Value <> "" Then
On Error GoTo erreur1
Sheets(k.Value).Select
If erreur = True Then Sheets.Add.Name = k.Value
erreur = False
End If
Next
Range("A1").Select
Exit Sub
erreur1:
erreur = True
Resume Next
Application.ScreenUpdating = True
End Sub

ce code peut être complété par un tri croissant des onglets

chataigf Messages postés 5 Date d'inscription dimanche 1 décembre 2013 Statut Membre Dernière intervention 2 décembre 2013
2 déc. 2013 à 19:57

Bonsoir
merci d'avoir apporté ta contribution éclairée, mais je suis démasque, je suis effectivement un débutant ++, j'ai créé un bouton "inserer des contrôles " et je l'ai associé à ton code"clic" mais rien ne se passe. Comment faire pour lancer la procédure ?

Réponse 5 / 5

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 2/12/2013 à 21:05

Re,

commence par enregistrer ton fichier sous et dans Type sélectionne soit Classeur Excel prenant en compte les macros (*.XLSM) ou avec l'ancienne extension XLS

sur ta feuille crée un bouton activeX (CommandButton1)

double clic sur le bouton qui ouvrira automatiquement les propriétés du bouton dans le visual

entre ces deux lignes

Private Sub CommandButton1_Click()

End Sub

colle ce code

Dim M, i As Long
Dim k As Range
Dim erreur As Boolean
Application.ScreenUpdating = False
For Each k In Sheets("Contrôle").Range("A2:A100")
If k.Value <> "" Then
On Error GoTo erreur1
Sheets(k.Value).Select
If erreur = True Then Sheets.Add.Name = k.Value
erreur = False
End If
Next
Range("A1").Select
Exit Sub
erreur1:
erreur = True
Resume Next
Application.ScreenUpdating = True

teste le. s'il ne fonctionne pas, il est possible que ton niveau de sécurité soit trop élevé. Baisse le niveau de sécurité voir je t'expliquerai plus tard comment relever le niveau de sécurité

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Discussions similaires

Créer plusieurs onglets à partir d'un tableau sur excel

vba créer plusieurs feuilles excel à partir d'une liste

modele simple d'une fiche de presence du personnel employé

Création automatique d'onglets suivant modèle.

Remplir une cellule (texte) en fonction d'une autre (texte).

liste déroulante avec lien vers d'autre feuilles

Discussions similaires

Newsletters