Créer des fiches à partir d'un tableau

Bonjour,

Je voudrais créer des fiches à partir d'un tableau.

  • Créer Autant de fiche (1 par onglet) que de lignes
  • Sélectionner une partie du texte (Détail de l'opération)
  • Passer les couleur des onglets en Orange pour "En COURS" et Vert pour "TERMINE"
  • Renommer le nom du fichier par le nom du site (ex: ATHIS MONS (en gras en haut du fichier)
  • et Chose certainement impossible de trier les onglet par ordre alphabétique

Ci-joint le fichier

(Il peut y avoir jusqu'à 40 fiches)

Merci beaucoup de votre aide

Un dernier point :./

Si on peut mettre un bouton sur chaque fiche où on peut cliquer et envoyer le document automatiquement par mail à une liste de diffusion !!

Merci beaucoup

Salut NBL,

J'ai fait une macro proche de celle la pour créer des fiches "onglet" par lignes d'un onglet source avec des champs rempli avec les données des colonnes.

Pour le tri des onglet par ordre alpha, je pense que le plus simple est de trier ton tableau source avant

Je regarde pour adapter mon code et je te dit

A+

Fred

SUPER Merci ok pour le Tri

Bout de code adapté :

Sub Onglet_auto()
'

Dim nb As Integer 'compteur
nb = 2
Dim CLT As Integer 'nombre de ligne du tableau
CLT = 4

'declaration des valeurs des champs du tableau
Dim nomrex As String
Dim nomtech As String
Dim codeop As String
Dim idfacil As String
Dim libsite As String
Dim dateinter As String
Dim detailop As String
Dim CR As String
Dim refdev As String
'ect.. a creer tout les champs utiles

Do

nomrex = Sheets("SYNTHESE").Cells(nb, 1).Value
nomtech = Sheets("SYNTHESE").Cells(nb, 2).Value
codeop = Sheets("SYNTHESE").Cells(nb, 3).Value
idfacil = Sheets("SYNTHESE").Cells(nb, 4).Value
libsite = Sheets("SYNTHESE").Cells(nb, 6).Value
dateinter = Sheets("SYNTHESE").Cells(nb, 7).Value
detailop = Sheets("SYNTHESE").Cells(nb, 8).Value
CR = Sheets("SYNTHESE").Cells(nb, 9).Value
refdev = Sheets("SYNTHESE").Cells(nb, 10).Value

'suppression onglet preexistant (l'onglet s'appele "ATHIS MONS CENTRAL ATM00240")
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets(libsite & " " & codeop).Delete
    Application.DisplayAlerts = True

'copie de l'onglet model
    Sheets("feuil1").Select
    Cells.Select
    Selection.Copy
'ajout nouvel onglet
    Sheets.Add before:=ActiveSheet
    Cells.Select
    ActiveSheet.Paste
'Changement nom onglet
    ActiveSheet.Select
    ActiveSheet.Name = libsite & " " & codeop

'ecriture des données
    Range("a3").Select
    ActiveCell.FormulaR1C1 = libsite

    Range("c7").Select
    ActiveCell.FormulaR1C1 = codeop

    Range("a10").Select
    ActiveCell.FormulaR1C1 = detailop

    Range("A24").Select
    ActiveCell.FormulaR1C1 = CR

    Range("G1").Select
    ActiveCell.FormulaR1C1 = dateinter

    Range("b48").Select
    ActiveCell.FormulaR1C1 = nomrex

    Range("B49").Select
    ActiveCell.FormulaR1C1 = nomtech

nb = nb + 1

Loop Until nb > CLT

End Sub

Alors bon c'est un debut et c'est du travail de débutant, mais ca fonctionne. et quand t'as 250 lignes et qu'en 1 click tu génère 250 fiches formatées ET REEDITABLES c'est magique!

A+

Merci Fred

Peux tu l’inclure dans le fichier que j'ai envoyé en pièce jointe moi ça ne marche pas j'ai un message d'erreur. Le nom des onglets fonctionnent pas aucun autre champs

Attention ! Certaines parties de votre document peuvent renfermer des information personnelles qui ne peuvent pas être supprimées par l'inspecteur de document

Merci par avance

Envoyé en MP

Chez moi ca fonctionne

A+

J'ai rajouté des lignes mais ça ne rajoute pas de fiche et j'aurai voulu que les cases en jaunes se remplisse automatiquement (voir pièce jointe) : info dans le grand texte (colonne détail de l'opération)

Merci beaucoup de votre aide

Salut NBL,

Si tu regarde dans le code :

Dim CLT As Integer 'nombre de ligne du tableau
CLT = 4

Si tu as plus de 4 lignes, changes la valeur de CLT

A+

Merci

Par contre si j'efface les lignes du tableau dans l'onglet Synthèse (tout en gardant la ligne 1) ça n'efface pas les onglets

Merci beaucoup !! J'ai pu avoir ma réponse

Rechercher des sujets similaires à "creer fiches partir tableau"