Créer une ligne récapitulative des cellules non vides d'une autre ligne
Fermé
Mathfee0
-
19 mars 2021 à 00:04
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 19 mars 2021 à 11:50
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 19 mars 2021 à 11:50
A voir également:
- Créer une ligne récapitulative des cellules non vides d'une autre ligne
- Aller à la ligne dans une cellule excel - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Créer une liste déroulante excel - Guide
- Créer une adresse hotmail - Guide
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
728
19 mars 2021 à 11:50
19 mars 2021 à 11:50
Bonjour,
je te propose en vba de masquer les colonnes dont les cellules sont vide.
Faire Alt F11 pour accéder à l'éditeur
Aller dans le ruban: Inserer Module
coller ce code:
ensuite pour lancer la macro mettre le curseur sur masquercol et au clavier faire F5
Voilà
je te propose en vba de masquer les colonnes dont les cellules sont vide.
Faire Alt F11 pour accéder à l'éditeur
Aller dans le ruban: Inserer Module
coller ce code:
Option Explicit
Sub masquercol()
Dim colonne As Byte
Dim dercol As Integer
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'a adapter
dercol = Cells(1, Columns.Count).End(xlToLeft).Column + 1 'dernière colonne remplie ligne 1
For colonne = 1 To dercol 'boucle de la colonne 1 à la dernière
'masque (0) valeurs contenues dans la colonne
.Columns(colonne).Hidden = IIf(Application.WorksheetFunction.CountA(.Columns(colonne)) = 0, True, False)
Next colonne
End With
Application.ScreenUpdating = True
End Sub
Sub retablir()
Columns("A:R").EntireColumn.Hidden = False ' a adapter colonne
End Sub
ensuite pour lancer la macro mettre le curseur sur masquercol et au clavier faire F5
Voilà
