Report text si cellule non vide.

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.

Pièce jointe 278005

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

Code:

---

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