Discussion :

[Ardiden31]

Bonjour tout le monde,
Je ne sais pas si mon titre est assez claire. En fait, je dispose d'un code_cal et de la quantité à renvoyer de ce code. Par exemple code_cal 20, quantitée = 3 et je souhaite renvoyer 20 sur 3 lignes d'une colonne (ici colonneJ).
J'ai commencé à produire un bout de macro mais elle ne renvoie pas les données sur toutes les lignes.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Cal()
 
    Dim i As Integer
    Dim DerLigne As Long
 
    DerLig = Sheets("Cal").UsedRange.Rows.Count
 
    For i = 2 To DerLig Step 1
        If Sheets("Cal").Range("H" & i) = "PAT" Then
 
            If Sheets("Cal").Range("G" & i) > 0 Then
 
            Sheets("Cal").Range("J" & i) = Sheets("Cal").Range("F" & i)
            Exit For
 
            End If
        End If
 
    Next i
End Sub

Merci à vous