Discussion :

[Shaplow]

Bonjour,

J'ai une formule excel qui marche très bien: =IF(E3 - D3)< 1/24; 1/24; E3 - D3) seulement j'aimerai la convertir pour l'implanter dans une macro en VBA, ce qui me donne:

Code :

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

=IF((" & Range("E" & i).Address(0, 0) &  "-" &  Range("D" & i).Address(0, 0) & ")< 1/24; 1/24;" & Range("E" & i).Address(0, 0) & "-" & Range("E" & i).Address(0, 0) & ")

Mais cela ne fonctionne pas, pourquoi ?

Bonne journée

[Patrice740]

Bonjour,

En anglais, le séparateur d'attribut dans les formules est la virgule (et non pas le point-virgule)

D'autre part pourquoi utiliser address ?
Autant faire simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub Test()
Dim f As String
Dim i As Long
Dim c As Range
  i = 3
  f = "=IF((E" & i & "-D" & i & ")< 1/24, 1/24," & "E" & i & "-D" & i & ")"
  Set c = ActiveSheet.Range("F3")
  c.Formula = f '"=IF((E3-D3)< 1/24, 1/24,E3-E3)"
End Sub

Edit : Correction en rouge (merci Menhir)

[Menhir]

J'ai une formule excel qui marche très bien: "=IF(E3 - D3)< 1/24; 1/24; E3 - D3)

Plus simple : =MAX(1/24;E3-D3).

Il y a aussi un petit détail qui me surprend : tu utilises les fonction anglophones ( IF ) mais les séparateur francophones ( ; )...

Autant faire simple :

Bonjour Patrice,
Je me permets de corriger juste un détail dans ta formule (un D à la place d'un E).

Code :

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

f = "=IF((E" & i & "-D" & i & ")< 1/24, 1/24," & "E" & i & "-D" & i & ")"

C'est la formule qui convient si on veut l'implanter dans une cellule en utilisant VBA.

En revanche, si on veut l'évaluer dans VBA, par exemple avec un Evaluate, ce sera plutôt :

Code :

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

"IF(" & Cells(i, "E") & "-" & Cells(i, "D") & "<1/24,1/24," & Cells(i, "E") & "-" & Cells(i, "D") & ")"

ou en pur VBA sans Evaluate :

Code :

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

IIf((Cells(i, "E") - Cells(i, "D") < 1/24, 1 / 24, Cells(i, "E") - Cells(i, "D"))

ou encore, en utilisant ma simplification de départ avec un WorksheetFunction :

Code :

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

WorksheetFunction.MAX(1 / 24, Cells(i, "E") - Cells(i, "D"))

[Shaplow]

Il y a aussi un petit détail qui me surprend : tu utilises les fonction anglophones ( IF ) mais les séparateur francophones ( ; )...

Je ne connais pas ce langage du coup je ne savais même pas qu'il fallait faire la différence entre fonctions anglophones/françaises etc ! En tout cas merci pour votre aide j'ai pu régler mon problème

[Menhir]

Je ne connais pas ce langage du coup je ne savais même pas qu'il fallait faire la différence entre fonctions anglophones/françaises etc !

Je ne parlais pas de la tentative d'interprétation en VBA mais de la formule qui marche très bien.

[Patrice740]

Bonjour,

Je ne connais pas ce langage du coup je ne savais même pas qu'il fallait faire la différence entre fonctions anglophones/françaises etc !

C'est tout simplement une question de logique :
- Quand tu utilises une formule anglophone (.Formula), il faut utiliser la syntaxe anglophone (avec des ,)
- Quand tu utilises une formule francophone (.FormulaLocal), il faut utiliser la syntaxe francophone (avec des ; )
et il parait évident que lorsqu'on mélange les deux, Excel ne comprend pas.

[MarcelG]

Bonjour à vous,

Pour ces raisons, j'ai banni, récemment j'en conviens, la méthode FormulaLocal.

A toute fin utile, une astuce, de Philippe je crois (hé salut!):
Pour connaître la formule écrite en langage VBA
- l'écrire dans le tableur (exemple en "A1")
- dans l'éditeur VBE, afficher la fenêtre Exécution (CTRL+G)
- écrire

?Range("A1").Formula

(ne pas oubier "?")
- activer la touche Entrée

[Menhir]

- dans l'éditeur VBE, afficher la fenêtre Exécution (CTRL+G)

Perso, je la garde ouverte en permanence.
Elle sert aussi bien à vérifier des valeurs en cours de code (ou à afficher des messages sur l'avancement d'une exécution) avec des Debug.Print qu'à tester des syntaxes en les tapant directement dedans sans avoir besoin de créer une instruction et de la lancer.

Un outil indispensable pour développer.