IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Bouton pour création de lignes en VBA


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Inscrit en
    Juillet 2010
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Juillet 2010
    Messages : 3
    Points : 2
    Points
    2
    Par défaut 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 ). 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.

    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

  2. #2
    Expert éminent

    Avatar de Maxence HUBICHE
    Homme Profil pro
    Développeur SQLServer/Access
    Inscrit en
    Juin 2002
    Messages
    3 842
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Développeur SQLServer/Access

    Informations forums :
    Inscription : Juin 2002
    Messages : 3 842
    Points : 9 197
    Points
    9 197
    Par défaut
    Désolé, mais je n'ai rien compris.
    Un petit exemple de "avant" et "après" la macro ?

  3. #3
    Candidat au Club
    Inscrit en
    Juillet 2010
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Juillet 2010
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    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
    Fichiers attachés Fichiers attachés

  4. #4
    Membre expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Points : 3 974
    Points
    3 974
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

Discussions similaires

  1. Création de boutons pour ajouter une ligne
    Par jenor dans le forum Général VBA
    Réponses: 2
    Dernier message: 23/06/2015, 10h57
  2. Réponses: 1
    Dernier message: 16/06/2013, 07h24
  3. [AC-2007] Bouton pour supprimer une ligne du détail du formulaire
    Par FewRa dans le forum IHM
    Réponses: 17
    Dernier message: 27/11/2012, 14h02
  4. Association de couple pour création de ligne unique
    Par MDsas dans le forum SAS Base
    Réponses: 10
    Dernier message: 02/02/2012, 14h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo