affichage d'une liste sans vide

[azaghar27]

Bonjour tout le monde,

la liste D29: D65 m'affiche les entreprises qui répondent aux critères C29 et C30. quand je choisis "Tous" dans la cellule C29, la liste D29: D65 m'affiche toutes les entreprises ayant un produit donné. y a t-il un moyen pour éliminer les 0 et trier les entreprises automatiquement sans qu'il y ait de vide entre les entreprises??
Merci beaucoup

 

[suistrop]

Re : affichage d'une liste sans vide

hello,

avec un macro que tu peux facilement modifier

Sub cartman()

'ici tu mets la feuille ou tu veux que cela se fasse
feuille = "Feuil3 (2)"

Sheets(feuille).Select
'ici tu met la cellule ou il y a la condition
produit = Cells(30, 3)
'ici tu met la premiere ligne x1 et la derniere ligne x2 de ton tableau
x1 = 7
x2 = 25
'idem avec les colonne
y1 = 3
y2 = 10
'ici tu met la ou tu veux que ca s affiche ligne et colonne
x_affichage = 29
y_affichage = 4

'début du traitement
For Z = y1 + 1 To y2
    If Cells(x1, Z) = produit Then
        For i = x1 + 1 To x2
            If Cells(i, Z) <> 0 Then
                Cells(x_affichage, y_affichage) = Cells(i, Z)
                x_affichage = x_affichage + 1
            End If
        Next i
    End If
Next Z
'fin traitement
End Sub