Mise en forme avec une macro?

[Mouchty85]

Bonjour,
je réalise un petit programme et je me trouve face à un problème:
dans mon programme je dois insérer 4 ligne dans un tableau de 5 colonne. je souhaiterai pouvoir fusionner les 4 ligne que je vien d'insérer ( mais cette fusion n'est valable que pour la première colonne et pas les autres)

Pourriez - vous m'indiquer la démarche.
Merci d'avance

 

[Blunet]

re Mouchty,

Je crois avoir résolu ton problème sur ce post :
Ce lien n'existe plus

 

[Joshua14]

Le fichier ci joint doit repondre à ta question [

 

[Blunet]

Désolé je supprime plutôt les lignes au lieu de les fusionner remplace Selection.Delete Shift:=xlU par Selection.Merge

Mais il va falloir que tu saches bien délimiter la zone à fusionner du tableau par exemple moi j'ai pri de C à E

 

[Joshua14]

Joshua14 écrit:

Le fichier ci joint doit repondre à ta question [

encore quelques pb pour joindre un fichier
je retente

 

[Blunet]

Voila
Sub FusLig()
Dim i As Integer
pos = Range('c1:c' & Range('c65536').End(xlUp).Row).Count
Application.DisplayAlerts = False
Range('C' & (pos - 4), 'E' & pos).Select
Selection.Merge
Application.DisplayAlerts = False
End Sub

Attention au résultat de la fusion si les cellules fusionnées ne sont pas vides alors c'est celle du coin supérieur gauche qui restera.

Si tu veux fusionner entièrement les 4 dernière lignes remplace Range('C' & (pos - 4), 'E' & pos).Select par Range('C' & (pos - 4), 'E' & pos).EntireRow.Select

Re Joshua pour joindre un fichier: fichier compressé (zip) de moins de 50 Ko sans espaces et caractères spéciaux : Lien supprimé