Discussion :

[SeniorBILL]

Bonjour à tous, j'ai un problème concernant une macro qui me permettrait de trouver, avec vlookup, des données (dates) avec un ''range'' qui serait variable. Mais comme je dois utiliser quelque chose comme ''.Cells(A,B)='' car je souhaite que la macro descende de A = 5 jusqu'à A = 600, mais je veux que dès qu'elle a fini cela change de colonne à B+2. Toutefois, grace à mon incompétence , la macro me renvoit les réponses en diagonale!! Bien entendu je comprend pourquoi puisque à .Cells(A,B) si l'on fait A = A+1 et B = B+1... Mais y-a-t-il un moyen d'y aller par etape?? Merci d'avance,

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
With ActiveWorkbook.Sheets("Board")
catCol = 4
y = Application.WorksheetFunction.CountA(.Range(.Cells(5, catCol), .Cells(5, catCol).End(Direction:=xlDown)))
W = Application.WorksheetFunction.CountA(.Range(.Cells(5, catCol), .Cells(5, catCol).End(Direction:=xlDown)))
 
With ActiveWorkbook.Sheets("Database")
A = 5
AA = 5
C = Application.WorksheetFunction.CountA(.Range(.Cells(5, 1), .Cells(5, 1).End(Direction:=xlDown)))
B = 1
D = 1
Set Sheet = ActiveWorkbook.Sheets("Database")
For x = 1 To C
.Cells(A, (y * 4) + 2) = Application.WorksheetFunction.VLookup(.Cells(A, D), Range(.Cells(A, D), Cells(C, D + 1)), "2", "false") / 2
.Cells(A, (y * 4) + 5) = Application.WorksheetFunction.VLookup(.Cells(A, D), Range(.Cells(A, D), Cells(C, D + 1)), "2", "false")
Next x
End
End With
End With
End Sub