inserion de colonne par vba a travers une cellules fusionnée

[leriderfoudu77]

RE bonjour le forum 🙂
sa va bien zavez bien manger ?
aller une tite question pour la digestion:j'ai fais une macro par enregistrement qui insere juste une colonne. Mais le souci c qu'il y a une cellule fusionnée en dessous qui commence loin à gauche de la cellule à inserer et fini a sa droite. Donc lors de l'enregistrement de ma macro je fais la manip et sa fonctionne ùmais quand je lance la macro sa decalle tout du nombre de cellule fusionné et en plus sa met la largeur des colonnes a celle de la cellule fusionnée
le code generé par l'neregistrement est le suivant :
Columns("K:K").Select
Selection.Insert Shift:=xlToRight

voila je joins egalement un fichier d'exemple la macro s'execute par le boutton 😉
Merci d'avance bonne apres midi 🙂
Leriderfoudu77.

 

[leriderfoudu77]

hahaha,
pour voir si vous suiviez j'avais pas joins le fichier mais la c bon 😉
++

 

[Michel_M]

Bonjour le rider et le forum,

Tu seras toujours emm... avec les cellules fusionnées.

Tu écris ton titre dans la cellule de gauche et format cellules-alignement- centré sur plusieurs colonnes

tu pourras ainsi insérer une colonne tout en gardant le centrage

A+
Michel

 

[Pierre]

Bonsoir,

C'est vrai qu'avec des cellules fusionnées...
Cependant en ne selectionnant qu'une cellule, et non la colonne entière, et que cette cellule n'est pas fusionnée, tu peux insérer un colonne simplement.
En tout cas ca marche dans Excel, pourquoi pas dans VBA...
Bonne soirée


Pierre

 

[Pierre]

Re

Je confirme

avec
Private Sub CommandButton1_Click()
Range("K6").Select
Selection.EntireColumn.Insert Shift:=xlToRight
End Sub

ca marche...



bonne soirée encore.


Pierre

 

[leriderfoudu77]

Bonjour Michel, Pierre le Forum,
Je vous remercie tout les deux 🙂
Pierre ton code marche tres bien merci beaucoup !!!
Bonne journée .
@+
Leriderfoudu77.