Calcul de cap sous vba

Bonjour,
Je suis novice en vba et j'ai un calcul de cap à effectuer à partir de la latitude et la longitude de 2points consecutifs fournis à partir d'un fichier Excel.
Sous Excel ça donne ça (sachant que la latitude se situe colonne 12 et la longitude colonne 11):

N1: latitude du point de départ
N2: latitude du point d'arrivée
E1:longitude du point de départ
E2:longitude du point d'arrivée
Npole=1.570796
a=Npole-N2
b=Npole-N1
c=arcos(sin(N1).sin(N2)+cos(N1).cos(N2).cos(E1-E2))

Avant correction trigonométrique:

F=(cos(a)-cos(b).cos(c))/(sin(b).sin(c))
cosA=SI(F>1;1;SI(F<-1;-1;F))
A=arcos(cos(A))
Cap1=A*57.295779 (//pour avoir le cap en degré)

Après correction eventuelle:

Cap=SI(ET(E1=E2;N2>N1);0;SI(ET(E1=E2);N2<N1);180;SI(ET(E1=E2;N2=N1;0;SI(E1<E2;Cap1;360-Cap1))))


Sous VBA j'ai fait ça (c'est surement pas très concis!):

Option Explicit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub cap() Dim caz As Integer caz = 1 Const Npole = 1.570796 Dim cap1 For caz = 1 To 5000 Cells(caz, 46).Value = Npole - CStr(Cells((caz + 1), 12).Value) Cells(caz, 47).Value = Npole - CStr(Cells(caz, 12).Value) Cells(caz, 48).Value = Sin(CStr(Cells(caz, 12).Value)) * Sin(CStr(Cells(caz + 1, 12).Value)) + Cos(CStr(Cells(caz, 12).Value)) * Cos(CStr(Cells(caz + 1, 12).Value)) * Cos(CStr(Cells(caz, 11).Value) - CStr(Cells(caz + 1, 11).Value)) Cells(caz, 49).Value = Atn(-(Cells(caz, 48).Value) / Sqr(-(Cells(caz, 48).Value) * (Cells(caz, 48).Value) + 1)) + 2 * Atn(1) Cells(caz, 50).Value = (Cos(Cells(caz, 46).Value) - Cos(Cells(caz, 47).Value) * Cos(Cells(caz, 49).Value)) / (Sin(Cells(caz, 47).Value) * Sin(Cells(caz, 49).Value)) If Cells(caz, 50).Value > 1 Then Cells(caz, 51).Value = 1 ElseIf Cells(caz, 50).Value < -1 Then Cells(caz, 51).Value = -1 Else Cells(caz, 51).Value = Cells(caz, 50).Value End If Cells(caz, 52).Value = Atn(-(Cells(caz, 51).Value) / Sqr(-(Cells(caz, 51).Value) * (Cells(caz, 51).Value) + 1)) + 2 * Atn(1) Cells(caz, 53).Value = 57.295779 * Cells(caz, 52).Value If CStr(Cells(caz, 11).Value) = CStr(Cells(caz + 1, 11).Value) And CStr(Cells(caz + 1, 12).Value) > CStr(Cells(caz, 12).Value) Then Cells(caz, 45).Value = 0 ElseIf CStr(Cells(caz, 11).Value) = CStr(Cells(caz + 1, 11).Value) And CStr(Cells(caz + 1, 12).Value) < CStr(Cells(caz, 12).Value) Then Cells(caz, 45).Value = 180 ElseIf CStr(Cells(caz, 11).Value) = CStr(Cells(caz + 1, 11).Value) And CStr(Cells(caz + 1, 12).Value) = CStr(Cells(caz, 12).Value) Then Cells(caz, 45).Value = 0 ElseIf CStr(Cells(caz, 11).Value) < CStr(Cells(caz + 1, 11).Value) Then Cells(caz, 45).Value = Cells(caz, 53).Value Else Cells(caz, 45).Value = 360 - Cells(caz, 53).Value End If Next caz End Sub

---

Mais ça marche pas!
Est-ce que je suis obligée de faire apparaitre les colonnes 46,47,48...qui ne me servent que pour le calcul du cap.
Si quelqu'un peut m'aider, merci!

Je précise un peu mon problème...
C'est notamment dans mon itération, à la 1ère ligne, il n'a pas l'air de comprendre qu'à la ligne i de la colonne 46, j'affecte la valeur de la différence entre Npole et la valeur de la i+1 ligne de la colonne 12...J'ai une erreur d'incompatibilité de type...
voilà, si quelqu'un pouvait m'aider...

Le CStr ne te renvoi pas un réel mais un string ou booléen. Regarde l'aide F1 pour cette commande. Enlève le et ça devrait passer

J'ai enlevé les CStr mais à la première ligne de l'itération il ne comprend toujours pas le "caz+1" il m'indique toujours une erreur d'incompatibilité de types...

t' as fait un déboguage par étape ? Il bloque pour Caz=1 ? Essaie peut etre avec Dim Npole as Single on sait jamais

Merci peaceandloveman01 pour ton aide mais Dim Npole as Single ne change rien et quand je fais un débogage étapes par étapes il se bloque à la ligne

Cells(caz, 46).Value = Npole - Cells((caz + 1), 12).Value

En me mettant toujours incompatibilité de types...:(

essaie Cells(caz, 46) = Npole - Cells((caz + 1), 12).Value

et vérifie que la cellule caze+1,12 est bien un nombre sans lettre

Merci! C'est bon ça marche!