[VBA/Excel] Boucler sur les colonnes

Version imprimable

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:

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,

Tu peux toujours essayer ceci :

Code:

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 !!!

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:

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 !

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

Code:

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

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

Code:

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
:king:

21/02/2007, 17h31
cwain

Résolu alors ? :mrgreen:
22/02/2007, 10h45
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
22/02/2007, 11h33
jefe.k

ce qu'il y a c'est qu'il peut y avoir quelque ligne vide et a nouveau quelque ligne remplies...etc etc....donc je pense pas que cela soit possible de sortir de la boucle...

a moins que je ne me trompe je pense que mon problème est résolu, meme si un peu lent
22/02/2007, 11h37
helios77

effectivement si des lignes vides peuvent venir d'intercaler tu ne peux rien faire pour optimiser ta boucle
22/02/2007, 12h03
cwain
Si tu as une colonne qui est remplie si et seulement si la ligne est à traiter, on peut imaginer un premier test qui part de ta ligne du bas (ligne 500), vers le haut pour trouver la dernière ligne remplie, avec une commande dans ce style, en admettant que la colonne "test" soit la première
Code:

1 2 dim DerniereLigne as Integer DerniereLigne = Range("A500").End(xlUp).Row
pour trouver le n° de la dernière ligne). Ensuite tu lance ta boucle de la ligne 1 à ta dernière ligne réelle

Code:

for i = 6 to DerniereLigne

(bon ok, si c'est 495, tu n'as peut-être pas avantage à modifier ton code :mouarf: )
ou encore plus simplement :

Code:

for i= 6 to Range("A500").End(xlUp).Row
22/02/2007, 14h10
jefe.k

je sais pas si cela peut fonctionner correctement car je travail par plage de cellule et pas par ligne entière.

par exemple la ligne 12 de ma première plage (colonne 1 à 9) peut etre remplie tandis que la ligne 12 de ma plage numéro deux (colonne 11 à 19) peut etre vide et ainsi de suite...

je me tate à créer 24 boutons pour lancer la macro associée à chaque plage (24) a traiter plutot que de créer une seule et unique macro qui traite toutes les plages d'un seul coup...

quel est votre avis la dessus ?
22/02/2007, 14h19
cwain

Bon déjà pour la solution 24 boutons, je vote pas pour :mrgreen:
Je ferais perso une petite userform (accessible par un seul bouton) ou je peux sélectionner sur quelles colonnes je veux lancer le traitement. Après, comment, à toi de voir, je pense que je prendrai une listbox
22/02/2007, 14h32
jefe.k

arg... lol je suis encore trop novice en vba pour ca du moins je crois...
je me suis pas encore penché sur les menu déroulant
et puis de toute manières meme si je fais une liste déroulante j'aurai tjs mes 24 sources a recopier non ?
22/02/2007, 14h59
helios77

Non
le source resterait le même sauf que tu n'aurais plus une boucle de 1 à 24

Ton source serait une simple copie de plage vers une autre, j qui était l'indice d'incrémetantion deviendrait un paramètre

En fonction du hcoix de la liste déroulante, j pourrait être égal à 1, 2 3 ou .....24

Ainsi; les traitement seraient instantané car tu travaillerais uniquement sur ce que tu as modifié

Tu peux aussi imaginé un choix qui mettrait à jour les 24
Le principe est le même sauf que la fonction paramètre n'aurait plus un seul parametre mais 2 (la borne min et la borne max)

==> si tu fais le choix des 24 ==> parametre1 = 1 et parametre2 = 24
==> si tu fais le choix du 4 uniquement =+> parametre1 = 4 et parametre2 = 4

En faisant ainsi, ot,n code ne bouge absolument pas si ce n'est cette ligne :
for j = 1 to 24 qui devient for j = parametre1 to parametre2
22/02/2007, 15h31
jefe.k

je visualise bien tout ce que tu veut me dire
maintenant reste juste a trouver comme faire cette liste déroulante
je m'y suis encore jamais penché....
22/02/2007, 15h37
tangjuncn

Il n'est pas plus rapide de faire un filtre des lignes vides et après coller directement range dans le variant?

J'ai un bout de code comme ça pour éliminer les doublons, ça peut peut-être te servir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    'elimination des doublons
    Sheets("FOREX").Select
    Cells.Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range("B2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
 
    For i = Range("A1").End(xlDown).Row To 3 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value And Cells(i, 2).Value = Cells(i - 1, 2).Value Then
            Rows(i & ":" & i).Select
            Selection.Delete Shift:=xlUp
        End If
    Next i

22/02/2007, 15h43
helios77

si t uveux aps faire de liste déroulante, tu te conscares une cellule dans laquelle tu mets manuellement1 ou 2 ou 3 ou ............. ou 24
A cote de cette cellule, tu mets un petit bouton qui va lancer ta macro
Ta macro regarderas ce 'qu'il y a dans la cellule pour parametrer ta boucle (qui au final n'en ser plus une)
23/02/2007, 08h42
jefe.k

:salut:

effectivement suffisait d'y penser
j'ai testé,
les deux petites cases à remplir me permettent de modifier la macro sans avoir à la recopier 24 fois....

ca marche bien et c bcp plus rapide faire plage par plage que les 24 d'un coup merci pour l'aide.

a+