Discussion :

[amaury57280]

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




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




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

[EricDgn]

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.

[amaury57280]

Merci pour ton aide, je vais voir comment integrer cela dans mon code.

Bonne journée

[amaury57280]

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.



Les cases en rouge ne sont pas fusionner.

[cerede2000]

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

[amaury57280]

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

[cerede2000]

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