Discussion :

[Daniela]

Bonjour a tous, j'ai besoin d'une aide pour realiser une macro sur excel, moi je suis debutant donc je connais presque rien de ce sujet.

Moi j'ai un tableau avec comme colonne CDC, Description CDC, Factor_CDC, Description_Facteur_CDC.

ce que je voudrais et de faire une macro qui me permet pour chaque CDC de faire un feuille et inserer les colonnes CDC, Description CDC, Facteur_CDC, Descritpion_Facteur_CDC.

donc quand je ouvre excel il doit apparaitre une fenetre avec un bouton blanc qui me permet d'excetuer la macro, donc que pour chaque CDC va creer un feuille et cree le tableau avec les colonnes CDC, Description CDC, Facteur_CDC, Descritpion_Facteur_CDC.

comment je peux faire ça?


comment je peux faire pour fa

[drakkar_agfa]

Bonjout TOI,

Dans chaque feuille, il doit avoir le tableau de ta première feuille avec le CDC de la feuille mais toutes les colonnes?

Feuille 1:
aaaa 111 111
bbbb 222 222
cccc 333 333

Feuille 2:
aaaa 111 111

Feuille 3:
bbbb 222 222

etc...

Est-ce bien cela?

Tu devrais connaitre la notion de boucle.
Pour parcourir ton tableau, et à chaque ligne, ajouter une feuille et copier la ligne du tableau dans cette feuille.

[Daniela]

Oui t'as bien compris ce que je voudrais faire mais le probleme est que je pas comment le faire...

[drakkar_agfa]

Connais-tu les boucles?
Et l'ajout d'une feuille?

Montre nous ce que tu as jusqu'à maintenant et on regardera tout ceci ensemble.

[Daniela]

No je connais pas ça, je jamais fais des macro et donc je sais pas...

[drakkar_agfa]

Alors voici le code

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
21
22
23
24
Sub Separer()
    Dim sh As Worksheet
    Dim shNouveau As Worksheet
    Dim i As Integer
 
    Set sh = ActiveSheet
 
    For i = 2 To Range("A65536").End(xlUp).Row 'Depart des données, j'imagine que la ligne 1 est l'en-tête.
 
        Set shNouveau = Sheets.Add
        shNouveau.Name = sh.Cells(i, 1)
        shNouveau.Cells(1, 1) = sh.Cells(1, 1)
        shNouveau.Cells(1, 2) = sh.Cells(1, 2)
        shNouveau.Cells(1, 3) = sh.Cells(1, 3)
        shNouveau.Cells(1, 4) = sh.Cells(1, 4)
 
        shNouveau.Cells(2, 1) = sh.Cells(i, 1)
        shNouveau.Cells(2, 2) = sh.Cells(i, 2)
        shNouveau.Cells(2, 3) = sh.Cells(i, 3)
        shNouveau.Cells(2, 4) = sh.Cells(i, 4)
 
    Next i
 
End Sub

Il crée une feuille pour chaque ligne. Il copie l'en-tête de la primière feuille.
Il copie la ligne et la place sous l'en-tête.

Si tu as des questions, n'hésite pas!