Obtenir une LISTE SI autre colonne non vide

Bonjour,

merci pour ce forum génial qui m'aide beaucoup !

Voila, je voudrais obtenir une liste lorsqu'une case d'une colonne précise est non vide. Je voudrais la liste des références qu'il faut produire lorsque il y a un chiffre d'ecrit dans la colonne "semaine 1" par exemple. En gros, une liste des références qu'il faut produire sans avoir a tirer une formule sur 1000 lignes. Que cela sorte une liste de non-vide.

Voici un exemple...

Merci a vous !!!

Bonjour,

j'ai mit le résultat en colonne A

à tester,

Sub transfert()
Dim LastRw As Long, lig1 As Integer, lignx As Long, col1 As Integer, colx, i As Integer, y As Long
Dim plg As Range
Set plg = Range("Tableau1")

Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
lig1 = plg.Rows(1).Row - 1  '5
lignx = plg.Rows(plg.Rows.Count).Row '11
col1 = plg.Columns(1).Column '3
colx = plg.Columns(plg.Columns.Count).Column  '7

 For i = col1 + 1 To colx
  LastRw = Cells(Rows.Count, 1).End(xlUp).Row + 1
  Cells(LastRw, 1) = Cells(lig1, i)
   For y = lig1 + 1 To lignx
     LastRw = Cells(Rows.Count, 1).End(xlUp).Row + 1
     If Cells(y, i) = 1 Then
      Cells(LastRw, 1) = Cells(y, col1)
     End If
   Next y
 Next i

End Sub

Bonjour,

Je teste ca quand je repars au travail lundi !!

Je vous dit cela des que possible

Bonjour

cela marche en effet mais c'est tres long et je met peut etre 45s ou 1 min rien que pour un petit tableau ! Mais ca marche ! je suis passé par cette formule finalement :

=SI(LIGNES('[s23'!$2:12)<=NB.SI(!Tableau27[S22+40];"");INDEX('Tableau27[des];PETITE.VALEUR(SITableau27[S22+40]<>"";LIGNE(INDIRECT("1:"&LIGNES('Tableau27[des]))));LIGNES('s23'!$2:12)));"")

merci a vous de votre aide !