Syntaxe conditions if

Version imprimable

09/03/2009, 14h43
babou466

bonjour à tous, j'ai un petit soucis une nouvelle fois...voilà, j'aimerais combiner deux conditions pour effectuer mon if. Mes 2 conditions sont entre paranthèses séparées par le or. Cependant le programme ne s'exécute pas comme je le souhaiterais quand la 2ème condition est vérifiée...quelqu'un pourrait il m'aider s'il vous plait? merci à vous et bonne journée

voici mon code:

Code:

If (Cells(8, ColonneTCDyn).Value <> Cells(8, ColonneTCDyn - 1).Value + 1) Or (Cells(8, ColonneTCDyn).Value = 12 And Cells(8, ColonneTCDyn - 1).Value <> 1) Then

pardon voici plutôt mon code:

Code:

If (Cells(8, ColonneTCDyn).Value <> Cells(8, ColonneTCDyn - 1).Value + 1) Or (Cells(8, ColonneTCDyn - 1).Value = 12 And Cells(8, ColonneTCDyn).Value <> 1) Then

la seconde condition n'est pas testée quand elle le devrait...
09/03/2009, 14h58
binouzzz19

Salut,

Il faudrait que tu nous explique surtout fonctionnellement ce que tu voudrais obtenir car sauf erreur de syntaxe (qu'il n'y a pas l'air d'y avoir), on ne peut pas grand chose pour toi ...

Cordialement.
09/03/2009, 15h04
babou466

il n 'y a vraiment pas d'erreur de syntaxe? d'accord...pourtant d'apès mes espions lorsque je tombe sur

Code:

Cells(8, ColonneTCDyn - 1).Value = 12

et

Code:

Cells(8, ColonneTCDyn).Value = 1

, je rentre dans l'exécution de mon if...
je suis en fait en train de tester si la valeurs des mois se suivent bien afin d'insérer des valeurs dans un autre tableau dans le cas contraire. Je dois donc vérifier que les valeurs des mois vont en s'incrémentant ou que le mois de décembre (12) soit bien suivi par un mois de janvier (1)

mes mois étant vous l'aurez deviné sur ma 8ème ligne
09/03/2009, 15h15
Godzestla

Citation:

il n 'y a vraiment pas d'erreur de syntaxe? d'accord...pourtant d'apès mes espions lorsque je tombe sur Cells(8, ColonneTCDyn - 1).Value = 12 et Cells(8, ColonneTCDyn).Value = 1, je rentre dans l'exécution de mon if...

Dans ce cas,

Code:

Cells(8, ColonneTCDyn).Value <> Cells(8, ColonneTCDyn - 1).Value + 1

est vrai car 1 <> 12+1 et donc tu as une erreur de logique car tu passes toujours dans le IF.

Je pense donc que ton test est mal construit.

effectivement il était mal construit...j'ai fait de la façon suivante finalement:

Code:

1
2
3
4
5
6
7
8
9
If Cells(8, ColonneTCDyn - 1).Value = 12 Then
            'vérification que Décembre soit bien suivi par Janvier
            If Cells(8, ColonneTCDyn).Value <> 1 Then
                GoTo gestion_décalage
            End If
    Else
        'sinon vérification que les valeurs numériques des mois s'incrémentent bien
        If (Cells(8, ColonneTCDyn).Value <> Cells(8, ColonneTCDyn - 1).Value + 1) Then
gestion_décalage:

merci à vous