XL 2021 Exploitation d'une liste filtrée

[pierrelcq]

Bonjour à tous,
Je travaille sur un fichier au boulot pour me permettre d'automatiser une partie de mon ordonnancement.

J'utilise un filtre (sur la feuille RT6**** france) pour ejecter les cellules vide et me retrouver uniquement avec les références correspondantes à ma recherchev.

J'ai ensuite envie d'exploiter ces références sur la feuille Programme RT6****
Mais le problème, c'est ici :
En A7, j'ai une formule qui vient copier la cellule de la feuille A7 RT6**** france, mais evidemment c'est une cellule vide donc cela me copie une cellule vide et cela me laisse un geant espace au niveau de mon programme, alors que je souhaite que tout soit resérré.

Je dois refaire un nouveau filtre sur cette feuille ou il y a une autre solution selon vous?

Merci bien pour votre aide

Pierre.

 

[sylvanu]

Bonjour Pierrelcq,
Un essai en PJ avec :

Sub Worksheet_Activate()
Dim Ligne%, L%, DL%
Application.ScreenUpdating = False
Ligne = 7
With Sheets("RT6000 FRANCE")
    DL = .Range("A65500").End(xlUp).Row
    [A7:D21].ClearContents
    For L = 7 To DL
        If .Cells(L, 1) <> "" Then
            Cells(Ligne, 1) = .Cells(L, 1)
            Cells(Ligne, 2) = .Cells(L, "D") & " x " & .Cells(L, "F")
            Ligne = Ligne + 1
        End If
    Next L
End With
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille "Programme RT6000"

 

[pierrelcq]

Merci Beaucoup Sylvanu, je vais pouvoir transposer la formule à mes besoins. Très belle journée