Bonjour,
Je suis nouveau en VBA pour excel.
J'ai un code qui marche en vba access, sur une table.
Ce code permet de parcourir toute la table afin de faire des comptage.
J'aimerais faire la même chose avec excel.

voici le code en vba access:
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
Do Until rsAn.EOF 
    annee = rsAn.Fields(0)
    Debug.Print "Début Année : " & rsAn.Fields(0)
    sqlA = "SELECT centre, annee FROM Ventes GROUP BY centre, annee HAVING annee =" & annee
    Set rsAc = db.OpenRecordset(sqlA, dbOpenDynaset) ' filtre au niveau année
 
    If rsAc.RecordCount > 0 Then
        Do Until rsAc.EOF
		centre = rsAc.Fields(0)
			sqlB="SELECT vente,centre, annee FROM Ventes GROUP BY vente, centre, annee HAVING annee =" & annee
			sqlB= sqlB & " AND centre='" & centre & "'"
 
			Set rsBc = db.OpenRecordset(sqlB, dbOpenDynaset) ' filtre au niveau année  et centre
			If rsBc.RecordCount > 0 then
				Do Until rsBc.EOF 
					Traitement ' les traitements sur les données filtrées
				rsBc.MoveNext
				DoEvents
				Loop
			End If
		rsAc.MoveNext
		DoEvents
		Loop
 
	End If
rsAn.MoveNext
DoEvents
Loop
Quel est l'équivalent pour excel sans passer par un recordset?
Merci d'avance