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

Résolu/Fermé
Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 - 2 févr. 2021 à 15:08
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 2 févr. 2021 à 16:31
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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 729
Modifié le 2 févr. 2021 à 16:34
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à