Macro de mise en forme ?

[Mouchty85]

bonjour, je realise un petit programme dans lequel l'ajoute 4 lignes à un tableau. je souhaiterai fusionner ces 4 lignes dans le première colonne.
je ne vois pas du tout comment faire, pourriez-vous m'indiquer la démarche a suivre.
Merci par avance

 

[Blunet]

Salut Mouchty, je ne comprends pas :
Mouchty85 écrit:

je souhaiterai fusionner ces 4 lignes dans le première colonne.

 

[Blunet]

re,
un exemple qui permet de supprimer les 4 dernières lignes.

Sub FusLig()
Dim i As Integer
pos = Range('c1:c' & Range('c65536').End(xlUp).Row).Count
Range('C' & (pos - 4), 'c' & pos).EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

 

[Joshua14]

Bonjour Mouchty,

Voici un fichier qui te permettra d'ajouter quatre lignes et de fusionner les quatres cellules de la première colonne

 

[Joshua14]

un nouvel essai car le nom du fichier possedait un espace

Là ca devrait mieux marcher

au cas ou je mets le code

Sub inser_lignes()
    i = 1
    ActiveCell.Select
    ligne = ActiveCell.Row
    
    For i = 1 To 4
        Selection.Insert Shift:=xlDown
    Next i
    
    Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + 3, ActiveCell.Column)).Select
    Selection.Merge
End Sub

[file name=Mouchty20060523.zip size=10323]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mouchty20060523.zip[/file]