Création automatique d'une feuille sur excel via une macro

Alex082 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

J'avoue que les macros ne sont pas trop ma tasse de thé et je galère énormément.
J'appelle donc à votre aide pour me sortir de ce tas de nœuds.

Alors, j'ai une feuille principale qui synthétise toutes les données dont j'ai besoin. J'ai également une feuille "modèle" pour pouvoir créer automatiquement des feuilles individuelles. J'ai réussi non sans mal à créer une macro pour que cette "création de feuilles individuelles" se fasse toute seule et ça a l'air de marcher puisque la macro réussi à me créer autant de feuilles qu'il y a de personnes dans le tableau principal. Mais j'aimerai apporter une condition à la création de ces feuilles individuelles : si la valeur d'une cellule du tableau principal = 0 alors on ne créée pas la feuille individuelle correspondant à la personne.

Pouvez m'aider please ?

Merci beaucoup

2 réponses

  1.
    Alex082 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
     
    Voilà la macro pour la création automatique des feuilles

    Sub AddSheets()
    'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A5:A7")
    With wBk
    .Sheets("MODELE").Copy after:=Sheets(Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = xRg.Value
    If Err.Number = 1004 Then
    Debug.Print xRg.Value & " already used as a sheet name"
    End If
    On Error GoTo 0
    End With
    Next xRg
    Application.ScreenUpdating = True
    End Sub
    0
  2. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Vous ne dites pas ou se trouvent le nom des personnes et de même si la valeur d'une cellule du tableau principal = 0
    Donc impossible de vous aider.

    Salutations.
    Le Pingou
    0