Excel:comparateur de date

Résolu
marrrrrr -  
 ionesco -
Bonjour,

Une fois encore je vous appel a laide. Dans la premiere colonne de ma sheet3 jai une serie de date. La premiere est saisie automatiquement, la suivante correspond au lendemain et ainsi de suite jour apres jour. J'ai donc dans les cellules la formule suivante:
A4=DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY(Results!$A3)+1)

jusque la tout va bien, le probleme est que je veux que date saffiche seulement si cette date est presente sur ma sheet 1 qui contient des listes de date toutes les deux colonnes... le tout si possible sans macro... J'ai bien teste des vlookup et des match mais je naboutie pas...

Merci de votre aide

cordialement



A voir également:

2 réponses

Réponse 1 / 2
marrrrrr
 
c'est bon jai trouve:

=IF(IF(ISNA(VLOOKUP(DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY(Results!$A3)+1),datearea,2,FALSE)),"not KNOW",VLOOKUP(DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY(Results!$A3)+1),datearea,2,FALSE))<>"not KNOW",DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY((Results!$A3)+1)),IF(IF(ISNA(VLOOKUP(DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY((Results!$A3)+2)),datearea,2,FALSE)),"not KNOW",VLOOKUP(DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY(Results!$A3)+2),datearea,2,FALSE))<>"not KNOW",DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY((Results!$A3)+2)),DATE(YEAR(Results!$A3),MONTH(Results!$A3),DAY((Results!$A3)+3))))
0
marrrrrr
 
en fait ca ne marche pas, le vlookup ne look que la premiere colonne de ma plage datearea
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Tu devrais déposer un classeur exemple sur cijoint.fr et coller ici le lien fourni.

Tu peux peut-être utiliser nb.si()
=Si(NB.SI(A1:C17;ta_date)>0;...;...)
à condition qu'il n'y ait pas de valeur pouvant être des dates correctes entre tes colonnes.

Sinon, en A4 tu peux mettre: =Results!$A3+1 , restons simples.... ;-)

eric
0
ionesco
 
jai finalememt fait une macro
Sub move_date1()

Dim i As Integer
Dim n As Integer
Dim first_date As Date
Dim r As Integer

Worksheets("Inputs").Select

first_date = Cells(4, 3)

i = 5
n = 1
r = 1

Worksheets("Results").Select

Cells(3, 1) = first_date

While first_date <= Date

Worksheets("Data").Select

While first_date > Cells(3, n)

n = n + 2

Wend


While Cells(i, n) <> "" And Cells(i, n) < first_date

i = i + 1

Wend

While Cells(i + 1, n) <> ""

first_date = Cells(i + 1, n)

Worksheets("results").Select
Cells(r + 3, 1) = first_date
Worksheets("data").Select
r = r + 1
i = i + 1
Wend

i = 5
n = n + 2


Wend

End Sub


merci quand meme

crdlt
0