Grouper des lignes et afficher le sous-total de chacun des groupes ?
Fermé
Juliux
Messages postés
276
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
1 décembre 2018
-
1 déc. 2018 à 17:36
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 2 déc. 2018 à 09:14
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 2 déc. 2018 à 09:14
A voir également:
- Grouper des lignes et afficher le sous-total de chacun des groupes ?
- Total adblock avis - Forum Windows
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Total av desabonnement ✓ - Forum Consommation & Internet
- Supprimer total Adblock qui c est incrusté sur mon pc - Forum Windows
- Afficher mot de passe wifi android - 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
Modifié le 2 déc. 2018 à 09:34
Modifié le 2 déc. 2018 à 09:34
Bonjour,
En vba voici une 1ère approche pour n'afficher que les lignes concernées:
Voir ceci pour les boucles sur colonnes:
https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
Voilà
En vba voici une 1ère approche pour n'afficher que les lignes concernées:
Voir ceci pour les boucles sur colonnes:
https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
Option Explicit
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne ("Informatique/Excel")
End Sub
Private Sub CommandButton2_Click()
For_X_to_Next_Ligne ("Informatique/Excel/Macro")
End Sub
'https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
Sub For_X_to_Next_Ligne(ByVal nom As String)
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1") 'adapter le nom de la feuille
NoCol = 2 'lecture de la colonne B
Application.ScreenUpdating = False
For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
Var = FL1.Cells(NoLig, NoCol)
If Var = nom Then
Sheets("Feuil1").Rows(NoLig & ":" & NoLig).EntireRow.Hidden = False 'adapter nom de la feuille
Else
Sheets("Feuil1").Rows(NoLig & ":" & NoLig).EntireRow.Hidden = True 'adapter nom de la feuille
End If
Next
Application.ScreenUpdating = True
Set FL1 = Nothing
End Sub
Voilà
