création automatique d'une feuille sur excel via une macro Fermé

Question

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

Alex082 · Answer

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

Le Pingou · Answer

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

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

2 réponses

Discussions similaires