Lancement d'une macro à partir de la position du curseur
P
Bonjour
Merci encore à celui qui a écrit les lignes du code ci-dessous en réponse à la question posée ici il ya quelques semaines
(la question était : dans une colonne, comment remplir automatiquement toutes les cellules vides par la valeur contenue dans la cellule non-vide située au-dessus d'elles).
Ce code marche en effet très bien :
Sub remplit_vides()
With Range("A1:A" & [B65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub
L'inconvénient, c'est que la macro s'exécute toujours à partir du haut de la colonne A.
Comment modifier cette macro pour qu'elle se lance à partir de la position du curseur ?
Merci d'avance !
f
Bonsoir,
tu peux modifier comme ceci :
Sub remplit_vides()
With Range("A" & ActiveCell.Row & ":A" & [B65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub