Incrementation d'une macro
Fermé
elodie_madrid
Messages postés
1
Date d'inscription
mardi 28 avril 2009
Statut
Membre
Dernière intervention
28 avril 2009
-
28 avril 2009 à 00:28
pilas31 Messages postés 1823 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 28 avril 2009 à 01:32
pilas31 Messages postés 1823 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 28 avril 2009 à 01:32
A voir également:
- Incrementation d'une macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Lancer une macro dans une macro - Astuces et Solutions
1 réponse
pilas31
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
636
28 avril 2009 à 01:32
28 avril 2009 à 01:32
Bonjour,
Je propose la macro suivante (si j'ai bien compris le principe)
A+
Je propose la macro suivante (si j'ai bien compris le principe)
Sub REMPLIR()
Dim col As Integer, lig As Integer
For col = 4 To 56
lig = 129 + col
Cells(lig, col).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & col - 3 & "]C[-" & col - 4 & "]:R[-" & col - 3 & "]C)"
If col < 56 Then
Cells(lig, col).Select
Selection.AutoFill Destination:=Range(Cells(lig, col), Cells(lig, 56)), Type:=xlFillDefault
End If
Next col
End Sub
A+