Boucle for next écrire

[Nashou]

Bonsoir à tous,

Je n'arrive pas à faire écrire ma boucle (2 boucles) for next dans une feuille.

Ci-joint mon fichier

Et mon code :

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("B6:B20") = Cells(y, z)

Next z

Next y

Il doit y avoir un truc que je ne pige pas ....

Si quelqu'un pouvait me dépanner.
Merci à vous tous !

 

[phlaurent55]

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

 

[patsyl60]

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

 

[Hippolite]

Re : Boucle for next écrire

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

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+

 

[Nashou]

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

 

[Hippolite]

Re : Boucle for next écrire

Re,
J'ai modifié
A+

 

[phlaurent55]

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

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

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+

à+
Philippe

 

[Nashou]

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

 

[Nashou]

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

Merci !

 

[Hippolite]

Re : Boucle for next écrire

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