Création d'un tableau synthétique par la suppression des espaces

Résolu
Dreampower75 Messages postés 91 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

A partir d'un tableau de départ (ci-joint) qui comporte beaucoup de cellules vides, est-ce que je pourrai obtenir une Macro/ un programme VBA qui permette d'obtenir un tableau synthétique avec beaucoup moins de cellules vides ?
L'objectif est d'obtenir un tableau synthétique beaucoup plus lisible et facilement compréhensible

Ci-après le lien pour récupérer le tableau excel :
https://www.cjoint.com/c/KBcohoNzLCF

Ci-après, j'ai ajouté une capture d'écran pour illustrer mes propos

Merci d'avance :) :) :)

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    un exemple pour masquer les colonnes vides: 

    Option Explicit
Sub masquer()
Dim colonne As Byte
Application.ScreenUpdating = False
With Worksheets("Feuil1")
For colonne = 7 To 32 'boucle sur les colonnes 7 à 32 (F à AF)
    'masque (>1) valeurs contenues dans la colonne
    .Columns(colonne).Hidden = IIf(Application.WorksheetFunction.CountA(.Columns(colonne)) = 1, True, False)
Next colonne
End With
Application.ScreenUpdating = True
End Sub
Sub afficher()
    Columns("F:AF").EntireColumn.Hidden = False
End Sub


    Voilà

    0