Créer des feuilles à partir d'une liste

Feuille

chataigf Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention - 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

Afficher la suite

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 google - Guide
Excel liste déroulante en cascade - Guide
Déplacer une colonne excel - Guide

5 réponses

Réponse 1 / 5

LunaSpleen Messages postés 50 Date d'inscription Statut Membre Dernière intervention 1

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 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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 Statut Membre Dernière intervention

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 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Fusionner deux feuilles excel

Mise en surbrillance de doublons sur plusieurs onglets

Rassembler données de plusieurs feuilles dans une seule

VBA - Renommer le nom d'une feuille dt nom actuel variable

Comment diviser une feuille?

boucle copier coller ligne vers une feuille si condition valeur

Votre réponse

Discussions similaires