macro à 3 conditions

CBernardT

XLDnaute Barbatruc

• 16 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 16 Mars 2005

• #3

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

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 16 Mars 2005

• #4

Re,

Oups ! Paf !

En plus :

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

Abel

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 16 Mars 2005

• #5

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.

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 16 Mars 2005

• #6

Re,

Echange fructueux Didier.

Pas bête ce truc là.

Abel.

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 16 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 16 Mars 2005

• #8

Re,

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

Abel.

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 16 Mars 2005

• #9

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

@+

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 16 Mars 2005

• #10

Re,

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

Abel

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 16 Mars 2005

• #11

     

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

@+

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 16 Mars 2005

• #12

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

 

Vote positif 0 Vote négatif

R

remi lantin

Guest

• 18 Mars 2005

• #13

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

 

Vote positif 0 Vote négatif