Problème syntaxe ( calcul vitesse avec deux conditions)

[XkevinX]

Bonjour/Re,


Recevant de si bonnes réponses, je fais encore appel à vous 😀.

Voilà ma macro :

Sub FormuleVitesse()

Dim deb As Integer, n As Integer

deb = 1
For n = 3 To Range("E65536").End(xlUp).Row + 1
If Range("F" & n) <> "" & Range("G" & n) <> "" Then
  Range("E" & n).FormulaLocal = "=F" & n & "/((MINUTE(G" & n")*60+SECONDE(G" & n"))/3600))"
  deb = n
End If
Next n
End Sub

J'ai un erreur de syntaxe sur la FormulaLocal et je comprends pas.

Un petit coup de main. Merci d'avance.

 

[mécano41]

Re : Problème syntaxe ( calcul vitesse avec deux conditions)

Bonjour,

Déjà, il manque des & derrière certains n ; regarde avec ceci :

Range("E" & n).FormulaLocal = "=F" & n & "/((MINUTE(G" & n & ")*60+SECONDE(G" & n & "))/3600))"

Cordialement

 

[XkevinX]

Re : Problème syntaxe ( calcul vitesse avec deux conditions)

Re,

Bonjour mécano41,

Oui, je l'ai vu post-post ( 😱 bizarre ça).

J'ai la même chose que toi mais cela ne fonctionne pas.

Sub FormuleVitesse()

Dim deb As Integer, n As Integer

deb = 1
For n = 3 To Range("E65536").End(xlUp).Row + 1
If Range("F" & n) <> "" & Range("G" & n) <> "" Then
'Range("E" & n).FormulaLocal = "=F" & n & "/((MINUTE(G" & n & ")*60+SECONDE(G" & n & "))/3600))""" 'Mon code
Range("E" & n).FormulaLocal = "=F" & n & "/((MINUTE(G" & n & ")*60+SECONDE(G" & n & "))/3600))" 'Le tien

deb = n
End If
Next n
End Sub

J'ai compté plus de guillemts à fermer ...

Le but c'est de faire la vitesse.
Colonne F => Distance
Colonne G => temps en [m]:ss
Colonne E => ici, le résultat de la macro pour chaque ligne.

Dois-je faire varier les valeurs des colonnes G et F comme cette ligne For n = 3 To Range("E65536").End(xlUp).Row + 1 ?

Merci

 

[mécano41]

Re : Problème syntaxe ( calcul vitesse avec deux conditions)

Regarde avec ceci si cela donne ce que tu veux :

Chez moi cela ne fait plus d'erreur. J'ai aussi modifié E65536 en F65536...au début c'est vide en E ...

Cordialement

Option Explicit
Sub FormuleVitesse()
Dim deb As Integer, n As Integer

deb = 1
For n = 3 To Range("F65536").End(xlUp).Row + 1
    If Range("F" & n).Value <> 0 And Range("G" & n).Value <> 0 Then
      Range("E" & n).FormulaLocal = "=F" & n & "/(MINUTE(G" & n & ")*60+SECONDE(G" & n & ")/3600)"
      deb = n
    End If
Next n
End Sub

 

[XkevinX]

Re : Problème syntaxe ( calcul vitesse avec deux conditions)

Bonjour,

Merci mécano41, cela donne ce que je souhaitais. 😀

PS : Une erreur dans la formule "=F" & n & "/((MINUTE(G" & n & ")*60+SECONDE(G" & n & "))/3600)"

Il manquait deux parenthèses.

Voilà merci beaucoup.