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 :

Problème VBA copier/coller avec cellule Fusionnée.


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    Décembre 2015
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2015
    Messages : 25
    Par défaut Problème VBA copier/coller avec cellule Fusionnée.
    Bonjour, je suis débutant en VBA,
    j'ai quelques soucis pour faire une macro qui permet de copier/coller une ligne mais de la recoller dans une ligne ou une cellule fusionnée y passe.
    Je vais expliquer mon problème le plus simplement possible, par image :)

    Comme vous pouvez le voir sur la photo ci-dessous, j'utilise déjà une macro me permettant de dupliquer le modèle se trouvant Ligne 4:5


    Nom : pb1.png
Affichages : 5639
Taille : 271,8 Ko

    Or dans ce modèle j'aimerais pouvoir ajouter une ligne comme sur l'image qui suit. "tout en gardant la fusion de cellule et l'aspect visuel".

    Nom : pb2.png
Affichages : 4772
Taille : 224,8 Ko


    Or le problème et qu'à cause de la fusion de cellule pour la description du défaut, on dirait que la macro n'arrive pas à si retrouver et du coup elle duplique le modèle en étant vide.
    La macro via l'enregistrement que j'avais fait été:


    - Selection Cellule [A4:D5]
    - Selection Row "5"
    - Insertion ligne
    - Copier case [J6:K6]
    - Coller dans [J5:K5]
    - Supprimer contenu de [J6:K6]

    Perso, je trouve ce cycle totalement débile mais je ne vois pas comment le faire autrement, c'est pour cela que je vous sollicite.

    En vous remerciant, et vous souhaitant une agréable fin de matinée 8-)

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 418
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 418
    Par défaut MergeArea
    Principe de travail: à l'aide de la fonction MergeArea, détecter les plages fusionnées, les défusionner, ajouter une ligne, les refusionner avec ajout d'une ligne.
    En attaché un exemple.
    Bonne continuation.
    Fichiers attachés Fichiers attachés

  3. #3
    Membre averti
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    Décembre 2015
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2015
    Messages : 25
    Par défaut
    Merci pour ton aide, je vais voir comment integrer cela dans mon code.

    Bonne journée

  4. #4
    Membre averti
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    Décembre 2015
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2015
    Messages : 25
    Par défaut
    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
    Sub ajout_ligne_quantite()
    '
    ' Macro2 Macro
    '
     
    '
        Range("A" & (ActiveCell.Row), "D" & (ActiveCell.Row)).Select
        Application.WindowState = xlMaximized
        Selection.UnMerge
        Range("L" & (ActiveCell.Row), "M" & (ActiveCell.Row)).Select
        Selection.UnMerge
        Rows((ActiveCell.Row) - 1).Select
        Rows((ActiveCell.Row) + 1).Select
        LigneActuel = ActiveCell.Row
        Rows((ActiveCell.Row) + 1).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A" & (LigneActuel), "D" & (LigneActuel) + 3).Select
        Selection.Merge
        Range("L" & (ActiveCell.Row), "M" & (ActiveCell.Row) + 3).Select
        Selection.Merge
    End Sub
    j'ai réussit a faire un truc mais pour le fusionnage à la fin j'arrive pas a faire quelque chose qui suit le total de ligne ajouté.
    en gros ça donne ça au bout de plusieurs ajout de ligne. J'ai pensé a mettre un compteur afin de suivre le nombre de ligne ajouté et de récupérer la valeur pour pouvoir faire le saut vers la selection, mais je ne sais pas comment l'intégrer.

    Nom : pb3.png
Affichages : 4919
Taille : 199,3 Ko

    Les cases en rouge ne sont pas fusionner.

  5. #5
    Membre Expert
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    Juillet 2004
    Messages
    2 725
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 725
    Par défaut
    Pourtant c'est pas compliqué....
    Quand tu agrandi ta plage avec les couleurs et tout a la fin tu fais :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("A4:D10").Merge 'ou range est ta plage.....

  6. #6
    Membre averti
    Homme Profil pro
    Ingénieur développement de composants
    Inscrit en
    Décembre 2015
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Ingénieur développement de composants
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2015
    Messages : 25
    Par défaut
    Je suis d'accord, ça c'est pas compliqué ce que tu as mit. Mais ce que je voudrais c'est que peu importe ou je clique dans ce tableau ci dessous par exemple je puisse ajouté une ligne dans la colone quantité tout en guardant la fusion des colones déscription et quantité total...
    Genre si je clique sur la case 12-13 et que je clique sur la macro ajout ligne quantité, je veux qu'une ligne entre 12 et 13 s'ajoute mais en guardant la fusion de description et le total ...

    Nom : pb4.png
Affichages : 4619
Taille : 201,4 Ko

  7. #7
    Membre Expert
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    Juillet 2004
    Messages
    2 725
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 725
    Par défaut
    Je comprends ce que tu veux faire mais je ne comprends pas le problème que tu rencontre...

    Ceci pour exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        ActiveCell.Resize(2, 4).Merge
        ActiveCell.Offset(ColumnOffset:=3).Resize(2, 2).Merge
    Tu te met sur une cellule en colonne A et tu verra que ça fusionne les 4 premiere colonnes sur 2 lignes puis 2 autres colonnes sur deux lignes...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Macro VBA Copier-coller avec formatage spécial
    Par brunchinio dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/05/2015, 02h27
  2. [XL-2010] Problème macro copier-coller des cellules dans deux feuilles Excel
    Par benadry dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 01/04/2014, 19h05
  3. [XL-2010] en vba copier coller avec une condition dans des classeurs différents
    Par will83177 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/02/2014, 17h38
  4. [XL-2007] VBA Copier Coller vers cellules precises avec des ranges aleatoires
    Par thibault12500 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 16/12/2013, 16h47
  5. Problème de copier/coller avec des images
    Par Brossard56 dans le forum Word
    Réponses: 9
    Dernier message: 15/03/2011, 00h00

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