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

[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]

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