Discussion :

[EvaMa]

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 :

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

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

[Invité]

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 :

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

1
2
 
Function arr(T, H, Tl, Hm1, Hm2) As String

Toujours indiquer le type de la variable que tu renvois.

Code :

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

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 ).

Essaye plutôt de cette façon :

Code :

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

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

[halaster08]

Bonjour,

essaye ceci

Code :

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

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 :

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

arr = ActiveCell.Value = "METEO CONVENABLE"

VBA lis:

Code :

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

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)

[riaolle]

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

Code :

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

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

[EvaMa]

Merci beaucoup pour ces explication je comprend mieux ces erreur

[mjpmjp]

bonjour,

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

ce traduit par

Code :

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

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

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 :

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

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

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 :

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

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 :

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

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

[halaster08]

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.

[EvaMa]

Merci a tous la fonction marche