bonjour,
Je suis novice dans la programmation en vba sur excel.
La situation est la suivante: j'ai 2 feuilles dans un meme classeur excel. L'une, nommee A constitue une feuille synthese et l'autre, nommee B, contient toutes les valeurs et les calculs. La feuille B contient 2 colonnes, l'une avec des codes articles et l'autres avec un taux de stock. J'aimerais afficher sur ma feuille de synthese les codes des articles qui sont a un niveau tres faible, ainsi que ce niveau.
Voici le code que j'ai commence:

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
Sub RotationRate()
 
Dim lig As Integer, j As Integer, Val As Integer, Art As Integer
j = 4
Sheets("TableIndic").Activate
For lig = 4 To 10000
If Not IsEmpty(Cells(lig, 22)) Then
    If Cells(lig, 22).Value < 0.1 Then
    Val = Cells(lig, 22)
    Art = Cells(lig, 4)
    Sheets("summary").Activate
    ActiveCell.Cells(j, 5).Value = Val
    ActiveCell.Cells(j, 4).Value = Art
    j = j + 1
End If
End If
Next lig
End Sub
Ce code m'affiche simplement qu'une valeurs, et pas dans la cellule indiquee. Je ne comprend pas.
Je vous remercie par avance pour votre aide precieuse.