VBA Excel débutant

Version imprimable

04/10/2010, 09h57
typhoon751

VBA Excel débutant

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.

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:

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 ?

04/10/2010, 20h58
typhoon751

extraction données tableau excel

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

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

Code:

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

04/10/2010, 21h58
typhoon751

extraction données tableau excel

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....)