Transformer formule avec fonction "Indirect" en code macro excel
Résolu/Fermé
Nyre
Messages postés
8
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
18 décembre 2013
-
23 juin 2013 à 17:13
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 24 juin 2013 à 09:47
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 24 juin 2013 à 09:47
A voir également:
- Transformer formule avec fonction "Indirect" en code macro excel
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel - Guide
- Excel fonction si et - Guide
- Mise en forme conditionnelle excel formule si - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
23 juin 2013 à 22:22
23 juin 2013 à 22:22
Bonjour,
C'est pas mal, il manque juste le End With.
Pour plus de lisibilité, tu peux remplacer FormulaR1C1 par Formula (ou FormulaLocal) :
C'est pas mal, il manque juste le End With.
Pour plus de lisibilité, tu peux remplacer FormulaR1C1 par Formula (ou FormulaLocal) :
Sub semaines_cumulées_depuis_juin() Dim I As Integer Dim Nom As String For I = 3 To Sheets.Count With Sheets(I) If I = 3 Then .Range("AE46").Formula = "=AF38" Else If LCase(.Name) Like "*juin*" Then .Range("AE46").Formula = "=AF38" Else .Range("AE46").Formula = "='" & Nom & "'!AE46+AF48" End If End If Nom = .Name End With Next I End Sub
Nyre
Messages postés
8
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
18 décembre 2013
24 juin 2013 à 08:39
24 juin 2013 à 08:39
Bonjour Patrice 33740,
Et grand merci ! Tout fonctionne. Je ne connaissais pas .Formula qui simplifie beaucoup la rédaction du code.
Bien cordialement.
Nyre
Et grand merci ! Tout fonctionne. Je ne connaissais pas .Formula qui simplifie beaucoup la rédaction du code.
Bien cordialement.
Nyre
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
24 juin 2013 à 09:47
24 juin 2013 à 09:47
Et FormulaLocal permet d'écrire les formules dans la langue de l'utilisateur (en français)