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

Copie dans cellule Fusionner

  • Initiateur de la discussion Initiateur de la discussion phil59110
  • 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 !

phil59110

XLDnaute Occasionnel
Bonjour a Tous,

J'ai un petit souci avec la copie de donnés dans des cellules Fusionner avec une macro
Comme vous le savez quand on copie par exemple de la Cellule A1 aux Cellules B1C1D1 Fusionner
ça créer une érreure aux niveau de la macro qui fait la copie!

Donc est qu'il serais possible de faire une modif au niveau de la macro de copie pour remedier a ce petit souci?
je vous joint le code que j'utilise pour faire mes copie:
Code:
Sub CopiePerfs1()
Application.ScreenUpdating = False
'

Sheets("Musique").Select
Range("b10:k33").ClearContent
'
Sheets("courses").Select
    Range("b10:k33").Select
    Selection.Copy
    Sheets("musique").Select
    Range("b10").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
'
'Worksheets("résumé").Range("aj43") = Worksheets("courses").Range("B10").Value
Sheets("Musique").Select
Range("d9").Select
Application.ScreenUpdating = True
'
End Sub

Merci Beaucoup

Phil59110
 
Re : Copie dans cellule Fusionner

Bonjour,

Ton code ne permet pas vraiment de mettre en évidence ton probleme ...
Peux tu fournir un morceaux de fichier ?
Ci-dessous ton code avec qqs modifs

Code:
Sub CopiePerfs1()
Application.ScreenUpdating = False
Sheets("Musique").Range("b10:k33").ClearContents
With Sheets("courses")
    .Range("b10:k33").Copy
    Sheets("musique").Range("b10").PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End With
'sheets("résumé").Range("aj43").value = sheets("courses").Range("B10").Value
Sheets("Musique").Activate
Range("d9").Select
Application.ScreenUpdating = True
End Sub
 
- 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

Discussions similaires

Réponses
11
Affichages
928
C
Réponses
4
Affichages
1 K
cecenico
C
B
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
970
bd.afaf
B
Réponses
4
Affichages
660
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…