Discussion :

[rossemma]

bonjour,
Pour mon boulot, je dois transformer une formule en ligne de code vba
Pouvez vous m'aider?

voici la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(Janvier!F15<>"";(INDEX(Divers!$A$3:$C$23;EQUIV(Janvier!$F15;Divers!$B$3:$B$23;0);3))+(SI(Janvier!$E15<>"";SI(Janvier!$E15<=Divers!$B$28;Divers!$B$31;)));)

Merci

[BENNASR]

bonjour
démarre ton enregistreur automatique , mettre le curseur ou se trouve la formule, clic sur entrée et tu aura ton code

[MarcelG]

Bonjour rosemma,

2 solutions
1 - L'enregistreur de macro, et tu obtiendras sans doute une formule de type R1C1
2 - Utiliser la formule dans ton langage utilisateur par la propriété FormulaLocal

Pour être complet, tu peux consulter le tutoriel de l'ami Philippe à ce sujet

[rossemma]

merci
mais je voudrais pouvoir intégrer ma boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
 
For i = 6 To 37
    Range("a" & i) = Feuil2.Range("D" & i + 9) - Feuil2.Range("c" & i + 9)
    If Range("a" & i) <= Feuil14.Range("B32") Then
        Range("b" & i).Value = Feuil14.Range("B31")
        Else: Range("b" & i).Value = Range("a" & i) - Feuil14.Range("B31")
    End If
    ActiveCell.FormulaR1C1 = _
        "=IF(Janvier!R[9]C[3]<>"""",(INDEX(Divers!R3C1:R23C3,MATCH(Janvier!R[9]C6,Divers!R3C2:R23C2,0),3))+(IF(Janvier!R[9]C5<>"""",IF(Janvier!R[9]C5<=Divers!R28C2,Divers!R31C2,))),)"
 
Next i

[BENNASR]

Si je comprends bien la demande mais pour moi je fais de la façon suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Range("D3").Select
    ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R3C3:RC3,RC[-1])>COUNTIF(R3C12:R" & DL & "C12,RC[-1]),RC[-1],"""")"
 
    Range("D3").Select
    Selection.AutoFill Destination:=Range("D3:D" & DL), Type:=xlFillDefault

[MarcelG]

mais je voudrais pouvoir intégrer ma boucle

Pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activecell

?
Il te suffit d'affecter la formule, en une fois, à toutes les cellules. Non?

[MarcelG]

Comme cela
Personnellement, je préfère, depuis peu il est vrai, travailler avec FormulalLocal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public Sub formulation()
 
Const laformule As String = "=B3*3"
 
With Worksheets(1).Range("A3:A58")
        .FormulaLocal = laformule
        'Si lon souhaite une copie de valeurs afin de ne pas conserver la formulation
        .Value = .Value
End With
 
End Sub

[rossemma]

je cale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer
 
For i = 6 To 37
    Range("a" & i) = Feuil2.Range("D" & i + 9) - Feuil2.Range("c" & i + 9)
    If Range("a" & i) <= Feuil14.Range("B32") Then
        Range("b" & i).Value = Feuil14.Range("B31")
        Else: Range("b" & i).Value = Range("a" & i) - Feuil14.Range("B31")
    End If
    If Feuil2.Range("f" & i + 9) <> "" Then
 
    (INDEX(Divers!R3C1:R23C3,MATCH(Janvier!R[9]C6,Divers!R3C2:R23C2,0),3))+(IF(Janvier!R[9]C5<>"""",IF(Janvier!R[9]C5<=Divers!R28C2,Divers!R31C2,))),)
 
Next i
End Sub

[MarcelG]

Tu cales en quoi?

Les 2 dernières lignes avant boucle ne signifient rien.

As-tu essayé d'adapter le code que je t'ai proposé?
Voilà comment:
- Il te suffit d'affecter la formulation à une cellule (exemple A8)
- Dans la fenêtre Exécution de l'éditeur VBE (CTRL + G), tu codes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?Activesheet.Range("A8").Formulalocal

- Ensuite, il ne te reste plus qu'à adapter mon code (adresse de cellules et formule).

Reviens ensuite.

[rossemma]

If Feuil2.Range("f" & i + 9) <> "" Then



la première ligne concerne une nouvelle condition et si c'est vrai
alors le résultat de la formule (INDEX(Divers!R3C1:R23C3,MATCH(Janvier!R[9]C6,Divers!R3C2:R23C2,0),3))+(IF(Janvier!R[9]C5<>"""",IF(Janvier!R[9]C5<=Divers!R28C2,Divers!R31C2,))),)

doit être mis en Range("c" & i).Value

ce qui est en gras, c'est ce que je veux mettre dans ma boucle du genre ""xxxxx" & i"

[MarcelG]

doit être mis en Range("c" & i).Value

Même si l'on en perçoit le sens, cette locution ne veut absolument rien dire.
Pourquoi mettre cette condition dans le code?
Tu peux l'intégrer dans la formule.
Exemple en C2
=Si(F11 = "";""; index....)
Ecris cette formule complète à la 1ère cellule (sauf erreur C6)
Ensuite, tu peux
- soit revenir en reportant l'objet de ma demande formulée dans mon dernier post
- soit adapter mon code avec Range("C6:C37") et la formule, hors boucle