Bouton pour création de lignes en VBA

Version imprimable

25/04/2011, 22h04
Takeo31

Bouton pour création de lignes en VBA

Bonjour à tous,

Après plusieurs recherches infructueuses sur le net j'ai décidé de vous demander de l'aide. Je ne maitrises que très peu les macros sous excel.
Je passe très peu sur ce forum, préférant trouver par moi même (c'est comme ça qu'on apprend il parait en se cassant les dents :aie:). Mais là je sèche.

Alors voici ce que j'aimerais pouvoir faire :
Sur un fichier excel, j'ai 2 feuilles donc la première pour le suivi "projets" et la seconde pour détailler chaque "projets". J'aimerais que, à partir de la feuille 1 je puisse, en me positionnant sur une cellule "référence" et en cliquant sur un bouton, créer un nombre de ligne correspondant aux nombre de lignes présents se trouvant à droite de cette cellule "référence".

Pour exemple pour que ce soit plus clair, j'ai en feuille 1, en colonne A le nom des différents projets et en colonne B, les différents "groupes" correspondant au projet. Je souhaite en me positionnant donc sur le nom du "projet" pouvoir créer un nombre de lignes en feuille 2 correspondant au nombre de "groupes" associés.
Alors, soit Excel est capable de compter ce nombre de "groupe" selon le nombre de ligne dans une cellule, soit je créer une colonne avec ce nombre inscrit qui nous servira de repère. Mais la problématique reste la même.

Autre difficulté si cela est possible, la ligne en feuille 2 ne doit être créé si et seulement si le "groupe" n'apparait pas encore en feuille 2. :roll:

J'ai déjà pu faire un bouton me permettant de faire un filtre en feuille 2 par rapport à un "projet" en feuille 1.

Voilà, tout ceci n'est peut être pas évident à expliquer, je fais de mon mieux.

Je vous remercie par avance.

Takeo
25/04/2011, 22h39
Maxence HUBICHE

Désolé, mais je n'ai rien compris.
Un petit exemple de "avant" et "après" la macro ?
26/04/2011, 14h52
Takeo31

1 pièce(s) jointe(s)

Voici un fichier Excel en pièce jointe pour illustrer tout ça.

Il s'agirait dans cette exemple de créer un bouton "création". Ce bouton permettrai pour le Proj022 de créer en feuil2 trois nouvelles lignes correspondant au Gpe023, Gpe024 et Gpe025. Pour se faire, je me positionne sur la cellule correspondant au projet, ici en A7, et cliquer sur le bouton de macro. Cela génère donc 3 nouvelles ligne à la suite de mon tableau en feuil2.
Si possible, ces lignes aurait automatique en colonne A le nom du projet, et en colonne B le nom du groupe correspondant (mais là j'en demande peut-être trop).

J’espère que c'est un peu plus claire.

Merci.

Takeo

Bonjour Takeo31,

Il te reste à créer le bouton CREATION dans la Feuil1 et à copier la procédure.
En te positionnant sur la cellule correspondant au projet, et en cliquant sur le bouton CREATION, tu devrais obtenir le résultat attendu.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CREATION_Click()
    Dim Tb() As String
    Tb = Split(ActiveCell.Offset(rowOffset:=0, columnOffset:=1), Chr(10))
    IMax = UBound(Tb)
    With Worksheets("Feuil2")
        NewLig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        For i = IMax To 0 Step -1
            .Rows(NewLig).Insert
            .Range("A" & NewLig) = ActiveCell.Value
            .Range("B" & NewLig) = Tb(i)
        Next i
    End With
End Sub

Cordialement.