Bonjour à tous,
j'essaie de créer une macro qui me permettra d'ajouter automatiquement 5 ligne en dessous d'un cellule selectionnée. je voudrais par la suite que ces 6 cellules soient fusionnées.
enfin je voudrais que cette macro s'applique à toutes les cellules remplies d'un colonne. voici la macro que j'ai commencé, malheureusement ca ne fonctionne pas.
Sub fusioncellule()
Dim t As Range
t = Range(ActiveCell, ActiveCell.End(xlDown)).Select
for each cell
Range(t).Offset(5, 0).Selection.Cells
Selection.Insert Shift:=xlDown
Selection.Merge
Next
End sub
merci d'avance pour votre aide.
ci joint un fichier exemple, la premiere date correspond au 6 première lignes etc...
Simon
j'essaie de créer une macro qui me permettra d'ajouter automatiquement 5 ligne en dessous d'un cellule selectionnée. je voudrais par la suite que ces 6 cellules soient fusionnées.
enfin je voudrais que cette macro s'applique à toutes les cellules remplies d'un colonne. voici la macro que j'ai commencé, malheureusement ca ne fonctionne pas.
Sub fusioncellule()
Dim t As Range
t = Range(ActiveCell, ActiveCell.End(xlDown)).Select
for each cell
Range(t).Offset(5, 0).Selection.Cells
Selection.Insert Shift:=xlDown
Selection.Merge
Next
End sub
merci d'avance pour votre aide.
ci joint un fichier exemple, la premiere date correspond au 6 première lignes etc...
Simon
Pièces jointes
Dernière édition: