Boucle for next écrire

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Avril 2011

• #2

Re : Boucle for next écrire

Bonjour Nashou,

pourrais-tu REexpliquer ce que la macro doit faire concrètement
et surtout cette ligne
Range("B6:B20") = Cells(y, z)

à+
Philippe

 

Vote positif 0 Vote négatif

patsyl60

XLDnaute Occasionnel

• 18 Avril 2011

• #3

Re : Boucle for next écrire

Bonjour NASHOU,

Juste pour comprendre, Quelle est la finalité de tes boucles ???

Bonne soirée.

Patsyl60

Edit : bonsoir philippe, nos réponses se sont croisées...

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 18 Avril 2011

• #4

Re : Boucle for next écrire

Bonsoir à tous,
en l'absence de plus d'explication
est-ce cela ?

Code:

For z = 2 To Range("A65536").End(xlUp).Row
	For y = 2 To Range("IV1").End(xlToLeft).Column
		Range("B"& 5 + y + z) = Cells(z,y)
	Next y 
Next z

A+

 

Dernière édition: 18 Avril 2011

Vote positif 0 Vote négatif

N

Nashou

Guest

• 18 Avril 2011

• #5

Re : Boucle for next écrire

Excusez du peu d'information.
C'est une macro qui lit et écrit seulement.
Hippolite est tout prêt du but.

Ca lit le tableau d'abord en colonne puis ensuite en ligne et ça classe tout à la suite dans la colonne B.

Ci-joint le tableau sans exécuter la macro avec le résultat que ça doit produire

 

Pièces jointes

• Boucle rangement.xlsm

  19.4 KB · Affichages: 39
• Boucle rangement.xlsm

  19.4 KB · Affichages: 40
• Boucle rangement.xlsm

  19.4 KB · Affichages: 40

Dernière modification par un modérateur: 18 Avril 2011

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 18 Avril 2011

• #6

Re : Boucle for next écrire

Re,
J'ai modifié
A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Avril 2011

• #7

Re : Boucle for next écrire

Re,
@ Hippolite,
Après large consultation et en accord avec moi-même je te décerne le grade de DEVIN

Hippolite à dit:

Bonsoir à tous,
en l'absence de plus d'explication
est-ce cela ?

Code:

For z = 2 To Range("A65536").End(xlUp).Row
    For y = 2 To Range("IV1").End(xlToLeft).Column
        Range("B"& 5 + y + z) = Cells(z,y)
    Next y 
Next z

A+

Cliquez pour agrandir...

à+
Philippe

 

Vote positif 0 Vote négatif

N

Nashou

Guest

• 18 Avril 2011

• #8

Re : Boucle for next écrire

Après quelques recherches supplémentaires et un peu de réflexion, voici le code correspond à ma requête

a = 6
Dim y As Integer
Dim z As Integer

For y = 2 To Range("IV1").End(xlToLeft).Column
For z = 2 To Range("A65536").End(xlUp).Row


Range("B" & a) = Cells(z, y)
a = a + 1

Next z
Next y

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

N

Nashou

Guest

• 19 Avril 2011

• #9

Re : Boucle for next écrire

Bonjour,

Je me demandais... si une cellule ne contient pas de valeur et qu'avec ma macro, au lieu de ne rien mettre, je souhaite afficher un zéro. Comment puis-je l'inclure dans mon code ?

J'ai essayé ça mais ça ne fonctionne pas :

if cells(y,z)<>0 then
cells(y,z)=0
end if

Cliquez pour agrandir...

Merci !

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 19 Avril 2011

• #10

Re : Boucle for next écrire

Bonjour,
if cells(y,z) = "" then cells(y,z) = 0
A+

 

Vote positif 0 Vote négatif