Insertion de cellules avec une mise en forme

[mat58]

Bonjour,
J'ai un ensemble de cellule (deA10 à H16) avec mise en forme (du texte, cellule fussionné, contour) et j'aimerai réaliser une macro qui me permet de coller l'ensemble dans la cellule selectionnée.
La cellule sélectionné peut etre a la fin ou meme entre deux ensemble déjà coller.
EN espérant avoir été clair.
Merci d'avance

 

[JCGL]

Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Un fichier serait le bienvenu...

Tu peux aussi faire la manipulation avec l'enregistreur de macro : tu auras le code.

A + à tous

 

[mat58]

Re : Insertion de cellules avec une mise en forme

Ok ca marche

 

[mat58]

Re : Insertion de cellules avec une mise en forme

Ci joint fichier

 

[JCGL]

Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Ceci dans un module... Si j'ai bien tout compris...

Option Explicit

Sub Copie_Format()
Dim DebCel As String
DebCel = InputBox("Déterminez la cellule supérieure gauche", "Cellule de Départ", "A27")
    Range("A10:H16").Copy
    Range(DebCel).PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    Range("A10").Select
End Sub

A + à tous

 

[mat58]

Re : Insertion de cellules avec une mise en forme

Merci c'est cool c'est ca
Mais j'ai une question est ce qu'il est possible de modifier "A27" par la cellule qui est selectionnée?
merci

 

[JCGL]

Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Tu mets la cellule souhaitée dans l'InputBox qui est réglé par défaut sur A27.

Mais il est possible de lancer le code sur la cellule active.
Tu nous dis...

A + à tous

 

[mat58]

Re : Insertion de cellules avec une mise en forme

Sur la cellule active si c'est possible ca serait encore mieux
merci

 

[JCGL]

Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Dans ce cas :

Option Explicit

Sub Copie_Format()
Dim DebCel As String
'DebCel = InputBox("Déterminez la cellule supérieure gauche", "Cellule de Départ", "A27")
DebCel = ActiveCell.Address
    Range("A10:H16").Copy
    Range(DebCel).PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    Range("A10").Select
End Sub

A + à tous

 

[mat58]

Re : Insertion de cellules avec une mise en forme

Merci beaucoup
Mais le problème qd je veux l'inserrer entre deuxdeja existant ca me supprime celui du bas

 

[JCGL]

Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Comme les valeurs seront les mêmes... Évite d'insérer entre deux "modules" déjà existant.

Il doit y avoir une subtilité qui m'échappe.

A + à tous

 

[mat58]

Re : Insertion de cellules avec une mise en forme

J'ai trouver comment faire en inserer le code pr inserer le nombre de ligne et surtout il faut sélectionner toute la ligne et non pas que la cellule.
Ci dessus nouveau code, ce qui pourrait etre bien pr éviter tt probleme c'est de faire un message d'erreur si il n'y a qu'une cellule sélectionné, est ce que tu sais comment faire?
Merci


Sub Copie_Format()
Dim DebCel As String
'DebCel = InputBox("Déterminez la cellule supérieure gauche", "Cellule de Départ", "A27")
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

DebCel = ActiveCell.Address

Range("A10:H16").Copy
Range(DebCel).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Range("A10").Select
End Sub

 

[JCGL]

Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Tu sélectionnes toujours une cellule vide en A :

Option Explicit

Sub Copie_Format()
Dim DebCel As String
DebCel = ActiveCell.Row
 Range("A" & DebCel & ":A" & DebCel + 6).EntireRow.Insert
    Range("A10:H16").Copy
    Range("A" & DebCel).PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    Range("A10").Select
End Sub

A + à tous

 

[mat58]

Re : Insertion de cellules avec une mise en forme

Merci à toi ça marche