[Resolu] Boucles toujours les boucles ou pas

[Bearn 64]

Bonjour le forum,

Je peste car je n'arrive pas a boucler.

Dans Feuil1 j'ai des lignes et colonnes que je souhaite ventiler dans une autre feuille par Bloc de trois blocs.
Ok pour le premier bloc de trois mais après KO.
Le but étant d'avoir autant de bloc que de ligne et s’arrêter quand il n'y a plus de ligne dans feuil1.

Voir fichier joint.

merci de votre aide avec un peu de commentaire dans votre solution.


Bearn 64

 

[phlaurent55]

Re : Boucles toujours les boucles ou pas

Bonjour Bearn,

Sub ecrit()
Dim DerLig_max As Integer
Lig = 1
Ligne = 2
Colonne = 1
passe = 0
NomPrenom = ""
Produits = ""
Categorie = ""
Taille = ""
Nbc = ""


Sheets("Feuil1").Select
DerLig = [A5000].End(xlUp).Row
For Lig = 2 To DerLig Step 3
For passe = 0 To 9
    Sheets("Feuil1").Select
    NomPrenom = Cells(Ligne, Colonne)
    Produits = Cells(Ligne, Colonne + 1)
    Categorie = Cells(Ligne, Colonne + 2)
    Taille = Cells(Ligne, Colonne + 4)
    Nbc = Cells(Ligne, Colonne + 9)
    
    Sheets("Feuil2").Select
    Cells(Lig, Colonne + passe + 1) = NomPrenom
    Cells(Lig + 1, Colonne + passe + 1) = Produits
    Cells(Lig + 2, Colonne + passe) = Categorie
    Resultat = Taille & "     " & Nbc
    Cells(Lig + 2, Colonne + passe + 2) = Resultat
    passe = passe + 3
    Ligne = Ligne + 1

Next passe
Next Lig
End Sub

à+
Philippe

 

[Dranreb]

Re : Boucles toujours les boucles ou pas

Bonjour.

Autre écriture :

Sub Écrit()
Dim Te(), Le&, Ce&, Ts(), Ls&, Cs&
Te = Feuil1.[A2].Resize(Feuil1.[A5000].End(xlUp).Row - 1, 10).Value
ReDim Ts(1 To ((UBound(Te, 1) + 2) \ 3) * 3, 1 To 11)
Ls = -3: Cs = -4
For Le = 1 To UBound(Te, 1)
   Cs = (Cs + 4) Mod 12: If Cs = 0 Then Ls = Ls + 3
   Ts(Ls + 1, Cs + 2) = Te(Le, 1)
   Ts(Ls + 2, Cs + 2) = Te(Le, 2)
   Ts(Ls + 3, Cs + 1) = Te(Le, 3)
   Ts(Ls + 3, Cs + 3) = Te(Le, 5) & "     " & Te(Le, 10): Next Le
Feuil2.[A1:K5000].ClearContents
Feuil2.[A1].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value = Ts
End Sub

 

[Bearn 64]

Boucles toujours les boucles ou pas

Re: Bonjour le forum, phlaurent55 et Dranreb


merci de vos réponses très rapides.

phlaurent55 écrit a la deuxième ligne de la Feuil2 au lieu de la ligne 1.


Dranreb très bien et rapide il me reste a étudier ton code car un peu trouble pour moi.

Un petit problème quand je copie ta macro dans mon fichier excel 2007 et si je change le nom des feuilles il me met erreur 424.
Le nom des feuilles est-il limite car j'utilise un nom de 10 caractères pour la Feuil1 et 14 pour Feuil2.


Bearn 64

 

[Bearn 64]

Re : Boucles toujours les boucles ou pas

Re: Bonjour le forum, phlaurent55 et Dranreb

Apres essais :
- phlaurent modifie ligne d’écriture ok ajout format cellule pas optimiser fait avec enregistreur de macro. Mais le résultat est bon.

-Dranreb quand j'ai changer les nom des feuilles sources et destination la macro plante ????

merci de vos expertises.

Bearn 64

 

[Dranreb]

Re : Boucles toujours les boucles ou pas

Bonjour

Si seul les noms Excel des feuilles ont changé, peut être n'y avait-il pas à changer pour autant les noms des constantes de type Worksheet qui les représentent ? À vérifier dans l'explorateur de projet, rubrique Microsoft Excel Objets. À droite des constantes VBA, le nom Excel de la feuille est rappelé entre parenthèses.

 

[Bearn 64]

Re : Boucles toujours les boucles ou pas

Bonjour le forum, Dranreb.

Effectivement sur le fichier joint cela fonctionne, je vais le mettre en application dans mon fichier excel global.

Il me reste a faire la mise en forme des cellules surtout l'optimiser.

Merci de ton intervention efficace.


Bearn64