Une boucle horizontale à décaler sur des colonnes

Version imprimable

1 pièce(s) jointe(s)

bonjour
je suis nouveau et débutant en vba, j'ai essayé de créer une macro avec une boucle horizontal qui fonctionne très bien sur les 4 premières colonnes, par contre je ne sais pas comment faire pour la décaler de 4 colonnes afin quelle s'exécute de nouveau.
merci de votre aide par avance

si joint la macro, et le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub macro1()
Dim ligne As String
Dim ligne1 As String
Dim col As String
 
ligne = 7
ligne1 = 5
col = 2
 
'Do While Cells(ligne1, col + 2) <> "23"
 
Do While Cells(ligne, 3) <> "15"
 
 
If Cells(ligne, 3) = "1" Then
     With Cells(ligne, col + 3)
    .Formula = "=VLOOKUP(R3C[-1],'feuille inventaire'!R3C1:r100c4,4,FALSE)"
    .Value = .Value
    End With
 Cells(ligne, col + 5) = Cells(ligne, col + 2) + Cells(ligne, col + 3) - Cells(ligne, col + 4)
Else
 
If Cells(ligne, 3) > "1" Then
 
Cells(ligne, col + 3) = Cells(ligne - 1, col + 5)
Cells(ligne, col + 5) = Cells(ligne, col + 2) + Cells(ligne, col + 3) - Cells(ligne, col + 4)
End If
End If
ligne = ligne + 1
Loop
'col = col + 4
'Loop
 
End Sub

10/04/2014, 11h05
Menhir

Ca dépend de ce que tu veux faire exactement.

Est-ce que tu veux que tes tests se fassent toujours sur la colonne 3 ou qu'ils se fasse sur la troisième colonne de ton groupe de 4 colonnes ?

Tu veux faire des sauts de 4 colonnes mais jusqu'où ? Je veux dire, quelle est la condition qui est supposée arrêter la boucle ?

Ce que tu as mis en commentaire pourrait marcher.
Peut-être que ton erreur vient du placement de "ligne = 7" que tu aurais du placer entre les deux "Do While" pour que cette valeur soit réinitialisée.
10/04/2014, 20h36
Philippe87420

une boucle horizontale à décaler sur des colonnes

bonsoir Menhir,

merci pour ton aide

je souhaite mettre à jour la E et G sur les 14 lignes , puis une fois les 14 lignes à jour je souhaite passer i et k soit +4 colonnes par rapport E et G ainsi de suite...

donc si tu as une solution je suis preneur

cordialement

Philippe
11/04/2014, 08h49
Menhir

Citation:

Envoyé par Philippe87420

donc si tu as une solution je suis preneur

Bin... est-ce que, déjà, tu as essayé celle que je t'ai proposée ?
11/04/2014, 17h01
Philippe87420

bonjour Menhir,

ok ça marche cette fois, je n'avait activer l'autre loop

merci pour ton aide