Copie le contenu de cellules fusionnées

[Fab117]

Salut,
Ma macro va controler chaque cellule de la colonne H.
Si la condition est rempli, elle copie la globalité de la ligne
F_Source.Rows(Lig_Source).Copy Destination:=F_Destin.Rows(Lig_Dest)
pour aller la coller dans un autre onglet
Mon problème est que dans certaines colonnes j'ai des cellules fusionnées et que dans ces cas là, il ne copie pas le contenu des ces cellules (alors que j'aimerais bien qu'il le fasse.
Au cas où, ci-joint une copie de mon fichier avec des exemples.

Merci d'avance.

Fab

 

[criscris11]

Re : Copie le contenu de cellules fusionnées

Bonjour,
Une solution toute simple peut-être : enlever tes cellules fusionnées et remplaces-les par "centrer sur plusieurs colonnes" (même effet visuel et moins de soucis que ce soit en VBA ou pour les formules matricielles qui ne n'aiment pas les cellules fusionnées).
Bon courage.

 

[Fab117]

Re : Copie le contenu de cellules fusionnées

Salut,
Ta solution me plait bien, mais pourrais-tu stp me dire comment on centre du texte sur plusieurs colonne ?
Merci.

Fab

 

[Staple1600]

Re : Copie le contenu de cellules fusionnées

Format/Cellule/Alignement/Horizontal/Centrer sur plusieurs colonnes

 

[criscris11]

Re : Copie le contenu de cellules fusionnées

Re,
Tu sélectionnes tes cellules, par exemple A1 et B1, tu vas dans format de cellule, alignement, et dans la première liste déroulante (horizontal) tu choisis centrer sur plusieurs colonnes.
Bon courage.

 

[chris]

Re : Copie le contenu de cellules fusionnées

Bonjour
Dans format cellule, alignement horizontal, tout en bas.
Pour ma part j'ai reprogrammé le bouton fusionner pour obtenir directement centrer sur plusieurs colonnes.
Avantage cela marche en multi sélection, contrairement à la fusion et plus d'emmm... avec les cellules fusionnées.

A stocker dans perso.xls

Sub Centrercolonnes()
'
' Centrercolonnes Macro
' Centrer sur plusieurs colonnes
'

With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.MergeCells = False
End With
End Sub

 

[Staple1600]

Re : Copie le contenu de cellules fusionnées

Re

C'est pas ce j'avais écrit, lol

 

[chris]

Re : Copie le contenu de cellules fusionnées

Bonjour
Il n'en manque plus qu'un pour la belote !
le temps de poster et trois réponses pour le prix d'une !

 

[criscris11]

Re : Copie le contenu de cellules fusionnées

Boonjour Chris, le fil,
Eh oui c'est les vacances donc pour ma part j'ai un peu de temps à consacrer au forum.
On recherche un quatrième pour faire une partie : des volontaires ?
Bonne fin de journée.

 

[Staple1600]

Re : Copie le contenu de cellules fusionnées

Je joue comme un pied à la belote

et pour ce qui me concerne je cherche
des volontaires pour mon problèmes des huits reines

(voir dans le salon)

Je joue aussi comme un pied au tarot...

 

[Fab117]

Re : Copie le contenu de cellules fusionnées

Merci pour vos réponses, mais je constate en me relisant que j'ai fait une erreur dans la description.
Ce n'est pas le contenu de plusieurs cellules horizontales que j'ai fusionnées, mais celui de plusieurs cellules verticales. Et pour ça, il n'y a pas l'option de centrer sur plusieurs lignes.
Y aurait-il une autre alternative ?


Fabrice

 

[chris]

Re : Copie le contenu de cellules fusionnées

Re
Je continue à préférer l'effusion et non les fusions (lol).
Cette fusion verticale est-elle indispensable ?
Je l'évite aussi au maxi et arrive à contourner dans 90% des cas.
Dans ton classeur dis nous le pourquoi de cette fusion, on recherchera une solution.

 

[michel_m]

Re : Copie le contenu de cellules fusionnées

Bonsoir aux rois de la belote, tarots, dominos, marelle etc

Syntaxe d'une usine à gaz pour prendre en compte des cellules fusionnées, par exemple les cellules B24, B25 sont fusionnées verticalement

Dim cellule as range
Set cellule = cellule.MergeArea
cellule.Range("A1:A2")

si tu es dans une boucle, ajoute cette ligne: set cellule=nothing