VBA Excel

Résolu
Anne -  
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

4 réponses

  1.  pilas31 Contributeur
    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
    1. Zoul67
      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
    2. Anne
      Bonjour,

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

      Merci encore!
      0
  2. 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
    1. 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
      1. pijaku Modérateur
        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
        1. 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
        2. pijaku Modérateur
          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
        3. 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
        4. pijaku Modérateur
          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