Discussion :

[Antineos]

Bonjour,

Je tente d'écrire une formule dans chaque cellule de la colonne E avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'   Recréer la formule de la colonne E
 
    Dim CellForm As String
 
    For i = 4 To noFinS
'       CellForm = "=SI(B" & i & "-C" & i & "-D" & i & ">0;B" & i & "-C" & i & "-D" & i & ";0)"
'      ou bien
        CellForm = "=SI(LC(-3)-LC(-2)-LC(-1)>0;LC(-3)-LC(-2)-LC(-1);0)"
 
        Debug.Print CellForm
        Range("E" & i).Formula = CellForm
 
    Next i

Le print est conforme à mes attentes mai la macro plante sur Range avec le message : la méthode "Formula" de l'objet "Range" a échoué !!!

Je ne comprends pas où est l'erreur

Merci

Antineos

[Invité]

tu est en VBA pas en Tableur, pas de [si] mais des [if] pas de [;] mais des[,]
réalise ton équation dans la cellule B5 (côté tableur) puis dans la fenêtre d'exécution vb écris:

Code debug :

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

?range("b5").formular1c1

[parmi]

Bonjour,

Formula demande une formule en anglais.
Soit tu changes le SI par IF, soit tu passes par FormuleLocal et laisse en français
Par contre, Formula sera portable sur des systèmes en anglais autant qu'en français.

De plus, comme tu utilises le mode R1C1, il faudra probablement que tu passes par FormulaR1C1 ou FormulaR1C1Local selon les mêmes recommandations. En anglais, LC deviendrait RC.

[Antineos]

Bonjour,

Formula demande une formule en anglais.
Soit tu changes le SI par IF, soit tu passes par FormuleLocal et laisse en français
Par contre, Formula sera portable sur des systèmes en anglais autant qu'en français.

De plus, comme tu utilises le mode R1C1, il faudra probablement que tu passes par FormulaR1C1 ou FormulaR1C1Local selon les mêmes recommandations. En anglais, LC deviendrait RC.

Merci,
J'ai modifié le code selon vos recommendations et j'ai testé avec les 2 versions de CellForm. Aucune ne fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
'
' Macro1 Macro
'
'   Recréer la formule de la colonne E
    Dim CellForm As String
    For i = 4 To 10 
       CellForm = "=IF(B" & i & "-C" & i & "-D" & i & ">0;B" & i & "-C" & i & "-D" & i & ";0)"
'ou bien
'        CellForm = "=IF(RC(-3)-RC(-2)-RC(-1)>0;RC(-3)-RC(-2)-RC(-1);0)"
        Debug.Print CellForm
        Range("E" & i).Formula = CellForm
 
    Next i
    End Sub

A force de lire et relire je ne trouve plus les erreurs...

[Invité]

écris ton équation dan une cellule et fais ce que je t'es dit:
fenêtre d’exécution dans VB touche [CTRL] + [G]

Code fenêtre d’exécution :

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

?range("B5").formular1c1 'et [ENTER]

[Antineos]

Un grand merci.
Je n'avais pas encore remarqué la ponctuation...