Comment modifier la valeur d'une variable à chaque boucle Fermé

Question

Bonjour, 

J'ai réalisé une première boucle i qui effectue un certain nombre de traitements sur la ligne 1.
 (For i = x to y.... Next i)

Maintenant je souhaite reproduire le traitement de la ligne 1 sur toutes les autres lignes de ma plage avec une 2eme boucle j
(For j = x to z...Next j)

Sauf que lors de la boucle i, le sub récupère sa variable y en A1 qui détermine combien de fois le traitement doit être fait. Comment faire pour que la boucle j lors de son exécution récupère sa variable z d'abord en A1, puis en A2, puis en A3.... à chaque loop ? Comment déterminer la valeur de z ?

Des idées ?

yg_be · Answer

bonjour, 
pourquoi faire deux boucles, plutôt qu'en utiliser une pour toutes les lignes?
tiens, je ne vois pas la boucle qui va passer d'une ligne à l'autre.
peux-tu montrer ton code, cela nous permettra d'être plus précis.
pense à utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
à tout hasard:
Dim i As Long, x As Long
Dim uneligne As Range
For Each uneligne In ActiveSheet.UsedRange.Rows
    x = 1
    For i = x To uneligne.Cells(1, 1)
        ' ...
    Next i
Next uneligne

Serge · Answer

Merci de me revenir

1- deux boucles parce que la première et la seconde ont des rôles différents. La première opère un calcul et une mise en forme sur la ligne active, la deuxième répète la première boucle autant de fois qu'il n'y de lignes jusqu'à la dernière ligne non vide.

2- bah y'en a pas. Je débute en VBA et ça doit être une erreur. Peut on la corriger ?

3- bien sûr. Ci dessous

Sub Traitement()

    Dim i As Long, j As Long, Qt As Long, Nb As Integer
    
    ActiveCell.EntireRow.Select
    
'Cloner feuille des données, insérer X nouvelles lignes et changer couleur première ligne
    Sheets("Feuil1").Copy After:=Sheets(1)
             Qt = Int(Val(ActiveCell.Offset(0, 2).Value))
                  For j = 1 To Qt
                  For i = 1 To Qt - 1
            Selection.Copy
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Next i
    Selection.Font.Bold = False
            With Selection.Font
                .Color = -16776961
                .TintAndShade = 0
            End With
        
'Recopier X fois selection en G, L, K et J
                Cells(ActiveCell.Row, "G").Select
                Cells(ActiveCell.Row, "G") = Cells(ActiveCell.Row, "G") / Qt
                Selection.Copy
                For i = 1 To Qt - 1
                ActiveCell.Offset(1, 0).Range("A1").Select
                ActiveSheet.Paste
            Next i
    ActiveCell.Offset(-Qt + 1, 5).Select
    Cells(ActiveCell.Row, "L") = Cells(ActiveCell.Row, "L") / Qt
                Selection.Copy
                For i = 1 To Qt - 1
                ActiveCell.Offset(1, 0).Range("A1").Select
                ActiveSheet.Paste
            Next i
        
        ActiveCell.Offset(-Qt + 1, -1).Select
       Cells(ActiveCell.Row, "K") = Cells(ActiveCell.Row, "K") / Qt
                Selection.Copy
                For i = 1 To Qt - 1
                ActiveCell.Offset(1, 0).Range("A1").Select
                ActiveSheet.Paste
            Next i
        ActiveCell.Offset(-Qt + 1, -1).Select
       Cells(ActiveCell.Row, "J") = Cells(ActiveCell.Row, "J") / Qt
                Selection.Copy
                For i = 1 To Qt - 1
                ActiveCell.Offset(1, 0).Range("A1").Select
                ActiveSheet.Paste
            Next i
        
                 ActiveCell.Offset(1, 0).EntireRow.Select
                 Next j

End Sub

Remerciements

Comment modifier la valeur d'une variable à chaque boucle

2 réponses

Discussions similaires