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

Copie de cellule + mise en forme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Fanoo
  • 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
F

Fanoo

Guest
Bonjour le forum,

Pour mon application je souhaite trouver une cellule fusionnée dans une colonne en la distinguant par sa valeur pour la copier dans une autre colonne en gardant la mise en forme et la valeur de cette cellule.

J'ai consulté le forum et j'ai essayé pas mal de chose mais sans réussite..

Merci d'avance pour votre aide!
 
Trier par date Trier par votes
Re : Copie de cellule + mise en forme

Bonjour à tous
essayes cela dans un module
Code: 
Sub Recherche()

Dim réponse, cel As Range

réponse = InputBox("num recherche")
For Each cel In Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
If cel.Text = réponse Then
    Range(Cells(cel.Row, cel.Column), Cells(cel.Row, cel.Column + 1)).Copy
    Range("e3").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
End If
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellule + mise en forme

Bonjour le forum et jpb388,

Tout d'abord merci à toi de t'être penché sur le sujet.

J'ai essayé ton code et il fonctionne à l'exception près qu'il ne garde pas la mise en forme de la cellule fusionnée. Pour la couleur, bordure,valeur c'est ok mais il ne copie ça que dans une seul cellule sauf que moi je souhaite que la cellule fusionnée soit recopier sur le même nombre de cellule.
ex: J'ai une cellule fusionnée sur cinq lignes je veux que la copie soit aussi sur 5 ligne mais d'une autre colonne donc que la copie garde exactement la même mise en forme...

Mais je ne sais pas si c'est possible étant donné les commentaires sur l'inconvénient des cellule fusionnées...

Du coup pour le moment je fais exactement comme le code que tu m'a proposé et ensuite je redimensionne la cellule et la fusionne dans mon code, mais j'aimerais vraiment trouvé une autre solution...

Si vous avez des idées n'hésitez pas!
 
Vote positif 0 Vote négatif
Re : Copie de cellule + mise en forme

Oups je crois que j'ai parler un peu vite...

J'ai remarquer en utilisant ton code et en l'adaptant un peu qu'en faite la mise en forme donc la fusion des cellules est bien conservée!!

Donc un grand Merci à toi!!
 
Vote positif 0 Vote négatif
Re : Copie de cellule + mise en forme

Bonjour
pour le cas où
voici la rectif
Code: 
Sub Recherche()

 Dim réponse, cel As Range

 réponse = InputBox("num recherche")
 For Each cel In Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
 If cel.Text = réponse Then
     Range(Cells(cel.Row, cel.Column), Cells(cel.Row, cel.Column + 1)).Copy
     Range("e3").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
         , SkipBlanks:=False, Transpose:=False
    Range("e3:f3").Merge
End If
 Next
 End Sub
 
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
339
CHRIS1945
C
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
388
Lucie85
L
  • Question Question
XL 2019 Mise en forme conditionnelle la couleur
Réponses
1
Affichages
231
TooFatBoy
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
321
chris
L
  • Question Question
Autres Mise en forme de 10 données
Réponses
4
Affichages
254
lepiouf
L
C
  • Résolu(e)
XL 2019 saut de page lors d'un renvoi pdf
Réponses
5
Affichages
163
AtTheOne
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
300
Nico Gre
N
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
642
TooFatBoy
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
810
Cousinhub
Q
  • Question Question
XL 2010 Problème avec la mise en forme conditionnelle
Réponses
4
Affichages
229
quickfuture
Q
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
309
TooFatBoy
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
897
jo657
J
W
  • Résolu(e)
XL 2019 Placer ou remplacer une photo .jpg au-dessus de la cellule [B6] contenant du texte à conserver
2
Réponses
21
Affichages
377
TooFatBoy
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
631
mimednejma
M
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
298
job75
  • Résolu(e)
XL 2016 Copie automatique de cellules à un endroit précis
Réponses
7
Affichages
230
AtTheOne
D
  • Résolu(e)
XL 2019 Report valeur et mise en couleur
Réponses
9
Affichages
219
DST
D
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
302
chrislecycliste
C
  • Question Question
XL 2019 imprimer une zone variable en vba
Réponses
2
Affichages
113
job75
T
  • Résolu(e)
XL 2010 Mise en forme conditionnelle
Réponses
4
Affichages
459
tchi456
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…