Cellule excel VBA
nomitse
-
gbaujeu -
gbaujeu -
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.
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.
Simon
A voir également:
- Cellule excel VBA
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Word et excel gratuit - Guide
1 réponse
Bonsoir,
Essaie ce code sur une liste de mots en colonne A et dis-moi si çà peut t'aider Gilles
Sub inserer()
'exemple sur la colonne 1
'sélection de la première cellule
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveCell.Offset(5, 0).Select
Wend
End Sub
Essaie ce code sur une liste de mots en colonne A et dis-moi si çà peut t'aider Gilles
Sub inserer()
'exemple sur la colonne 1
'sélection de la première cellule
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveCell.Offset(5, 0).Select
Wend
End Sub
