J'aimerais pouvoir utiliser la fonction Autofill en faisant référence à la ligne de la cellule active.
Au lieu par exemple d'avoir:
Selection.AutoFill Destination:=Rows("30:31"), Type:=xlFillDefault
'Rows("30:31").Select
Je souhaiterais avoir
Selection.AutoFill Destination:=Rows("Ligne de la cellule active:Ligne en dessous de la cellule active"), Type:=xlFillDefault
'Rows("Ligne de la cellule active:Ligne en dessous de la cellule active[/B][/COLOR]").Select
Vu que je suis novice en VBA je ne sais pas si ça peut marcher comme ça.
Merci de votre aide,
Eliette
@Philippe
Effectivement ta macro fonctionne mais elle ne copie que la cellule active et non toute la ligne de la cellule active (ce qui me serait plus utile).
MAIS surtout je souhaitais mettre cette fonctionnalité dans une macro un tout petit peu plus longue et alors ça ne marche plus. Cf mon message précédent avec le fichier joint!
Sub
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1).EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.EntireRow.Select ' Je pense que cette ligne doit être fausse
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range(ActiveCell, Cells(ActiveCell.Row + 1, ActiveCell.Column)), Type:=xlFillDefault 'Endroit où il y a le débogage (alors que cette ligne de macro par elle-même fonction
Teste ce qui suit pour voir si ça convient. Autant que possible il faut éviter les Select :
Code:
Sub Recopie()
Dim Cel As Range
Set Cel = ActiveCell
Cel.EntireRow.Copy
Cel.Offset(1, 0).EntireRow.Insert xlDown, True
Application.CutCopyMode = False
Cel.Offset(1, 0).AutoFill Range(Cel.Offset(1, 0), Cel.Offset(2, 0)), Type:=xlFillDefault
End Sub