N Nashou XLDnaute Junior 18 Avril 2011 #1 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 Cliquez pour agrandir... Il doit y avoir un truc que je ne pige pas .... Si quelqu'un pouvait me dépanner. Merci à vous tous ! Pièces jointes Boucle rangement.xlsm 19.3 KB · Affichages: 47 Boucle rangement.xlsm 19.3 KB · Affichages: 49 Boucle rangement.xlsm 19.3 KB · Affichages: 47
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 Cliquez pour agrandir... Il doit y avoir un truc que je ne pige pas .... Si quelqu'un pouvait me dépanner. Merci à vous tous !
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
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 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
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 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
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+
N Nashou XLDnaute Junior 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 édition: 18 Avril 2011 Vote positif 0 Vote négatif
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 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
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
N Nashou XLDnaute Junior 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
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...
N Nashou XLDnaute Junior 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
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 !
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