Discussion :

[thesus_size]

Bonjour,

je bloque sur un problème que je pense être plus arithmétique qu'informatique sur mon projet VBA. Je crois que je suis pas loin de la réponse, mais j'ai besoin d'un petit coup de pouce pour arrêter de m'arracher les cheveux.

Mon programme génère un nombre X de tableaux sur la même feuille. Ces tableaux doivent être obligatoirement séparés par une ligne vide. Photo ci-dessous pour l'illustration:


Mon but est d'arriver à remplir la deuxième ligne du tableau avec des nombre allant de 0 à Y, incrémentés de 500 à chaque fois. Une photo du résultat que je devrais avoir:


Avec deux boucles l'une dans l'autre, j'arrive à passer en revue chacune des cases qui m'intéresse, pour y appliquer la méthode .Value. Cependant, si j'arrive bien à incrémenter comme il faut la première ligne, je bloque sur la manière de remplir les suivantes (soit les lignes 11, 17, 23 et 29) pour que les valeurs des cases suivent les valeurs de la ligne précédente.

Voici le bout de code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For y = 1 To nbtableau
Ajout = y - 1
    For i = 0 To 15
        Cells(nbtableau * y + Ajout, i + 3).Value = i * 500
    Next
Next

Merci d'avance et joyeux noël

[Thumb down]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
For L = 0 To 100 Step 6
    With ActiveSheet
        If L > 0 Then .Range("C5").Offset(L) = .Range("Q5").Offset(L - 6) + 500 Else .Range("C5").Offset(L) = 0
        .Range(.Cells(L + 5, "D"), .Cells(L + 5, "Q")).FormulaR1C1 = "=RC[-1]+500"
        .Range(.Cells(L + 5, "D"), .Cells(L + 5, "Q")).Value = .Range(.Cells(L + 5, "D"), .Cells(L + 5, "Q")).Value
    End With
Next
End Sub

[thesus_size]

Merci, je n'avais pas encore eu l'occasion d'utiliser If Else, c'est un bon moyen de m'y mettre.
Bonne soirée

[tototiti2008]

Bonsoir,

D'autre pistes : une facile à relire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Lig As Long, Col As Long, Valo As Long
Valo = 0
For Lig = 5 To 29 Step 6
    For Col = 3 To 18
        Cells(Lig, Col).Value = Valo
        Valo = Valo + 500
    Next Col
Next Lig

une autre plus cryptique, parmi d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Lig As Long, Col As Long, Valo As Long, i As Long
Valo = 0
For i = 1 To 80
    Lig = ((i - 1) \ 16) * 6 + 5
    Col = (i - 1) Mod 16 + 3
    Cells(Lig, Col).Value = Valo
    Valo = Valo + 500
Next i

[Thumb down]

Bonjour,

(soit les lignes 11, 17, 23 et 29)

5+6=11; 11+6=17; 17+6=23; 23+6=29.

For L=5 to finTableau step 6 '(5,11,23,29)
Tu reportes la valeur de (Q?-6) +500 à B?
Ensuite tu appliques la la formule "=RC[-1]+500" à la plage C?:Q? Excel est plus rapide que VBA!

range(cells(L,"C"),cells(L,"Q")).formular1c1="=RC[-1]+500"