Discussion :

[bougyfab]

Bonjour à tous.

Dans un classeur, je souhaite masquer des lignes de reserve (inutile pour l'utilisateur, donc).
Je définis une plage (Range) ,afin de calculer des effectifs, avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
LigneRoulementDebut = k + 1                                           '+1 pour avoir le décalage d'une ligne (pour récupérer la bonne plage de donnée, sans l'index)
LigneRoulementFin = LigneRoulementDebut + 14                   '+14 pour avoir le service / l'équipe complet

Je pense que le +14 pose problème:

1. Lorsque j'affiche les lignes
   VBA me compte bien 14 lignes
2. Lorsque je masque les lignes
   VBA me compte 8 lignes(Donc, les lignes masquées sont soustraites)

Avez-vous une solutions simple à mettre en oeuvre?
Y a t'il une astuce pour que VBA puisse compter quand même avec les lignes cachées?

d'avance merci

[Invité]

Bonjour,
Le problème n'est pas tant le 1 + 1 mais la boucle et la plage de cellules pris en compte!

[bougyfab]

Bonjour Rdurupt.

merci pour ta réponse.

Un debug.print de mon Range me renvoie bien la bonne plage:

Lorsque les ligne sont masquées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$AK$56:$AK$70

Lorsque les lignes sont visibles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$AK$56:$AK$70

.

Je vais chercher ailleurs.

Sinon, je vais faire ça de manière brutale:
afficher les lignes avant le calcul
calculer
masquer les lignes.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
LigneRoulementDebut=avtivesheet.udsedrange.rows.count -letitre -lignesuperflues
LigneRoulementFin = LigneRoulementDebut +( 14 *LigneRoulementDebut)

[bougyfab]

Re-bonjour.

Comme je n'ai pas joint le fichier, je comprends la difficulté à pouvoir me donner une réponse en cohérence avec ce que je veux !

Si je comprends le but de la manoeuvre (dimensionner de manière "dynamique" ma plage),
je ne comprends pas la mise en oeuvre.

En fait, la plage que je définie avec les cellules LigneRoulementDebut et LigneRoulementFin ne sont pas identiques, et dépendent de conditions (notamment en fonction de l'index au dessus de ma selection)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
LigneRoulementDebut=activesheet.usedrange.rows.count -letitre -lignesuperflues
LigneRoulementFin = LigneRoulementDebut +( 14 *LigneRoulementDebut).

LigneRoulementDebut=activesheet.usedrange.rows.count -letitre -lignesuperflues

-letitre
je soustrait la ligne de mon titre?
En fait, il ne s'agit pas vraiment d'une ligne de titre, mais OK pour moi (c'est comme mon k+1 initial, j'imagine)

-lignesuperflues
le problèmes, c'est que les lignes superflues ne sont pas au même endroit selon la selection!

[bougyfab]

rdurupt:

Merci pour tes pistes de reflexions

Mais du coup, j'ai adapté selon mes besoins:
les ligne que je souhaite masquer contienne en colonne B le mot RESERVE
je les affiche pour faire mon calcul, et je les masque après!

je force en début de code (pour le calcul) Masquer = False
puis lorsque le calcul est terminé, j'appelle la procédure Masquer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub MasquerLigne(Masquer As Boolean)
Dim i As Integer
 
'je masque les lignes qui contiennent "RESERVE", à l'aide d'une boucle qui va tester chaque ligne de 1 à 118
    For i = 1 To 118
        If Worksheets(modèle_roulement).Cells(i, 2) = "RESERVE" Then
        Worksheets(modèle_roulement).Rows(i).EntireRow.Hidden = Masquer
        End If
    Next
 
End Sub

[Marc-L]

Bonjour,

la fonction de feuille de calculs SOUS.TOTAL est capable de calculer soit sur l'ensemble soit uniquement sur le visible …

Autre voie : une variable tableau définie sur un Range tient compte de l'ensemble, même l'invisible …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[bougyfab]

Bonjour Marc-L

J'avais déjà essayé de bricoler avec SUBTOTAL, mais la fonction ne convenais pas à la macro que j'avais écrite.
Je me sert déjà d'un CountIfs (=NB.SI.ENS)


Par contre, je regarde comment travailler avec un objet type tableau, car c'est une bonne piste pour optimiser ma macro.
Merci pour l'idée!!

http://silkyroad.developpez.com/vba/tableaux/