Macro pour situer une valeur entre plusieurs autres

B

Banzai64

XLDnaute Accro

• 23 Février 2011

• #2

Re : Macro pour situer une valeur entre plusieurs autres

Bonjour
Je ne comprends pas trop

essayes à tout hasard Val(ECARTdates) > 0.......

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 23 Février 2011

• #3

Re : Macro pour situer une valeur entre plusieurs autres

Bonjour

il y a plusieurs façons de résoudre (if; case...)

avec ta méthode, il manque je pense des "endif"

je verrais bien

Code:

If ECARTdates > 0 And ECARTdates <= 2 Then
    a = 1
Else
    If ECARTdates > 2 And ECARTdates <= 5 Then
        a = 2
    Else
        If ECARTdates > 5 And ECARTdates <= 20 Then a = 3
    End If
End If

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Février 2011

• #4

Re : Macro pour situer une valeur entre plusieurs autres

Bonjour le fil 🙂,

ERIC S à dit:

avec ta méthode, il manque je pense des "endif"

Cliquez pour agrandir...

Non, le code est tout à fait correct et fonctionne, la structure avec ElseIf est bien

Code:

If ... Then
...
ElseIF ... Then
...
End If

Par contre, dans le cas présent, si "a" n'est pas déclaré formellement (As Integer par exemple), "a" n'as pas de valeur à la sortie du test si ECARTdates est <=0 ou >20... Donc si tu veux lui donner une valeur, il faut ajouter un Else simple en fin de test

Code:

If ECARTdates > 0 And ECARTdates <= 2 Then
a = 1
ElseIf ECARTdates > 2 And ECARTdates <= 5 Then
a = 2
ElseIf ECARTdates > 5 And ECARTdates <= 20 Then
a = 3
Else
a = 0
End If

Si ta question est autre, je pense qu'on a besoin d'explications complémentaires 🙄...
Bon courage 😎

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 23 Février 2011

• #5

Re : Macro pour situer une valeur entre plusieurs autres

Bonjour
La question manque de clarté
Mais pour .... comme ça
Même si "a" n'est pas déclaré, à la sortie de ces tests il aura la valeur 0 si aucune condition n'est remplie
Dans le cas ou il n'y a que cette série de test dans la macro

Mais peut-être que me trompais-je

Bonne journée

EDIT: Mea culpa
Je me suis mal exprimé
Une déclaration (Integer, Byte, Long ....) suffit à lui donner la valeur 0

 

Dernière édition: 23 Février 2011

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Février 2011

• #6

Re : Macro pour situer une valeur entre plusieurs autres

Salut

ne pratiquant pas le ElseIf (et pour cause), je ferai :

Code:

  Dim a As Byte 'a est initialisé à 0
  If ECARTdates > 0 And ECARTdates <= 2 Then a = 1
  If ECARTdates > 2 And ECARTdates <= 5 Then a = 2
  If ECARTdates > 5 And ECARTdates <= 20 Then a = 3

quand les cas s'excluent, je passe plutôt par un Select Case :

Code:

  Dim a As Byte
  Select Case ECARTdates
  Case 0 To 2: a = 1
  Case 2 To 5: a = 2
  Case 5 To 20: a = 3
  End Select

L'intérêt ici est de sortir de la boucle dès qu'un cas est rencontré.

 

Dernière édition: 23 Février 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Février 2011

• #7

Re : Macro pour situer une valeur entre plusieurs autres

Re 🙂,

Si... à dit:

ne pratiquant pas le ElseIf (et pour cause), je ferai :
...
L'intérêt ici est de sortir de la boucle dès qu'un cas est rencontré.

Cliquez pour agrandir...

Je ne suis pas pratiquant non plus du ElseIf 😛, bien que c'est assez pratique, mais justement, tout son intérêt est aussi de sortir de la boucle dès que la condition est satisfaite 🙄...
Bonne soirée 😎

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 23 Février 2011

• #8

Re : Macro pour situer une valeur entre plusieurs autres

Merci à tous,

la solution de "Si" a parfaitement fonctionné, même sans déclarer la valeur ! Mais je ne sais toujours pas pourquoi la mienne ne marche pas...
Bon j'ai encore des km de lignes à taper alors je m'y met.

Merci !!

 

Vote positif 0 Vote négatif