Boucle, générateur de boucles

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Boucle, générateur de boucles

loulou56

Bonjour à tous,

J'ai posé un poste sur un problème de boucle, le problème a changé, donc mes soucis aussi. Je reviens vers vous pour demander votre aide.

Voici ma macro,

Code :

Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("B24:B167" ).Select
Selection.Copy
Sheets("Feuil1" ).Select
Range("C6" ).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Ce que je voudrais faire maintenant, c'est créeé une boucle pour faire la même chose, sachant qu'une même sélection contient 144 données.

Merci de votre aide

Publicité

loulou56

ce qui pourrais m'aider:

comment selectionne ton une plage dynamique dans excel avec VBA?

Merci

olivthill

Pour sélectionner une plage dynamique, utiliser End(xlDown) ou End(xlRight). Par exemple :
Set rRange = Range([A1], [A1].End(xlDown))

Message cité 1 fois

loulou56

olivthill a écrit :

Pour sélectionner une plage dynamique, utiliser End(xlDown) ou End(xlRight). Par exemple :
Set rRange = Range([A1], [A1].End(xlDown))

Merci, j'ai essayé, mais maintenant j'ai un soucis avec la fonction copier et coller puis transposer, je comprends pas pourquoi, j'ai un message d'erreur, une idée?
Et il ne fait pas la boucle, est-elle mal programmée?

Code :

Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim i, j, x, y As Integer
Dim vRange As Range
x = 3
y = 3
i = 167
j = 24
While (i <> 186000)
Set vRange = Range(Cells(i, 2), Cells(j, 2))
' Range(Cells(maligne, 5), Cells(maligne, macol))
vRange.Select
Selection.Copy
Sheets("Feuil1" ).Select
'Sheets(Feuil1).Cells(x, y)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
i = i + 144
j = j + 144
y = y + 1
Wend
End Sub

Merci de votre aide

Laoo

Bonjour
Je pense que ton pb est là:

i = 167
j = 24
tu sélectionnes ta zone de bas en haut, et XL, il aime pas! Il faut faire une sélection de haut en bas, et de gauche à droite.

loulou56

C'est mieux, mais il ne veut pas faire la boucle, est-elle mauvaise?

Laoo

rectifie ça:
'Sheets(Feuil1).Cells(x, y)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

comme ça:
Sheets("Feuil1" ).Cells(x, y).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sinon ta sélection reste sur vRange.

Et il vaut mieux écrire:
While (i <= 186000)

car sinon, la boucle ne s'arrête QUE si différent de, mais pas si "supérieur à"

Message édité par Laoo le 03-02-2010 à 20:56:34

loulou56

Merci, le soucis c'est qu'il ne veut pas copier les 144 chiffres suivants, il ne cesse de copier la premiere selection!

Argh!

Merci

loulou56

Jje coirs comprendre d'où vient mon erreur,
il garde la premiere selection de Vrange, mlgré que les indices aient changé. Il y at-il moyen de réinitialisé Vrange à chaque fois,

Ou autre solution?

Merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Boucle, générateur de boucles

Sujets relatifs
VBA Fin de la fonction je reviens dans ma boucle ???	Problème de Boucle
une question sur une boucle dans se prog	[Résolu] boucle for ne retient que la dernière ligne du fichier
Générateur de moteur de recherche	jgraph et boucles éditables
Performance des boucles for avec la STL	Boucle for et pointeur
[VBA] Boucle sur variables	Couper une boucle avec des includes
Plus de sujets relatifs à : Boucle, générateur de boucles

Page générée en 0.070 secondes