Discussion :

[Flabd]

Bonjour,
Complètement débutante en VBA, après plusieurs recherches sur ce forum j’ai tenté ma première macro, mais sans succès.
Si vous voulez bien m’éclairer.

J’ai une matrice (ci-joint) où l’on retrouve pour chaque référence des quantités par date, exemple :

L/C	A 	      B    	C 	D	E
1	Ref A	      10      “”	5	15
2	Ref B	      “"      5		30	“”

Mon but est de renseigner pour chaque référence sur la deuxième feuille, la date (ligne2) où il y a inscrit la première valeur de la matrice (cellule non vide). (Ainsi que la date de la dernière valeur).
Pour avoir comme résultat :

L/C	A 		première qté 		dernièee qtés
1	Ref A		10			15
2	Ref B		5			30

J’ai commencé par essayé de dire que si la référence de la feuille 2, trouve son équivalent sur la feuille 1, alors elle doit agir.
Mais là déjà ça bloque.

Macro1.xlsx

[BENNASR]

Bonsoir à tous
Voila un code bricolé par un débutant qui normalement répond à tes besoins

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
Sub rechercherM()
' nétoyer feuille synthese
With Sheets("synthese")
.Select
Cells.Select
Selection.ClearContents
Sheets("synthese").Cells(1, 1).Resize(1, 3) = Array("Référence", "Première donnée", "dernière données")
End With
 
'copier
Dim i As Long
Dim k As Integer
k = 2
Application.ScreenUpdating = False
With Sheets("TCD CDES")
i = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To i
If .Cells(i, 1) <> "" Then
    Sheets("synthese").Range("A" & k).Value = .Cells(i, 1)
    A = .Cells(i, Cells.Columns.Count).End(xlToLeft).Column
    Sheets("synthese").Range("C" & k).Value = .Cells(1, A).Value
    Colonne = .Cells(i, 2).End(xlToRight).Column
    If Colonne <> 16384 Then
    Sheets("synthese").Range("B" & k).Value = .Cells(1, Colonne).Value
    k = k + 1
    End If
    End If
Next i
End With
Application.ScreenUpdating = True
End Sub

Bonne Continuation