For each avec traitement verticale

PascalXLD

XLDnaute Barbatruc

• 23 Mai 2009

• #2

Re : For each avec traitement verticale

Bonjour

tu entends quoi par le traitement se fait en ligne ??

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 23 Mai 2009

• #3

Re : For each avec traitement verticale

la plage que je veux remplir fait 8lignes sur 12 colonne
je veux la remplir d'une liste de noms

mais le remplissage se faite de gauche a droite en commençant par la première ligne = traitement horizontale

mais je voulais que le remplissage se fait de haut en bas en commençant par la colonne de gauche= traitement verticale

🙂

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 23 Mai 2009

• #4

Re : For each avec traitement verticale

j'ai ce code qui marche mais j'ai l'impression que c'est plus long :

(affichage, events et calculs désactivés)

Code:

    For Y = 1 To 12
        For I = 1 To 8
            If Cells(I + 4, Y + 2).Interior.ColorIndex = 35 Then Cells(I + 4, Y + 2).Value = Sheets("table").Cells(ligne_nom + Z, col_nom).Value
            Z = Z + 1
        Next I
    Next Y

moi joli qu'un for each ...je trouve

 

Vote positif 0 Vote négatif

nolich

XLDnaute Occasionnel

• 23 Mai 2009

• #5

Re : For each avec traitement verticale

Bonsoir fifi et Pascal, bonsoir à toutes et à tous 🙂

fifi à dit:

j'ai ce code qui marche mais j'ai l'impression que c'est plus long :

(affichage, events et calculs désactivés)

Code:

    For Y = 1 To 12
        For I = 1 To 8
            If Cells(I + 4, Y + 2).Interior.ColorIndex = 35 Then Cells(I + 4, Y + 2).Value = Sheets("table").Cells(ligne_nom + Z, col_nom).Value
            Z = Z + 1
        Next I
    Next Y

moi joli qu'un for each ...je trouve

Cliquez pour agrandir...

Si ton affichage est désactivé, pourquoi vouloir un remplissage de ton tableau par colonne ???

@+

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 23 Mai 2009

• #6

Re : For each avec traitement verticale

la désactivation de l'affichage, des events et calculs n'a pas de rapport c'est juste pour accélérer le traitement, . le classeur fait 4Mo et il y a pas mal de formule et macro événementiels.


la liste de noms peut ne pas faire 96 cellules (8*12) , du coup je voulais que ma plage se remplisse de haut en bas et de gauche a droite pour faciliter la lecture et surtout l'utilisation de la plage.

mais il semble qu'il n'y ait pas d'option pour que le For each fasse le boulot dans le bon sens, enfin mon sens ^^.

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 23 Mai 2009

• #7

Re : For each avec traitement verticale

Bonsoir


Pourquoi de pas utiliser d'Array ?


Voici un exemple d'utilisation de tableau

Code:

Sub test()
Dim t(1 To 8, 1 To 12), i&, j&
For i = 1 To 8
    For j = 1 To 12
        t(i, j) = i * j
    Next
Next
[A1:L8] = t
End Sub

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Mai 2009

• #8

Re : For each avec traitement verticale

Re

Si vraimetn tu cherches la rapidité le plus rapide est de mettre ton résultat dans une variable tableau et ensuite de collet ton tableau dans ta feuille

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 24 Mai 2009

• #9

Re : For each avec traitement verticale

je vais essayer cela , je travaille très souvent avec des plages.
et le classeur s'allourdi depuis

merci 😀

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Mai 2009

• #10

Re : For each avec traitement verticale

re

si tu fais une petite recherche sur le forum tu trouveras un fil assez ancien où on s'était amusé à faire la macro la plus rapide et tu auras dedans des exemples de tableaux de variables utilisés et il n'y avait pas photo

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 24 Mai 2009

• #11

Re : For each avec traitement verticale

Salut,

si "Each" te plait, tu peux essayer :

Code:

For Col = 3 To 14
    For Each C In Range(Cells(5, Col), Cells(12, Col))
      If C.Interior.ColorIndex = 35 Then
        C.Value = Sheets("table").Cells(ligne_nom + Li, col_nom).Value
        Li = Li + 1
      End If
    Next
  Next

à toi de tester avec ton fichier pour la rapidité !

 

Vote positif 0 Vote négatif