VBA Excel

Résolu
Anne -  
 foo -
Bonjour,

Je travaille sur Excel 2010 et je voudrais connaître le code VBA à entrer pour pouvoir figer les volets de tous les onglets de mon classeur en B6.

Merci

A voir également:

4 réponses

Réponse 1 / 4
pilas31 Messages postés 1878 Statut Contributeur 646
 
Bonjour Pijaku et Anne

Une proposition en bouclant sur les onglets : 
For ifeuil = 1 To Sheets.Count
        Sheets(ifeuil).Activate
        Range("B6").Select
        ActiveWindow.FreezePanes = True
Next ifeuil



Cordialement,
2
Zoul67 Messages postés 2001 Statut Membre 149
 
Bonjour à tous,

Encore un peu de syntaxe en cadeau : 
 For Each ws In ActiveWorkbook.Sheets
        ws.Activate
        Range("B6").Select
        ActiveWindow.FreezePanes = True
    Next ws


A+
0
Anne
 
Bonjour,

Merci Pilas 31, et merci Zoul67, vos codes fonctionnent parfaitement!!

Merci encore!
0
Réponse 2 / 4
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

Apprenons ensemble si vous le voulez bien.

1- ouvrir un classeur vide,
2- Cliquer sur l'onglet "Développeur",
3- Cliquer sur "Enregistrer une macro",
4- Cliquer sur la cellule B6,
5- Cliquer sur l'onglet "Affichage",
6- Cliquer sur "Figer les volets", choisir l'option souhaitée,
7- Cliquer sur l'onglet "Développeur",
8- Cliquer sur "Arrêter l'enregistrement,
9- Alt + F11
10- Double clic sur Modules (dans la fenêtre VBA-Project en haut à gauche)
11- Double clic sur "Module 1",
12- Copiez le code obtenu et revenez le coller ici dans une réponse.

Nous adapterons ce code à votre question dès votre retour...
0
Anne
 
Bonjour,

Merci. Voici le code obtenu: 

Sub Freeze()
'
' Freeze Macro
'

'
    Range("B6").Select
    ActiveWindow.FreezePanes = True
End Sub


Il s'agit maintenant de l'appliquer à l'ensemble des onglets de mon classeur. Je pense que ça doit passer par une boucle, mais je suis incapable de dire laquelle et comment l'y intégrer...

Merci!
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Comme dis plus bas par les deux comparses (que je salue au passage), il te faut une boucle.
Pour ne pas faire de doublon, je place ici un troisième code... 

Sub ZiVa()
'Déclaration de la variable "Feuille" :
Dim maFeuil As Worksheet

'Boucle sur tous les objets "WorkSheets" (feuilles) du classeur :
For Each maFeuil In ThisWorkbook.Worksheets
    ' "avec" ma feuille
    With maFeuil
        'on l'active
        .Activate
        'on sélectionne la cellule B6
        .Range("B6").Select
    End With
    'on "FreezePane" la feuille en cours
    ActiveWindow.FreezePanes = True
'Feuille suivante
Next
End Sub
0
Anne
 
Merci pour la réponse Pijaku, mais ça ne fonctionne pas.
En revanche, les codes de Pilas 31 et Zoul67 m'ont permis de figer en B6 les volets de tous mes onglets.
Merci encore à eux!
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
J'ai du me tromper quelque part...
Mais ou?

....

Pourtant ça fonctionne.

Attention toutefois à tenir compte de la remarque de foo, en cas de changement de cellule...
0
Réponse 3 / 4
foo
 
Bonjourer

avant de Figer il faut le mettre a False
ex:
Sub FigeOnglet()
ActiveWindow.FreezePanes = False
Range("B6").Select
ActiveWindow.FreezePanes = True
End Sub

A+
Maurice
0
Réponse 4 / 4
foo
 
Bonjour

et avec la boucle

Sub Test()
For I = 1 To Sheets.Count
Sheets(Sheets(I).Name).Select
ActiveWindow.FreezePanes = False
Range("B6").Select
ActiveWindow.FreezePanes = True
Next
End Sub

A+
Maurice
0