Création d'un tableau synthétique par la suppression des espaces Résolu/Fermé

Question

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

cs_Le Pivert · Answer

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à

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

1 réponse

Discussions similaires