Discussion :

[chouki60]

Bonjour à tous!

J'ai créé une macro qui me permet de donner une valeur à une cellule en fonction de sa voisine :

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
For Each Wb In Application.Workbooks
    For Each Ws In Wb.Worksheets
        If Ws.Name = "Suivi" Then
 
        For i = 8 To 10000
            If Cells(i, 4) < "15/06/2008" Then
            Cells(i, 3) = "A"
                ElseIf Cells(i, 4) > "15/06/2008" And Cells(i, 4) < "15/06/2009" Then
                Cells(i, 3) = "B"
                    ElseIf Cells(i, 4) > "15/06/2009" And Cells(i, 4) < "15/06/2010" Then
                    Cells(i, 3) = "C"
                        ElseIf Cells(i, 4) > "15/06/2010" Then
                        Cells(i, 3) = "D"
 
 
            End If
        Next i
        End If
    Next Ws
Next Wb

J'ai plusieurs problèmes :

1) Tout d'abord, lorsque je met "For i = 8 to 10 000", j'ai une erreur "dépassement de capacité"..

2) Lorsque je réduis la boucle à 10 références, mon programme fonctionne pour les 3 premieres lectures, ensuite il ne compare plus les dates et rempli la colonne de A..

Quelqu'un a une idée?
Merci d'avance

Cordialement
Chouki

[amnorian]

Visiblement c'est un problème de configuration as tu lancer ce programme après un redemarrage de l'ordinateur ?

[casefayere]

Bonjour,
pour 10000 données à traiter, je te conseillerai de remplacer ta macro en traduisant en Vba la formule "SI", en la tirant vers le bas jusqu'à la dernière ligne et en remplaçant celle-ci par sa valeur, c'est à dire, en fin de macro :

Code :

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

1
2
3
With sheets("suivi")
   .range(.Cells(8, 3).Address,.Cells(10000, 3).Address) = .range(.Cells(8, 3).Address,.Cells(10000, 3).Address).value
End With

[Jean-Philippe André]

salut,

attention, si tu veux comparer des dates, il serait plus judicieux de passer par la bonne syntaxe des dates, avec les # avant et apres au lieu des guillemets

pour le depassement je propose de deja declarer ta variable i

[chouki60]

Bonjour et merci pour vos réponses,

J'ai déclaré ma variable i as Byte, j'ai mis mes dates entre #.. mais toujours le même probleme :

" Erreur d'execution '6' dépassement de capacité"..

J'ai essayé d'éteindre et de rédemarrer le PC mais ce problème est toujours là..

Une autre idée?

[Godzestla]

Et bien tu le dis toi-même, tu as déclaré ta valeur comme Byte, et l'aide en ligne () nous dit ceci :

Byte Data Type


Byte variables are stored as single, unsigned, 8-bit (1-byte) numbers ranging in value from 0–255.

The Byte data type is useful for containing binary data.

il est là ton dépassement de capacité.

Il te faut un integer (32767) ou un long.
Je te conseille un long.

[chouki60]

Merci beaucoup !

Je vais maintenant penser à l'aide en ligne