Increment d'une macro

Fermé
Yves - 27 sept. 2013 à 20:53
PHILOU10120 Messages postés 6405 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 13 février 2025 - 28 sept. 2013 à 12:14
Bonjour,

Voici une macro existante dans un dossier.
Je dois la copier avec incrément sur 200 lignes, j'en ai pour des mois !
Est il possible de la modifier pour que le numéro de ligne utilisé soit celui du bouton qui la commande ?
Merci de votre aide, moi je nage ...



Sub D_2()
'
' D_2 Macro
' départ n° 2
'

'
Range("H5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("H5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",IF(RC<>0,RC,NOW()))"
Range("F6").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("F6").Select
End Sub
A voir également:

1 réponse

PHILOU10120 Messages postés 6405 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 13 février 2025 813
28 sept. 2013 à 12:14
Bonjour

Je ne comprends pas votre macro
Vous mettez une formule en H5 qui fait référence à elle même donc résultat "référence circulaire"
Que voulez-vous faire exactement ?
Détailler S.V.P.
0