Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[babou466]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[babou466]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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