Discussion :

[jefe.k]

Bonjour j'ai une macro qui me permet
de récapituler des valeurs calculées sur une première feuille en supprimant les lignes vides.

Cette macro effectue un test sur 500 lignes des 9 premières colonnes.

ce que j'aimerai faire c'est qu'une fois le test effectué sur les 500 lignes des 9 premières colonnes (donc que ma boucle est terminée) ; il s'effectue de nouveau mais cette fois ci sur les colonnes 11 à 19...puis de 21 à 29...puis de 31 à 39 et ainsi de suite en décalant à chaque fois le test de 10 colonnes

Voila le code source que j'utilise :

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
 
sub recap()
dim i as integer
dim compteur as integer
dim test as variant
 
test = ""
compteur = 5 
 
for i = 6 to 500 
test = worksheets("feuil1").cells(i,1).value
if test <> "" then
compteur = compteur + 1
worksheets("récap").cells(compteur,1).value = worksheets("feuil1").cells(i,1).value 
worksheets("récap").cells(compteur,2).value = worksheets("feuil1").cells(i,2).value 
worksheets("récap").cells(compteur,3).value = worksheets("feuil1").cells(i,3).value
worksheets("récap").cells(compteur,4).value = worksheets("feuil1").cells(i,4).value
worksheets("récap").cells(compteur,5).value = worksheets("feuil1").cells(i,5).value
worksheets("récap").cells(compteur,6).value = worksheets("feuil1").cells(i,6).value 
worksheets("récap").cells(compteur,7).value = worksheets("feuil1").cells(i,7).value 
worksheets("récap").cells(compteur,8).value = worksheets("feuil1").cells(i,8).value 
worksheets("récap").cells(compteur,9).value = worksheets("feuil1").cells(i,9).value
 
end if 
next i 
 
end sub

j'ai essayé quelque petit truc sans grande réussite,
un petit conseil et coup de main me serai fort utile pour pouvoir terminer ma macro. Merci à quiconque prendra le temps de se pencher sur mon problème
sincère salutations,

[cedric59dk]

Tu peux toujours essayer ceci :

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
31
32
33
 
sub recap()
 
dim i as integer
dim j as integer
dim indice as integer
dim compteur as integer
dim test as variant
 
	test = ""
	compteur = 5
	indice = 0
 
		for j = 1 to nb_de_fois_que_tu_souhaite_le_faire 
  			for i = 6 to 500 
  			test = worksheets("feuil1").cells(i,1 + ( indice * 10 )).value
    				if test <> "" then
					compteur = compteur + 1
					worksheets("récap").cells(compteur,1 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,1).value 
					worksheets("récap").cells(compteur,2 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,2).value 
					worksheets("récap").cells(compteur,3 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,3).value
					worksheets("récap").cells(compteur,4 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,4).value
					worksheets("récap").cells(compteur,5 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,5).value
					worksheets("récap").cells(compteur,6 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,6).value 
					worksheets("récap").cells(compteur,7 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,7).value 
					worksheets("récap").cells(compteur,8 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,8).value 
					worksheets("récap").cells(compteur,9 + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,9).value
				end if 
			next i
		indice = indice + 1
		next j
 
end sub

mais je ne te promet rien !
Tiens moi au courant.
Bon courage !!!

[cwain]

Bonjour,

Bon déjà en rajoutant une boucle de plus on gagne en clarté (dis moi si ça marche), et du coup si tu veux tu changes la valeur max de j en le nombre de colonnes que tu veux (sauf si tu tiens à le faire 10 par 10)

Code :

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

1
2
3
4
5
6
7
8
9
For i = 6 To 500
    test = Worksheets("feuil1").Cells(i, 1).Value
    If test <> "" Then
        compteur = compteur + 1
        For j = 1 To 9
            Worksheets("récap").Cells(compteur, j).Value = Worksheets("feuil1").Cells(i, j).Value
        Next
    End If
Next

Cwain

Argh trop tard !

[cwain]

Bon, vu que je m'étais arrêté en chemin, je poursuis l'effort, voilà ce que je trouve (sans tester)

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
Dim NombreDeFoisQueTuVeux As Integer
NombreDeFoisQueTuVeux = 5
 
For k = 1 To NombreDeFoisQueTuVeux
    For i = 6 To 500
        test = Worksheets("feuil1").Cells(i, 1).Value
        If test <> "" Then
            compteur = compteur + 1
            For j = 1 To 9
                Worksheets("récap").Cells(compteur, j + (k - 1) * 10).Value _
                    = Worksheets("feuil1").Cells(i, j + (k - 1) * 10).Value
            Next
        End If
    Next
Next

[jefe.k]

Merci à vous deux en compilant les informations ma source devient :

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
sub recap()
dim h as integer
dim i as integer
dim j as integer
dim indice as integer
dim compteur as integer
dim test as variant
 
	test = ""
	compteur = 5
	indice = 0
 
for j = 1 to 24 
for i = 6 to 500 
test = worksheets("feuil1").cells(i,1 + ( indice * 10 )).value
if test <> "" then
compteur = compteur + 1
worksheets("récap").cells(compteur,h + ( indice * 10 ) ).value = worksheets("feuil1").cells(i,h + ( indice * 10 ) ).value 
next h
end if
 
indice = indice + 1
compteur = 5 'pour que toutes les plages recopiées commence à la ligne 6
next j
 
end sub

mais les calculs engendré par cette macro sont assez long, qques minutes de reflexion pour excel.....mais bon ca marche
merci bcp

[cwain]

Résolu alors ?

[helios77]

tu parcours quand même environ 12000 cellules + le traitement de copie de l'une vers l'autre ==> normal que çà coit un peu long

Si tu veux optimiser ton code, faudrait l'empecherde boucler pour rien
Par exemple, si dans tes 500 lignes, il n 'y a que les 150 premières qui sont renseignés, faudrait sortir de ta boucle si tu déctectes que la cellule est vide