Discussion :

[lowno]

Bonjour à tous !

Hum sacré vba, je me retrouve encore bloqué !

Je vous explique mon pb :

J'ai un tableau, à l'ouverture un userform s'affiche et l'utilisateur se loggue. En fonction du choix dans l'userform, je lance une macro.

Exemple si le choix est BN alors :

Code :

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

1
2
3
4
5
Sub B_n()
ThisWorkbook.Sheets("suivi").ScrollArea = "b7:m1000"
Rows("1001:7000").Hidden = True
Range(ActiveSheet.ScrollArea).Rows.Hidden = False
End Sub

Exemple si le choix est FC alors :

Code :

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

1
2
3
4
5
6
Sub F_Ce()
ThisWorkbook.Sheets("suivi").ScrollArea = "b1001:m2000"
Rows("7:1000").Hidden = True
Rows("2001:7000").Hidden = True
Range(ActiveSheet.ScrollArea).Rows.Hidden = False
End Sub

Ainsi chacun à sa zone pour 'travailler' (l'idée du scrollarea m'avait été donné ici).

Seulement je voudrai figer les lignes 1,2,3,4,5 et 6 pour tout les utilisateurs sur le fichier qui est partagé. Et là impossible de figer les volets.

J'ai essayé par excel même, mais une fois figé, les lignes ne défilent plus. J'ai aussi essayé Freezepanes = true mais rien n'y fais...

Avez vous une idée ? En vous remerciant une fois de plus.

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub F_Ce()
'Partie du FreezePanes
Rows("7:7").Select
ActiveWindow.FreezePanes = True
 
'Ta partie
ActiveSheet.ScrollArea = "b1001:m2000"
Rows("8:1000").Hidden = True
Rows("2001:7000").Hidden = True
Range(ActiveSheet.ScrollArea).Rows.Hidden = False
End Sub

[lowno]

Je te remercie de porter un interet à mon pb ! : )

Néanmoins cela ne fonctionne pas vraiment (peut être ai-je mal formulé ma question).

En faite, j'ai ma barre de défilement (ascenseur) verticale qui ne descend pas toujours (lorsque le fichier est partagé et lorsque un utilisateur se "loggue").

je précise que aucuns volets n'est figés dans "Affichage > Figer les volet"

Je souhaite figer les lignes de 1 à 6 par macro et ce pour chaque utilisateur d'une scroll.

Merci

[lowno]

EngueEnguee, je me suis rendu compte que le code "fonctionné" 1 fois sur 4.

En effet, parfois j'ouvre le classeur (en partagé), les volets de 1 à 6 sont bien figés et je peux descendre l'ascenseur sur tout le scrollarea dont je viens de me loguer.... et parfois non l'ascenseur bloque!!

Allez comprendre pourquoi !!!???

J'ai trouvé des infos sur la barre verticale qui se bloque mais pas assez d'éléments.

Donc une partie de l'énigme est résolu...tanpi pour le reste : ((

[lowno]

Raaaaaah que çà m'enerve !!!

donc voici les macro que j'utilise :

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 G_A()
Rows("1:6").Hidden = False
Rows("7:7").Select
ActiveWindow.FreezePanes = True
'Rows("7").Hidden = True
ThisWorkbook.Sheets("suivi").ScrollArea = "b5001:m6000"
Rows("7:5000").Hidden = True
Rows("6001:7000").Hidden = True
Range(ActiveSheet.ScrollArea).Rows.Hidden = False
End Sub
 
Sub S_C()
Rows("1:6").Hidden = False
Rows("7:7").Select
ActiveWindow.FreezePanes = True
'Rows("7").Hidden = True
ThisWorkbook.Sheets("suivi").ScrollArea = "b6001:m7000"
Rows("7:6000").Hidden = True
Range(ActiveSheet.ScrollArea).Rows.Hidden = False
End Sub

La macro est donc déclenché après un "choix" dans un UserForm.

Je n'arrive pas à figer les ligne de 1 à 6 et que chacun et son "aire" l'ascenseur se bloque des que je suis sur le fichier. c'est bien un fichier partagé !!

raaaaah, bon je me suis inspiré de vos remarques mai rien n'y fais : )

[lowno]

En bidouillant, j'ai trouvé ma réponse. Je poste au cas où cela puisse aider.

J'ai donc juste rajouté :

Code :

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

1
2
3
4
5
6
7
8
ActiveWindow.FreezePanes = false 'au début du code
 
'******
'moncodee
'******
 
 
ActiveWindow.FreezePanes = True 'à la fin du code