Création de feuilles pré-remplies

[pierrof]

Bonjour le forum

Je souhaite à l'aide d'une feuille(A) avec des données (Nom, prénom...) et d'une feuille modèle B (forme du document) créer une feuille par nom (nom de la feuille = Nom) avec les info que contient la feuille A.

Sachant que le nombre de ligne d'infos peut varier, j'aimerai un bouton pour rendre automatique la création et le remplissage de chaques feuilles.

Je laisse un fichier exemle pour plus de compréhension.

Merci de votre aide et de vos explications

 

[Victor21]

Re : Création de feuilles pré-remplies

Bonjour.

Une solution alternative, pour éviter la création de multiples feuilles en pj.

 

[Compte Supprimé 979]

Re : Création de feuilles pré-remplies

Bonjour Pierrof, salut Victor21

Sinon avec le code ci-dessous

Sub CréationFeuille()
Dim DLig As Long, Lig As Long
Dim Nom As String, Prénom As String, NomSht As String
' récupérer la dernière ligne du tableau de la feuille A
DLig = Sheets("A").Range("A" & Rows.Count).End(xlUp).Row
' Pour chaque ligne créer la feuile et inscrire les valeurs
For Lig = 2 To DLig
' Mémoriser le nom et le prénom
Nom = Sheets("A").Range("A" & Lig)
Prénom = Sheets("A").Range("B" & Lig)
' Créer le nom de la nouvelle feuille
NomSht = Nom & " " & Left(Prénom, 1)
' Vérifier qu'elle n'existe pas déjà
On Error Resume Next
Sheets(NomSht).Select
' Si erreur, c'est que la feuille n'existe pas
If Err.Number <> 0 Then
Sheets("B").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NomSht
Sheets(Sheets.Count).Range("B7") = Nom
Sheets(Sheets.Count).Range("C7") = Prénom
End If
Next Lig
End Sub

ATTENTION : je prends également la 1ère lettre du prénom car il peut y avoir plusieurs noms identiques

A+

 

[pierrof]

Re : Création de feuilles pré-remplies

Bonjour Victor et Bruno

Vos solution fonctionne bien je vais les garder précieusement merci encore

A+

 

[pierrejean]

Re : Création de feuilles pré-remplies

Bonjour Pierrof

Vois si cela te convient

Salut Victor

Edit : salut Bruno