Discussion :

[Steph_L]

Bonjour
Je me permets de vous poser une question.

Un tableau avec une colonne date et une colonne expiration.
Selon une périodicité à appliquer, je sais obtenir le renseignement de la colonne expiration (DateAdd).

Code :

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

1
2
3
4
5
6
7
8
 
For Each col_2 In col_1
If IsDate(col_2.Value) Then
col_2.Offset(0, 1).Formula = DateAdd("m", expiration, col_2)
Else
....
End If
Next col_2

La condition est que cela soit une date, mais j'aimerai aussi que le DateAdd fasse parti de la condition.
Si la date de la seconde colonne correspond à la date de la première colonne + la périodicité, il n'est donc pas nécessaire d'effectuer le calcul.

Mais je ne vois pas comment intégrer cette partie "col_2.Offset(0, 1).Formula = DateAdd("m", expiration, col_2)" en seconde condition (avec And).


ps1: je ne veux pas vous choquer en écrivant toutes mes tentatives de "syntaxe" toutes farfelues.
ps2: pas de fichier à joindre. l'ordinateur travail n'est pas relié à internet ...

Pas certain d'être très clair ...
Merci à vous
Steph

[Jean-Philippe André]

Bonjour,

Comme une condition est toujours un test (égalité/inégalité) qui retourne en bout de ligne True ou False, il est bien sûr possible de faire un test sur les valeurs de deux cellules, même en utilisant DateAdd().
Pour simplifier, tu cherches à comparer les valeurs entre elles, même si comparer des formules peut se faire (on compare alors des chaînes de caractères entre elles), mais bien trop compliqué pour rien.

Selon l'emplacement de ta cellule Expiration comparativement à ta colonne col_2, tu peux avoir une syntaxe similaire à

Code :

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

1
2
If col_2.Offset(0, 1).Value = DateAdd("m", expiration.Value, col_2.Value) Then
....

[Steph_L]

Merci beaucoup

J’essaierai dès demain.

Merci encore
Steph

[Steph_L]

Excellent.
Cela fonctionne parfaitement (une évidence pour vous je suppose )

Merci encore.
Steph