Bonjour,

J'ai fais le code ci dessous pour synthétiser une liste de matériel.
Sur la feuille "liste de matériel" j'indique une quantité devant la désignation souhaité.
Le but est de récupérer sur la feuille "FT" une synthèse de la liste. Simplement la qté et la désignation des matériels pour lesquels une quantité à été indiquée.
Le code recopie les désignations et quantités <>""
Mon problème est que le "Offset(i)" place la désignation et la qté sur le même n° de ligne que dans la feuille "liste de matériel".
J'obtiens une liste avec des lignes vides.
Hors j'aimerai que les lignes à reporter se succèdent l'une en dessous des autres.

Il y a un certainement un truc du genre n=n+1 à faire mais je bute sur ce point.

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
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_Activate()
 
 
'recopier la liste de matériels
 
Application.ScreenUpdating = False
 
Dim i As Integer
 
 
 
For i = 1 To 50
 
 
 
If Sheets("Liste de matériels").Range("D2").Offset(i).Value <> "" Then
 
 
 
Sheets("FT").Range("A2").Offset(i).Value = Sheets("Liste de matériels").Range("D2").Offset(i).Value
Sheets("FT").Range("B2").Offset(i).Value = Sheets("Liste de matériels").Range("B2").Offset(i).Value
 
 
 
 
 
End If
 
 
Next i
 
End Sub