Sub sonskriverez()
Dim DerLig
With ActiveCell
DerLig = Range("B" & Rows.Count).End(xlUp).Row ' derniere ligne de la colonne B
Range(Cells(.Row + 1, .Column), Cells(DerLig, .Column)).Value = .Value
End With
End Sub
après détermination de la dernière ligne de la colonne B, on copie la valeur de la cellule active dans sa colonne jusqu'au N) de ligne déterminé pour la colonne B.
Que la cellule active soit en A ou dans n'importe quelle colonne
Sub Recopie()
Dim dercel As Range
Set dercel = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
If ActiveCell.Row < dercel.Row Then _
ActiveCell.AutoFill ActiveCell.Resize(dercel.Row - ActiveCell.Row + 1)
End Sub
Une variante (avec FillDown équivalent de CTRL+B) et bien sur une endive
job75 , je me suis permis d'emprunter un peu de ton code.
Code:
Sub Variante()
Dim dercel As Range
Set dercel = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
With ActiveCell
If .Row < dercel.Row Then
.Resize(dercel.Row - .Row + 1).FillDown
End If
End With
End Sub
Et pour simplifier l'écriture tout en se compliquant la relecture
Code:
Sub VarianteII()
Dim dercel As Range: Set dercel = Cells.Find("*", , -4123, , 1, 2)
If dercel Is Nothing Then Exit Sub
With ActiveCell
If .Row < dercel.Row Then
.Resize(dercel.Row - .Row + 1).FillDown
End If
End With
End Sub
job75:
Une autre variante pas la voie du Remplissage mais qui ne remplit totalement son rôle.
(X1,X2 -> OK, Formules -> OK, Nombres: pas d'incrémentation -> PAS OK )
Code:
Sub VarianteIII()
Dim dercel As Range: Set dercel = Cells.Find("*", , -4123, , 1, 2)
If dercel Is Nothing Then Exit Sub
With ActiveCell
If .Row < dercel.Row Then
.Resize(dercel.Row - .Row + 1).DataSeries 2, 4, , False
End If
End With
End Sub
PS: AutoFill n'incrémente pas non plus les nombres
Personnellement sur une petite plage de cellules, je me sers du raccourci clavier: CTRL+B plus rapide qu'une macro à rédiger puis copier dans un module etc...
Ou de la souris selon les cas (sans négliger la recopie avec les options offertes par le clic-droit )