Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion de cellules avec une mise en forme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mat58
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mat58

Guest
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

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

VB: 
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Dans ce cas :

VB: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Insertion de cellules avec une mise en forme

Bonjour à tous,

Tu sélectionnes toujours une cellule vide en A :

VB: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
368
CHRIS1945
C
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
815
Cousinhub
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
414
Lucie85
L
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
649
TooFatBoy
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
327
Nico Gre
N
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
302
chrislecycliste
C
T
  • Résolu(e)
XL 2010 Mise en forme conditionnelle
Réponses
4
Affichages
462
tchi456
T
C
  • Question Question
Microsoft 365 Difficulté avec la concatenation en conservant la mise à forme
Réponses
5
Affichages
591
laurent950
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
470
fenec
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
638
mimednejma
M
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
369
Danyk01
D
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
873
deuxnid
D
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
494
Pepepichnette69
P
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
432
mapomme
W
  • Question Question
Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données
Réponses
11
Affichages
508
walki
W
T
  • Question Question
Microsoft 365 Mise en forme conditionnelle
Réponses
5
Affichages
419
TooFatBoy
C
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur clic
2
Réponses
22
Affichages
1 K
TooFatBoy
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
471
Phil69970
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
1 K
jeanmi
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
346
flea
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…