Discussion :

[Masmeta]

Bonjour

J'ai une colonne remplie de date (jj/mm/aaaa hh:mm). Je teste cellule par cellule. Lorsque la date de la cellule est supérieure à la date référence, je met 1 dans la colonne suivante sur la meme ligne, sinon je met 0

Voici le bout de code que je met :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each c In Worksheets("LISTE").Range("A:A")
    Range("B:B").Select
    If c.Value > Date Then
 
        ActiveCell.FormulaR1C1 = "1"
    Else
        ActiveCell.FormulaR1C1 = "0"
    End If
Next c

Ceci ne marche pas, pouvez vous m'aider?
Je ne sais pas comment faire bien et rapide.

[bidou]

Code :

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

1
2
3
4
5
6
7
For Each c In Worksheets("LISTE").Range("A:A")
    If c.Value > Date Then
        c.Offset(,1).Value = 1
    Else
        c.Offset(,1).Value = 0
    End If
Next c

[helios77]

Essaie çà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim i As Integer
i = 1
 
Worksheets("LISTE").Activate
 
While Trim(Cells(i, 1).Value) <> ""
    Cells(i, 2).Value = 0
    If (Cells(i, 1).Value > dte) Then Cells(i, 2).Value = 1
    i = i + 1
Wend

Ainsi, il va boucler sur toute tes cellules de la première colonne jusqu'à ce qu'il trouve une cellule vide

Si tu veux boucler sur les 655536 ligne, tu remplace le test apr while i<=655536, voilà c'est tout

[alsimbad]

Code :

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

1
2
3
4
5
6
7
8
9
For Each c In Worksheets("LISTE").Range("A:A") ' là c'est bon
    Range("B:B").Select ' ici tu lui dis de selectionner la colonne B entiere
    If c.Value > Date Then ' ici, tu ne lui dis pas ce qu'est ce date
 
        ActiveCell.FormulaR1C1 = "1" ici activecell n'est autre que la cellule en colone A
    Else
        ActiveCell.FormulaR1C1 = "0"
    End If
Next c

en gros c'est pas bon
pour l'exmple suivant, j'ai supposé que la colonne A contient les dates référence, la colonne B la date a tester, et tu écris le resultat dans la colone C

Code :

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

1
2
3
4
5
6
7
8
dim C as variant
For Each c In Worksheets("LISTE").Range("A:A") 'pour chaque c dans feuille ("liste").plage(A:a)
if c.offset(0,1) > c then ' si c.décaler(0 en ligne, 1 en colonne)>c alors
c.offset(0,2) = 1' c.décaler(0 en ligne, 2 en colonne) = 1
else 'sinon
c.offset(0,2) = 0' c.décaler(0 en ligne, 2 en colonne) = 0
end if ' fin de la condition si
next c ' passer au C suivant, refaire la boucle

là ça marche, mais tu teste l'integralité de la colonne A, ce qui n'est pas tres bon.
si tu écris

Code :

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

For Each c In Worksheets("LISTE").Range("A1:A100")

tu testes les 100 premieres cases de la colonne A et tu gagne du temps.
voila, voila, j'espere que ça t'aura aidé a comprendre.

[Masmeta]

Merci pour vos réponses et vos explications cela m'aide pas beaucoup à comprendre VBA.

Bon le fonctionnement est à peu près bon. Sauf que lorsque la date testée est supérieure à la date référent. Au lieu de mettre 1, il garde le zéro.

Est ce que le problème vient des types des variables ?
(date testé : variant/Object/Range date réferent variant/String)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Dim fs
Dim Seq
Dim c As Variant
Dim Sequence As Variant
Dim i As Integer
Dim j As Integer
 
i = 0
j=2
 
'Sauvegarde des séquences
Set fs = CreateObject("Scripting.FileSystemObject")
Set Seq = fs.OpenTextFile("Sequence.tmp", 1)
Sequence = Array(Seq.readline, Seq.readline, Seq.readline, Seq.readline, Seq.readline, Seq.readline)
 
'Test de la date par rapport aux dates référents
 
Worksheets("LISTE").Activate
 
While Trim(Cells(j, 1).Value) <> ""
    Cells(j, 2).Value = 0
    If (Cells(j, 1).Value >= Sequence(i)) Then
        Cells(j, 2).Value = 1
        i = i + 1
    End If
    j = j + 1
Wend
 
End Sub

Cordialement,

[AlainTech]

Ben, dans Sequence(i), tu as du texte et, dans tes cellules, tu as des nombres (représentant des dates).
De plus, on ne peut pas de donner de code car on ne connaît pas le format des dates dans ton fichier texte.

Au départ, tu nous avais fait croire que tu comparais avec la date du jour

Code :

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

If c.Value > Date Then

Maintenant, tu nous montres que ta date vient d'un fichier texte.

Il serait bon de nous donner toute l'info en une fois, ça nous évitera de t'envoyer sur de mauvaises pistes.

[alsimbad]

oops, dans mon explication, j'avais pas capté que date = date actuelle

Code :

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

1
2
j'avais dis
If c.Value > Date Then ' ici, tu ne lui dis pas ce qu'est ce date

et effectivement comme le dis alain tech c'est la date du jour. désolé. mais bon à la fois, c'étais incongru dans ce code.

[Masmeta]

Désolé je ne savais pas que Date était un mot réservé.

Le fonctionnement est correcte avec ceci :

Code :

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

 If (Cells(j, 1).Value > CDate(Sequence(i))) Then

Merci pour votre aide