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

Résolu
Dreampower75 Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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 :) :) :)

A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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