bonne formule affiche #NOM?

[ZèBelini]

Re bonjour le forum,

voici une ligne de code:

Cells(20, 8).Formula = "=90-DEGRES(ATAN(" & r & "))"

lorsque je l'execute, Excel affiche #NOM?... en double cliquant sur la cellule puis en tapant entré, il m'affiche le bon résultat..


Je n'y comprend pas grand chose.

Si quelqu'un peut me filer un coup de main...

Merci d'avance

 

[lapix]

Re : bonne formule affiche #NOM?

Salut,

Au dela du fait que ATAN(x) x doit etre un nombre, je ne sais pas a quoi correspond " & r & ". Peut tu nous dire de quoi il retourne?

a te lire

 

[ZèBelini]

Re : bonne formule affiche #NOM?

oui r est un double...

Voici la macro complète:

Dim LastLine_couronne As Integer
Dim LastLine_plaque As Integer
Dim cel As Range
Dim i As Integer
Dim j As Integer
Dim max As Long
Dim min As Long
Dim alpha As Long
Dim x As Double
Dim y As Double
Dim r As Double
Dim k As Integer
Dim kk As Integer
Dim kkk As Integer
alpha = 0
k = 0
kk = 0
kkk = 0

LastLine_couronne = Range("A65536").End(xlUp).Row
LastLine_plaque = Range("E65536").End(xlUp).Row



For i = 3 To LastLine_couronne
For Each cel In Union(Range("B3:B" & LastLine_couronne), Range("F3:F" & LastLine_plaque))
MsgBox (x & "," & y)
x = Cells(i, 3).Value - cel.Value
y = Cells(i, 4) - Cells(cel.Row, cel.Column + 1)
MsgBox (x & "," & y)
If x = 0 Then
k = k + 1
GoTo toto
ElseIf x < 0 Then
kk = kk + 1
r = y / x
Cells(20, 8).Formula = "=90-DEGRES(ATAN(" & r & "))"
ElseIf x < 0 Then
kkk = kkk + 1
r = y / x
Cells(20, 8).Formula = "=270-DEGRES(ATAN(" & r & "))"

End If

MsgBox (k & "," & kk & "," & kkk)
If alpha < Cells(20, 8).Value Then alpha = Cells(65000, 40).Value

MsgBox (alpha)
toto:
Next cel
Next i
End Sub

 

[lapix]

Re : bonne formule affiche #NOM?

en fait la fonction, dans le code VBA, s'ecrit DEGREES au lieu de DEGRES

Quand tu ecris dans la cellule directement, tu ecris DEGRES ('en francais') mais dans VB tu es en anglais ......

Bon courage

 

[ZèBelini]

Re : bonne formule affiche #NOM?

Ok merci!

par contre lors de mon 2ème passage dans ma boucle, j'ai une erreur 1004...


Sniffff

 

[lapix]

Re : bonne formule affiche #NOM?

sur quelle ligne tu as ca ?

 

[lapix]

Re : bonne formule affiche #NOM?

a la place de 'goto toto', je mettrais simplement 'Exit For' car si je me trompe pas tu veux simplement sortir de la boucle parce que tu as trouvé ce que tu cherchais. (Si c'es ca il faudra aussi enlever le "toto:"

 

[ZèBelini]

Re : bonne formule affiche #NOM?

l'erreur est sur la ligne:Cells(20, 8).Formula = "=90-DEGREES(ATAN(" & r & "))"

pour le Exit for, en fiat je ne veux pas sortir de ma boucle, mais passer à la cel suivante...

merci pour ton aide

 

[lapix]

Re : bonne formule affiche #NOM?

comme ca je ne vois rien, tu pourrais mettre un bout de ton fichier?

 

[ZèBelini]

Re : bonne formule affiche #NOM?

Voilà le fichier en pièce jointe:

 

[lapix]

Re : bonne formule affiche #NOM?

tu as de la chance car quand moi je le fais tourner, il ne fait meme pas un premier tour...
Je regarde un peu plus....

 

[lapix]

Re : bonne formule affiche #NOM?

Donc,

Afin de pouvoir faire au moins un tour, j'ai supprimé la colonne A qui etait vide.

Ensuite quand je fais tourner, j'ai pas d'erreur, la procedure va a son terme et maffiche une liste de 90 en colonne H

Je ne sais pas quoi te dire...