Fonction OU dans VBA, valeur plus petite ou plus grande

[Annetoine]

Bonjour,

Après avoir cherché un bon bout de temps, voici mon problème:

Je dois vérifier si 4 cellules sont plus grandes ou moins grandes qu'une valeur donnée. Si une des cellules est VRAIE, alors ça enchaine sur plusieurs commandes après.

J'ai testé ceci :

If Range("G339;G410") < -2 Or Range("G340;G410") > 2 Then
...
...
...
End If


Mais ça ne marche pas >_<
Des idées?

Merci !!!

 

[tototiti2008]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Bonjour Annetoine,

Bienvenue sur XLD,

Peut-être

If Range("G339") < -2 Or Range("G410")< -2 or Range("G340") > 2 or Range("G410") > 2 Then

Si pas ça, essaye de fournir plus d'explications et peut-être un bout de fichier

 

[soune26]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

fait plutot un boucle du style


for REF = 339 to 410
if cells (7,REF)<-2 or cells(7,REF)>2 then
....
....
....
end if
Next REF

 

[Hellboy]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

With Application.WorksheetFunction
If .Min(Range("G339,G410")) < -2 Or _
   .Max(Range("G340;G410")) > 2 Then
' code
End If

End With

 

[Annetoine]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Merci à tous pour vos réponse !

J'ai également trouvé une solution pendant ce temps
J'ai tout simplement mis :

If G339 < -2 Or G410 < -2 Or G340 > 2 Or G411 > 2 Then
...
...
...
End if

Cette solution fonctionne. J'avais essayé la solution de tototiti2008, mais bizarrement il me mettait un bug...

Mais la solution de Hellboy m'a l'air sympa, ça fait moins machine à gaz.. Je vais tester ça !

Merci à tous pour votre aide en tout cas !
Bon forum

 

[Annetoine]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Autre question, j'aurai deux boucles de ce type, comment lui dire de passer la 2ème si la 1ère est vraie?

Sinon ça fausse tout les calculs...

 

[Hellboy]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

visualisation de ton code afin de nous mettre dans le contexte... sinon risque de répondre à l'aveuglette ;-)

 

[Annetoine]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Voici le code que j'ai pour le moment:

''Choix pressions, -60Pa

If G339 < -2 Or G410 < -2 Or G340 > 2 Or G411 > 2 Then

Sheets("Rapport").Select

Range("E345").Select
ActiveCell.FormulaR1C1 = "-60 à -15Pa par paliers de 5Pa en croissant"

Range("D346").Select
ActiveCell.FormulaR1C1 = "-60"
Range("E346").Select
ActiveCell.FormulaR1C1 = "-55"
Range("D346:E346").Select
Selection.AutoFill Destination:=Range("D346:M346"), Type:=xlFillDefault

Sheets("Rapport Fan testic").Select
Range("C25:L25").Select
Selection.Copy
Sheets("Rapport").Select
Range("D347").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Rapport Fan testic").Select
Range("C29:L29").Select
Selection.Copy
Sheets("Rapport").Select
Range("D352").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

'' Choix pressions -55PA
If G339 >= -2 Or G410 >= -2 Or G340 <= 2 Or G411 <= 2 Then

Sheets("Rapport").Select
Range("E345").Select
ActiveCell.FormulaR1C1 = "-55 à -10Pa par paliers de 5Pa en croissant"

Range("D346").Select
ActiveCell.FormulaR1C1 = "-55"
Range("E346").Select
ActiveCell.FormulaR1C1 = "-50"
Range("D346:E346").Select
Selection.AutoFill Destination:=Range("D346:M346"), Type:=xlFillDefault

Sheets("Rapport Fan testic").Select
Range("D25:M25").Select
Selection.Copy
Sheets("Rapport").Select
Range("D347").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Rapport Fan testic").Select
Range("C29:L29").Select
Selection.Copy
Sheets("Rapport").Select
Range("D352").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If


Voila, le texte en rouge correspond à ce qu'il doit faire si valeur VRAIE.
Si la 1ère boucle est juste, il ne doit pas effectuer la 2ème.

Merci !

 

[Annetoine]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Et j'ai l'impression que ma boucle en If ne fonctionne pas en faite...
Il faut que une des 4 case soient vraie.

 

[Hellboy]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

If G339 < -2 Or G410 < -2 Or G340 > 2 Or G411 > 2 Then
 
'code
ElseIf G339 >= -2 Or G410 >= -2 Or G340 <= 2 Or G411 <= 2 Then '' Choix pressions -55PA
' code

End If

 

[Hellboy]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

explique la logique de ce que tu essaie d'accomplir... ont va mieux comprendre ce qui cloche dans le but de ton objectif.

 

[tototiti2008]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Bonjour soune, Bonjour Hellboy,
Re,

J'ai également trouvé une solution pendant ce temps
J'ai tout simplement mis :

If G339 < -2 Or G410 < -2 Or G340 > 2 Or G411 > 2 Then
...
...
...
End if

Cette solution fonctionne

Je me permet de douter
Encore, s'il y avait des crochets genre

If [G339] < -2 Or [G410] < -2 Or [G340] > 2 Or [G411] > 2 Then

je ne dis pas, mais sans crochets il m'étonnerait que ça fonctionne
Sinon l'idée de Hellboy avec les Min et Max est bonne aussi

 

[Annetoine]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

YESSSS ça marche !


Merci à tous !

Hellboy, c'est bien cela qu'il me fallait, ça marche nikel.

Il me restait encore un soucis, il ne prenait pas en compte la 1ère boucle, la réponse de tototiti2008 a résolu le problème !
Il manquait effectivement mes "[]"

Un grand merci pour votre aide ! Je suis trop content que ça fonctionne

 

[Hellboy]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Bon ben... tant mieux. !
Merci de ton aide tototiti2008.

 

[Annetoine]

Re : Fonction OU dans VBA, valeur plus petite ou plus grande

Aie Aie Aie, nouveau problème ... Petit celui là !

J'ai une celulle contenant la valeur suivant : 19 °C

J'ai besoin de copier et coller uniquement le chiffre, 19, puisqu'il est utilisé dans un calcul par la suite.

J'ai regardé un peu sur les forums, j'ai compris qu'il fallait utilisé la fonction Val, mais je n'arrive pas à la mettre en œuvre