macro à 3 conditions

[remi lantin]

bonjour à tous, supposons 3 cellules, f1,f2,f3 ,si la moyenne des trois cellules est plus grande que 75 ou plus petite que moins 75, la quatrième cellule doit afficher CALIBRATION.Si la moyenne est entre 75 et -75 , elle doit afficher OK. Est-ce possible?

 

[CBernardT]

Bonsoir Remi

Une macro pour réaliser tes souhaits :

Sub Moyenne()
If Application.Average(Range('F1:F3')) < -75 Or Application.Average(Range('F1:F3')) > 75 Then
Range('F4') = 'CALIBRATION'
Else
Range('F4') = 'OK'
End If
End Sub

Cordialement

CBernardT

 

[Abel]

Bonsoir remi lantin, le forum,

Oui c'est possible ...

Arf !

Bon.

Avec une formule en F4 (par exemple) :

=SI(OU(MOYENNE(F1:F3)>75;MOYENNE(F1:F3)<-75);'Calibration';SI(OU(MOYENNE(F1:F3)<75;MOYENNE(F1:F3)>-75);'OK'))

En espérant que cela te dépanne

Abel

 

[Abel]

Re,

Oups ! Paf !

En plus :

=SI(OU(MOYENNE(F1:F3)>75;MOYENNE(F1:F3)<-75);'Calibration';'OK')

Abel

 

[myDearFriend!]

Bonsoir Remi, CBernardT, Abel.

Bon, après un échange avec mon ami Dugenou, j'ai décidé de me mettre aux formules Excel... Alors, tant pis, je me lance :

=SI(ABS(MOYENNE(F1:F3)>75);'Calibration';'OK')

J'espère que je ne dis pas une ânerie :huh:

Cordialement.

 

[Abel]

Re,

Echange fructueux Didier.

Pas bête ce truc là.

Abel.

 

[CBernardT]

bonsoir Mdf et Abel,


Bien vu la valeur absolu pour simplifier la formule, mais ai-je mal compris ou la réponse demandée est une macro ???

A+

CBernardT

 

[Abel]

Re,

Heu ... Oui CBernardT, effectivement, c'est dans le sujet. Arf !

Abel.

 

[myDearFriend!]

Oups,

Merci Abel, mais je viens de m'apercevoir d'une erreur dans l'ordre des parenthèses, en fait, c'est :

=SI(ABS(MOYENNE(F1:F3))>75;'Calibration';'OK')

@+

 

[Abel]

Re,

Pas vu non plus. Mais pas grave. C'est l'idée qui est sympa.

Abel

 

[myDearFriend!]

     

Salut Bernard,

Ben oui, tu as raison... je n'avais pas fait attention non plus !

Dommage, pour une fois que je fais un effort avec les formules, c'est raté...

@+

 

[CBernardT]

Re,

Comme vous êtes sympha, je modifie la macro.

Sub Moyenne()
If Abs(Application.Average(Range('F1:F3'))) > 75 Then
Range('F4') = 'CALIBRATION'
Else
Range('F4') = 'OK'
End If
End Sub

Salut

CBernardT

 

[remi lantin]

merci pour vos réponses.J`avais demandé une macro mais la formule fera très bien mon affaire.Merci encore.