Discussion :

[tienne1]

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.

[Krovax]

Bonjour ton problème est tout simple tu utilise Activate et comme souvent une petite négligence et tout part en sucette

Tu active une feuil si tu trouve une valeur tu en active une autre et tu ne réactive pas la première du coup tu boucle sur la deuxième. Pouir éviter ce genre d'erreur evite les activate et au passage on va eviter de passer par des variable vu que l'on en a pas besoin

pour connaitre la dernière ligne utilisé il y a des méthode plus pratique que daller jusqu'a 10000
http://www.developpez.net/forums/d45...gnees-feuille/

Tant que j'y suis au lieu de faire
si a alors
si b alors
on peut faire si a ET b alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub RotationRate()
Dim lig As long, j As long
j = 4
For lig = 4 To Sheets("TableIndic").Range("A65536").End(xlUp).Row
If Not IsEmpty(Sheets("TableIndic").Cells(lig, 22)) and Sheets("TableIndic").Cells(lig, 22).Value < 0.1 Then
Sheets("summary").Cells(j, 5) = Sheets("TableIndic").Cells(lig, 22)
Sheets("summary").Cells(j, 4)=Sheets("TableIndic").Cells(lig, 4)
j = j + 1
 
End If
Next lig
End Sub

[tienne1]

Ok, merci krovax, ca marche.
en effet, la syntaxe est bien plus simple.