[Résolu] remplir un tableau de ht en bas, colonne par colonne.

[Gilles52300]

Bonjour le forum,

Je viens de tomber sur un os avec le remplissage d'un tableau. tableau "range(A11 : D32")"
Je veux commencer à le remplir de ht en bas par la colonne A, et passer à la colonne B recommencer et ainsi de suite.

voici ou j'en suis. J'arrive bien à remplir mon tableau, le seul hic, c'est que je boucle (en toute logique) avec la même valeur. Si vous aviez une solution pour me sortir de cette boucle et inclure mes autres valeurs dans ce tableau, cela m'arrangerait.

    For i = 4 To Sheets("Carnet").Cells(Rows.Count, 1).End(xlUp)(2).Row
        If OptionButton1.Value = True Then
            If client = Sheets("Carnet").Range("B" & i) And nmois = Sheets("Carnet").Range("D" & i) Then
                For col = 1 To 4
                    For j = 11 To 32
                            Cells(j, col) = Sheets("Carnet").Range("A" & i)
                            nbre = nbre + 1
                    Next
                Next
            End If
        else
            If client = Sheets("Carnet").Range("B" & i) And nmois = Sheets("Carnet").Range("P" & i) Then
                j = j + 1
                Range("A" & j) = Sheets("Carnet").Range("A" & i)
                    If Sheets("Carnet").Range("E" & i).Font.ColorIndex = 6 Then
                        k = k + 1
                        Range("D" & k) = Sheets("Carnet").Range("E" & i)
                    End If
                nbre = nbre + 1
            End If
        'End If
   Next i

merci de votre aide,
Amicalement,
Gilles

 

[Dormeur74]

Re : remplir un tableau de ht en bas, colonne par colonne.

C'est le fichier complet avec la UserForm et le tableau qu'il faut fournir, car on ne peut rien faire sans.
Par exemple on ne sais pas où tu affectes une valeur à tes variables client et nmois.

 

[Gilles52300]

Re : remplir un tableau de ht en bas, colonne par colonne.

Bonjour le Forum,
Bonjour Dormeur,

Je pensais que ce bout de code suffisait. Je pose le fichier.
Le sujet se trouve dans User_facturation.

Merci de ton aide.
Amicalement
Gilles

 

[Gilles52300]

Re : remplir un tableau de ht en bas, colonne par colonne.

Résolu avec ce bout de code.

Le fichier n'est pas forcement utile toutes les fois.

For i = 4 To Sheets("Carnet").Cells(Rows.Count, 1).End(xlUp)(2).Row
If OptionButton1.Value = True Then
If client = Sheets("Carnet").Range("B" & i) And nmois = Sheets("Carnet").Range("D" & i) Then
nbre = nbre + 1
Cells(j, col) = Sheets("Carnet").Range("A" & i) '"Le " & Sheets("Carnet").Range("A" & i) & " reçu " & compt & " cylindres."
j = j + 1
If j = 32 Then
j = 7
col = col + 1
End If
End If
Else

Pourquoi chercher compliquer quand on peut faire simple!