Macro transpose dans une cellule fusionner

[Atiom]

Macro transpose dans une cellule fusionnée

Bonsoir le forum,

La macro ci-dessous fonctionne parfaitement, sauf quand je fusionne les cellules.

Cette à dire si la colonne B est fusionner avec les colonnes C et D.

C’est bizarre je ne comprends pas, il y a certainement un astuce !

Rien de mieux que un fichier joint, pour exposer le problème.

Sub Transpose_6()
Range("B6:U6").Select
Selection.Copy
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Merci de votre aide

 

[atlonia]

Re : Macro transpose dans une cellule fusionner

Bonsoir atiom,

Peu-être comme ça:

Sub Transpose_6()
Range("B6:U6").Select
Selection.Copy
Range("B9😀9").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub


Private Sub CommandButton1_Click()
Call Transpose_6
End Sub

En espérant t'avoir été utile...!

A+
Ps: je sais pas ce qui ce passe, mais a la relecture de ma réponse, le "😀" de la fonction "RANGE" s'est transformé un un radieux sourire. Tu traduira...!

 

[atlonia]

Re : Macro transpose dans une cellule fusionner

Bonsoir lr forum,

C'était ma première intervention sur le forum.

Comme vous le verrez dans ma réponse précédante, un joli bug s'est glissé, quelqu'un peut-il me dire comment, malgré qu'il soit bien sympathique, je peux l'éviter?

 

[kjin]

Re : Macro transpose dans une cellule fusionner

bonsoir le fil,
atlonia, je n'est pas compris.
Atiom, ta macro fais un copier/coller incluant le format des cel donc remplaces :
' Paste:=xlPasteAll ' par ' Paste:=xlValue ' et le format de tes cellules devrai être conservé.
A+
kjin

 

[atlonia]

Re : Macro transpose dans une cellule fusionner

Bonsoir Kjin,

Qu'est ce que tu n'a pas compris?

La solution que j'ai soumis ou le bug de ma réponse...!

 

[Atiom]

Re : Macro transpose dans une cellule fusionner

Bonjour,

Pour, kjin

Mais bien sur ! c’est tout simplement ça.

Ça fonctionne parfaitement.

Merci, et bonne journée.

Pour, atlonia

Je ne sais pas non plus pourquoi il y a le Smile, mais si tu veux éviter ça bug alors utilise la
Balise

   ton code….

Merci et bonne journée.

 

[Cousinhub]

Re : Macro transpose dans une cellule fusionner

Bonjour,

Ce "bug"; comme tu le dis est bien connu..
lorsque tu fais référence à la colonne D, comme le raccourci clavier du smiley 😀
est le : suivi du D, automatiquement tu auras ce smiley.
Pour l'éviter, soit tu coches : Désactiver les smileys plus bas, soit tu mets un espace entre le : et le D

 

[Atiom]

Re : Macro transpose dans une cellule fusionner

Bonsoir, le fil

Merci bhbh pour tes explications concernant le raccourci clavier du smiley.

Maintenant si je reviens sur le sujet du fil, je souhaiterais exclure de ma copie la valeur 0, ça donnerait ça :

Sub Transpose_6()
Range("B6:U6").Select
Selection.Copy
Range("B9").Select
Selection.PasteSpecial Paste:=xlValue, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
[COLOR="DarkGreen"]'Sauf la valeur o, ou alors effacer les valeurs égal à 0[/COLOR]
End Sub

Est-ce qu’il est possible ? si oui comment ?

Merci d’avance.

 

[Atiom]

Re : Macro transpose dans une cellule fusionner

Bonjour,

Est-ce que quelqu’un a une idée ?

Je suis désolé de relancer le post comme ça mais j’ai déjà essayé avec, ClearContents et avec EntireRow.Delete, mais à chaque fois j’ai des erreurs.

Merci pour votre aide.

 

[pierrejean]

Re : Macro transpose dans une cellule fusionner

bonjour Atiom

content de te retrouver

Un tantinet capillo-tractée

 

[Atiom]

Re : Macro transpose dans une cellule fusionner

Salut, pierrejean

Moi aussi je suis content de te retrouver.

C’est presque parfait, je dis presque parce qu’il y a juste un petit truc que me gêne.

Mais c’est absolument mas faute parce que je n’ai pas précisé.

Je souhaiterait garder la mise en forme de ma plage ( B9 :B28 ). (Cellules fusionnées).

Peut-on trouver une solution ?


Je suppose que tu arrive à faire un capillo-tractée avec une mise en forme !😉

 

[pierrejean]

Re : Macro transpose dans une cellule fusionner

bonjour Atiom

Je n'avais pas l'impression que la macro modifiait la mise en forme sauf peut-etre en ce qui concerne l'alignement horizontal (que je mets a centré)
peux-tu preciser quelles sont les mises en forme initiale ?

 

[Atiom]

Re : Macro transpose dans une cellule fusionner

Salut, pierrejean

Il est vrais que dans l’exemple je n’ai pas de mise en forme donc tu ne pouvais pas le savoir.

J’ai une simple simple MFC pour le quadrillage des cellules.

Effet ta macro va fonctionner dynamiquement, donc les valeurs à copier ne seront jamais les mêmes.

Avec la macro actuelle si tu mais le quadrillage dans toute la plage et ensuite tu fait fonctionner la macro plusieurs fois tout en changeant les valeurs 0 de place, une fois H6, A6 puis U6 etc.. tu verras que le quadrillage ne reste pas.

Je suppose qu’il faut l’ajouter par VBA tout simplement, comme ça je n’ai pas besoin de ma MFC, que pense tu ?

 

[pierrejean]

Re : Macro transpose dans une cellule fusionner

Re

En esperant que cet encadrement te convienne

Cordialement

 

[Atiom]

Re : Macro transpose dans une cellule fusionner

Re,
Impeccable, comme d’habitude !

Merci beaucoup et passe un excellent week-end