Discussion :

[whitewiz]

Bonjour
Mon niveau est débutant. C'est pour créer la première boucle en VBA. Et je ne sais vraiment pas par où commencer.
Mon but :
Copier chaque ligne de données dans une feuille dans une nouvelle feuille pour lancer un macro déjà écrite pour la mise en forme, appelé MiseEnForme.

Merci pour votre aide.
wiz

[antonysansh]

Bonjour whitewiz,

C'est assez peu détaillé ^^
Si c'est juste pour faire une copie de ta feuille et en changer la mise en forme avec ta macro, tu peux te contenter de copier la feuille non ?

Si oui voilà un code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub CopierFeuilleActive()
    ActiveSheet.Copy After:=ActiveSheet
    Call MiseEnForme
End Sub

[whitewiz]

Sur la feuille "Donnees", chaque ligne contient les informations concernant un individu, sur une centaines de colonnes.
Je veux copier les données, individu par individu, sur une nouvelle feuille .... pour ensuite mettre en forme et ajouter d'autres informations concernant l'individu.
C'est la première étape que je souhaite automatiser pour créer les quelques centaines de feuilles de données individuelles.

Le programme fait ceci

pour chaque ligne de ma feuille "Donnees" à partir de la ligne 2 (on skippe la ligne d'en-tête) jusqu'à la fin des lignes où il y a des données
copier la ligne et la coller dans une nouvelle feuille à la ligne 2
nommer la nouvelle feuille selon le contenu de la cellule B2
lancer la sub "MiseEnForme" dans cette nouvelle feuille

[antonysansh]

C'est déjà plus clair

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
    Application.ScreenUpdating = False
    Dim Donnees As Worksheet, sh As Worksheet, DerniereLigne&, i&
        Set Donnees = ThisWorkbook.Sheets("Donnees")
        DerniereLigne = Donnees.Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To DerniereLigne
            Set sh = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
                Donnees.Rows(i).Copy
                sh.Rows(2).Insert Shift:=xlDown
                sh.Name = sh.[B2]
                Call Miseenforme
        Next
fin:
    Set sh = Nothing
    Set Donnees = Nothing
    Application.ScreenUpdating = True
End Sub

[Marc-L]

Bonjour, bonjour !

Mieux vaut éviter une boucle (souvent une usine à gaz !) au profit d'un filtre avancé …



______________________________________________________________________________________________________
Je suis Paris, …

[whitewiz]

Merci Antony. ça marche impeccable, à part que la ligne insérée a décalé toute la mise en forme qui était en dessous. Est-ce que l'on peut éviter d'"insérer" pour simplement "coller" dans la ligne 2 ?

Quant à l'usine à gaz, je la sens bien arriver. Je dispose que d'excel pour faire cette analyse, qui, outre des données que l'on me fournit via le fichier excel, nécessite beaucoup d'annotations supplémentaires. Je vais réfléchir à d'autres façons. Merci Marc pour ce warning.

[antonysansh]

Bonjour whitewiz,

Je ne comprends pas le décalage de mise en forme dont tu parles.

Je ne fais qu'insérer une ligne dans une nouvelle feuille donc pas encore de mise en forme. Si j'ai utilisé .Insert c'est pour copier toute la ligne car je ne sais pas combien de colonnes sont à copier.

La mise en forme dont tu parles doit donc être celle de ta feuille Donnees.

En remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh.Rows(2).Insert Shift:=xlDown

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh.Rows(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

ça doit régler le problème.