affichage d'une liste sans vide

azaghar27

XLDnaute Nouveau
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
 

Pièces jointes

  • azaghar.xls
    45 KB · Affichages: 49
  • azaghar.xls
    45 KB · Affichages: 50
  • azaghar.xls
    45 KB · Affichages: 48
Dernière édition:

suistrop

XLDnaute Impliqué
Re : affichage d'une liste sans vide

hello,

avec un macro que tu peux facilement modifier

Code:
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
 

Pièces jointes

  • azaghar_cartman.xls
    35.5 KB · Affichages: 53

Discussions similaires

Réponses
8
Affichages
635

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07