Discussion :

[typhoon751]

Bonjour à tous,

étant débutant sous VB, j'aurais besoin de vos lumières, si cela ne vous dérange pas!
Voilà, je dois créer une macro sur un fichier excel qui me créée une nouvelle feuille excel dans le classeur(rien de compliqué pour le moment), mais qui me créée une nouvelle feuille par collaborateurs et qui m'extrait seulement certaines colonnes.
Je vous joins ce fichier comme exemple avec le traitement à réaliser:
- Création d'une nouvelle feuille par agents
- Extraction des colonnes D,E,F,G,J,K,N,O,P,Q

Je ne sais pas si je me suis bien expliqué.
Merci pour votre aide.

[ANOVA]

Voilà une macro qui crée une feuille par nom différent. Si tu rajoute des noms, cela est pris en compte automatiquement (il faut juste que les noms identiques se suivent forcément ce qui semble être le cas).

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
Sub toto()
    Dim plage As Range
    Dim cellule As Range
 
    Set plage = Worksheets(1).Range("B8", Worksheets(1).Range("B8").End(xlDown))
 
    For Each cellule In plage
        If cellule.Value <> cellule.Offset(-1, 0).Value Then
            Dim nouvelleFeuille As Worksheet
            Set nouvelleFeuille = Worksheets.Add
 
            nouvelleFeuille.Name = cellule.Value
        End If
    Next cellule
 
End Sub

Tu souhaites aussi extraire un truc. Je n'ai pas trop compris quoi. Peux tu préciser ta demande ?

Tu veux qu'on extraie le bout de tableau qui correspond à M Dupont et qu'on le copie dans la feuille Dupont ?

[typhoon751]

Merci ANOVA,

Effectivement, je souhaiterais extraire seulement les colonnes ci-dessus (D,E,F,G,J,K,N,O,P,Q) pour chaque collaborateur et les insérer dans la feuille que tu viens de créer (les colonnes correspondants à Dupond dans la feuille Dupond, etc...)
C'est à dire que je souhaite extraire seulement quelques parties du tableau correspondant pour chaque collaborateur.

Je sais pas si tu m'as très bien compris.
En tout cas merci, tu en as déjà fait beaucoup

[ANOVA]

Je pense que c'est ça que tu veux :

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
18
19
20
Sub toto2()
    Dim feuille As Worksheet
    Dim nomPersonne As String
 
    For Each feuille In Worksheets
        nomPersonne = feuille.Name
        Dim plage As Range
        Dim cellule As Range
 
        Set plage = Worksheets("Feuil1").Range("B8", Worksheets("Feuil1").Range("B8").End(xlDown))
        Dim nbLigne As Integer
        nbLigne = 1
        For Each cellule In plage
            If cellule.Value = nomPersonne Then
                Worksheets("Feuil1").Range(cellule, cellule.End(xlToRight)).Copy Destination:=Sheets(feuille.Name).Range(Sheets(feuille.Name).Range("A1").Offset(nbLigne, 0).Address)
                nbLigne = nbLigne + 1
            End If
        Next cellule
    Next feuille
End Sub

[typhoon751]

Merci ANOVA,

c'est parfait!
Mais tu crois que c'est possible de reporter la ligne des intitulés de la feuille 1 dans chaque feuille collaborateur (Nom Agent, N° Agent....)