Discussion :

[catedd]

Bonjour a vous,
Je suis nouveau dans la pratique du vba d'Excel, et je galère trop pour réaliser une macro.
Sans vouloir trop vous déranger j'aurais besoin d'un coup de main. La macro que j'ai faite touriiiinne trop.
de plus mon âge n'arrange pas les choses.
Il serait très sympathique si une personne pouvait m'aider. le problème est ci joint.
Pour être simple, une macro pour cacher des lignes et en laisser certaines apparentes.

Les lignes de 1 à 29 sont apparentes et fixe.

les lignes qui doivent être cachées sont :
33, 34, 35, 36, 37, 38, 39, 40, 41.
45,46,47,48, 52 58,59,60,61 66,67,68,69, 75, 80, 85

Les lignes qui restent visible sont:
30, 31, 32,
42, 43, 44
49, 50, 51 et 53
54, 55, 56 ,57
62, 63, 64, 65
70, 71, 72, 73, 74 et 76
77, 78, 79 et 81
82,83,84 et 86
ma 1ere macro ci-dessous marche ("""presque" "manque des lignes) , Mais elle rame, elle saccade.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Click()
 
' Macro servant à masquer les lignes lorsque l'on clique sur le bouton Click
 
Sheets("Ligne A").Rows("30:32").EntireRow.Hidden = False 'on affiche les lignes 30 à 32
Sheets("Ligne A").Rows("42:44").EntireRow.Hidden = False 'on affiche les lignes 42 à 44
Sheets("Ligne A").Rows("49:53").EntireRow.Hidden = False 'on affiche les lignes 49 à 53
Sheets("Ligne A").Rows("54:57").EntireRow.Hidden = False 'on affiche les lignes 54 à 57
Sheets("Ligne A").Rows("62:65").EntireRow.Hidden = False 'on affiche les lignes 62 à 65
Sheets("Ligne A").Rows("69:74").EntireRow.Hidden = False 'on affiche les lignes 69 à 74
Sheets("Ligne A").Rows("70:76").EntireRow.Hidden = False 'on affiche les lignes 70 à 76
Sheets("Ligne A").Rows("77:81").EntireRow.Hidden = False 'on affiche les lignes 77 à 81
Sheets("Ligne A").Rows("82:86").EntireRow.Hidden = False 'on affiche les lignes 82 à 86
 
 
 
Sheets("Ligne A").Rows("88:217").EntireRow.Hidden = True 'on masque les lignes 88 à 217
Sheets("Ligne A").Range("BT27") = "ATT" 'on indique le mode ATTention pour confirmer 
 
End Sub

Je remercie d’avance ceux qui m’accorderont de leurs temps et du savoir.

[RyuAutodidacte]

Bonjour,

les lignes qui doivent être cachées sont :
33, 34, 35, 36, 37, 38, 39, 40, 41.
45,46,47,48, 52 58,59,60,61 66,67,68,69, 75, 80, 85

un exemple vite fait sur tes lignes cachées à toi d'adapter (je ne les ai pas toutes faites)

Code :

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

1
2
3
4
5
6
Sub Demo()
Dim LigCache As Range
    Set LigCache = Union(Rows("33:41"), Rows("45:48"), Rows("52:52"), Rows("58:61"))
    LigCache.EntireRow.Hidden = True
    Set LigCache = Nothing
End Sub

[RyuAutodidacte]

re,
Si on cible une feuille précise (Attention à bien faire les différences entre les 2 codes) :

Code :

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

1
2
3
4
5
6
7
8
Sub Demo2()
Dim LigCache As Range
    With Sheets("Ligne A")
        Set LigCache = Union(.Rows("33:41"), .Rows("45:48"), .Rows("52:52"), .Rows("58:61"))
    End With
    LigCache.EntireRow.Hidden = True
    Set LigCache = Nothing
End Sub

[patricktoulon]

re
dans ce cas precis ou les lignes sont connues je ne vois pas l'intérêt d'utiliser union

Code :

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

Range("A33:A41, A45:A48, A52, A58:A61").EntireRow.Hidden = True

surtout que utiliser rows"x:y"... et entirerow a la fin ca fait un peu ... hein RYU!!!!

sur tout aussi que
Set LigCache = Union(.Rows("33:41"), .Rows("45:48"), .Rows("52:52"), .Rows("58:61")) est une variable type range de X lignes sur le columns.count
je te dis pas la mémoire si les lignes sont remplie hein !! Ryu!!!

[catedd]

Tout d'abord Merci,
vous êtes très sympa de m'accorder de votre temps.

Je suis de ton avis patricktoulond'ailleur c'est pour ça que je fais appel à vous.
Je vais commencer par adapter et tester la code de RyuAutodidacte, cela semble répondre a mon attente.

je vous ferais part des résultats ce Samedi .
Cordialement

[unparia]

Bonjour patricktoulon

sur tout aussi que
Set LigCache = Union(.Rows("33:41"), .Rows("45:48"), .Rows("52:52"), .Rows("58:61")) est une variable type range de X lignes sur le columns.count
je te dis pas la mémoire si les lignes sont remplie hein !! Ryu!!!

Croyance à ne pas propager.
un objet range créé par référence à une plage de cellules n'est qu'un pointeur vers cette plage et n'occupe pas de mémoire proportionnelle au nombre de cellules de la plage concernée. Il n'occupe que la mémoire (insignifiant) d'un pointeur *******.
Préparer une liste de courses n'est pas mettre ou avoir mis dans son caddie les produits figurant sur cette liste !

Pour être très précis à ce sujet : la seule différence (encore plus insignifiante) qu'il sera possible de constater, ne concernera que le pointeur lui-même, dans le cas d'un pointeur vers une plage constituée d'un très grand nombre d'objets areas (sous-plages discontinues)

****** voyons maintenant ce qu'il en est de l'adresse mémorisée par chaque pointeur :
proposition ryuautodidacte : longue de 31 octets "$33:$41,$45:$48,$52:$52,$58:$61"
proposition patricktoulon : longue de 41 octets "$A$33:$A$41,$A$45:$A$48,$A$52,$A$58:$A$61"
Quelle est selon toi celle qui sera analysée puis parcourue la plus vite lors de l'exécution des instructions sur cette plage (ce pointeur de plage, en fait) ?
J'encourage personnellement Ryuautodidacte à continuer à observer sa saine rigueur.