Increment d'une macro
Yves
-
PHILOU10120 Messages postés 6445 Date d'inscription Statut Contributeur Dernière intervention -
PHILOU10120 Messages postés 6445 Date d'inscription Statut Contributeur Dernière intervention -
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
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:
- Increment d'une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
