Bonjour à tous!
J'ai créé une macro qui me permet de donner une valeur à une cellule en fonction de sa voisine :
J'ai plusieurs problèmes :
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
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
Partager