Fonction avec variable ne marchant pas

Bonjour a tous. Je soushaite creer une fonction qui me permette de traduire cela:

Si T inférieur ou égale à 7 (noté Tl) et H supérieur à 1.2 (noté Hl1) , alors écrire dans la case active "arret de chantier"
Si T supérieur à 7 et H supérieur à 1.5 (noté Hl2) , alors écrire dans la case active "arret de chantier"
Sinon écrire dans la case active "méteo ok"

Soit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function arr(T, H, Tl, Hm1, Hm2) If T <= Tl And H > Hm1 Then arr = ActiveCell.Value = "ARRET DE CHANTIER" ElseIf T >= Tl And H > Hm2 Then arr = ActiveCell.Value = "ARRET DE CHANTIER" Else arr = ActiveCell.Value = "METEO CONVENABLE" End If End Function
Mlaheureusement l'ordianateur me renvoit 0 comme valeur quelque soit les variable , de plus il m'indique que j ai des donné circulaire ... Est ce que vous auriez une id de ce qui beug ? svp

Bonjour,

De ce que j'ai compris tu essayes d'écrire dans ta cellule active et de renvoyer ce que tu as écris via une variable.
Code:

1 2 Function arr(T, H, Tl, Hm1, Hm2) As String
Toujours indiquer le type de la variable que tu renvois. ;)

Code:

arr = ActiveCell.Value = "ARRET DE CHANTIER"

C'est à cause de ce genre de le ligne que tu as des données circulaires, un pro pourra t'expliquer clairement ce que ceci veut dire (et me l'expliquer au passage :P).

Essaye plutôt de cette façon :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function arr(T, H, Tl, Hm1, Hm2) As String If T <= Tl And H > Hm1 Then ActiveCell.Value = "ARRET DE CHANTIER" ElseIf T >= Tl And H > Hm2 Then ActiveCell.Value = "ARRET DE CHANTIER" Else ActiveCell.Value = "METEO CONVENABLE" End If arr = ActiveCell.Value End Function

Bonjour,

essaye ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function arr(T, H, Tl, Hm1, Hm2) If T <= Tl And H > Hm1 Then arr = "ARRET DE CHANTIER" ElseIf T >= Tl And H > Hm2 Then arr = "ARRET DE CHANTIER" Else arr = "METEO CONVENABLE" End If End Function
Quand tu écris ceci:

Code:

arr = ActiveCell.Value = "METEO CONVENABLE"

VBA lis:

Code:

arr = (ActiveCell.Value = "METEO CONVENABLE")

Donc il teste l'égalité entre ta cellule active et le texte que tu met, et te renvoie le booléen associé (0 pour false)

Bonjour,
Est-ce que T, H, Tl, Hm1 et Hm2 sont des cellules?

Code:

1
2
3
4
5
6
7
8
9
Function arr(T As Range, H As Range, Tl As Range, Hm1 As Range, Hm2 As Range) As String
    If T <= Tl And H > Hm1 Then
        arr  = "ARRET DE CHANTIER"
    ElseIf T >= Tl And H > Hm2 Then
        arr = "ARRET DE CHANTIER"
    Else
       arr = "METEO CONVENABLE"
End If
End Function

Merci beaucoup pour ces explication je comprend mieux ces erreur :)

bonjour,

Citation:

Si T inférieur ou égale à 7...
Si T supérieur à 7...

ce traduit par
Code:

1 2 3 4 5 6 if T>7 then else end if
Citation:

Si T supérieur à 7 et H supérieur à 1.5 (noté Hl2) , alors écrire dans la case active "arret de chantier"
Sinon écrire dans la case active "méteo ok"

ce traduit par
Code:

1 2 3 4 5 6 7 écrire dans la case active "méteo ok" if T>7 then if H>1.5 then --> écrire dans la case active "arret de chantier" else end if
Citation:

Si T inférieur ou égale à 7 (noté Tl) et H supérieur à 1.2 (noté Hl1) , alors écrire dans la case active "arret de chantier"

ce traduit par
Code:

1 2 3 4 5 6 7 écrire dans la case active "méteo ok" if T>7 then if H>1.5 then --> écrire dans la case active "arret de chantier" else if H>1.2 then --> écrire dans la case active "arret de chantier" end if
une variante pour "méteo ok"
Code:

1 2 3 4 5 6 7 8 9 écrire dans la case active "" if T>7 then if H>1.5 then --> écrire dans la case active "arret de chantier" else if H>1.2 then --> écrire dans la case active "arret de chantier" end if si case active "" alors écrire dans la case active "méteo ok"
@+JP

Citation:

Envoyé par EvaMa

Je t ai joint mon fichier excel au cas ou tu aurais le temps de jeter un coup d'oeil, la case concerné est surligné en jaune et ce situe dans l'onglet en jaune

Peu de gens ouvrent les pieces jointes, surtout avec macro, notamment pour les raison citées ici: https://www.developpez.net/forums/d8...s-discussions/

Tu auras plus de réponses en affichant un imprim'écran.

Merci a tous la fonction marche :) :) :)