Figer et libérer volet par macro dans Thisworkbook

Version imprimable

Bonjour le forum,

J'ai la ligne 5 figée
Je ne peux faire Range ("A1").Select et .Range("A1").Select.
Donc j'ai fait Range("B6").Select et .Range("B6").Select
Voyez-vous une possibilité pour incorporer un code ou "morceau" de code dans le Thisworkbook ci-dessous?
Merci pour vos éventuelles réponses
Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date
Dim MoisSuivant As String
 
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If InStr(1, "JanvierFévrierMarsAvrilMaiJuinJuilletAoûtSeptembreOctobreNovembreDécembre", _
              Split(Sh.Name, " ")(0), vbTextCompare) Then
    ' Calcul du nombre de jour dans le mois indiqué par le nom de la feuille
    NombreJour = Day(DateAdd("m", 1, DateValue(Sh.Name)) - 1)
    If Target.Row - 5 > Day(Date) Then
      Beep
      MsgBox "PAS LE BON JOUR"
      Target = ""
    Else
      ' Surveille la plage du 1er au dernier jours du mois
      If Not Intersect(Range("B6:C" & 5 + NombreJour), Target) Is Nothing Then
        ' Reconstruit la date de fonction du nom de la feuille et du numéro de ligne sélectionnée
        Ladate = DateSerial(Split(Sh.Name, " ")(1), Month(DateValue(Sh.Name)), Target.Row - 5)
        ' Si la colonne B et la colonne C est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("C" & Target.Row) = "", "", Ladate)
        ' si la ligne modifiée est la dernière du mois et que la colonne est la C
        If Target.Row = NombreJour + 5 And Target.Column = 3 Then
          ' On construit le nom de la feuille du mois suivant
          MoisSuivant = MonthName(Month(DateAdd("m", 1, DateValue(Sh.Name)))) & " " & Year(DateAdd("m", 1, DateValue(Sh.Name)))
          ' On va vérifier si la feuille existe
          If FeuilleExiste(MoisSuivant) = False Then Exit Sub
          Range("B6").Select
          ' La feuille existe
          With Sheets(MoisSuivant)
            'On la rend visible
            .Visible = xlSheetVisible
            ' On masque celle que l'on vient de finir
            ActiveSheet.Visible = xlSheetHidden
            ' et on la sélectionne
            .Select
            .Range("B6").Select
          End With
        End If
      End If
    End If
  End If
  Application.EnableEvents = True
End Sub

16/09/2014, 18h19
Philippe Tulliez

Bonjour,

Citation:

Voyez-vous une possibilité pour incorporer un code ou "morceau" de code dans le Thisworkbook ci-dessous?

Quel bout de code ?
Je ne vois pas de problème de faire un Range("A1").Select si les lignes de 1 à 5 sont figées
16/09/2014, 20h46
Un Internaute

Bonsoir Philippe Tulliez,
J'ai un fichier de marche pour chaque mois de l'année et sur la cellule C35 ou C36 correspondant au dernier jour du mois je fais Suppr.
Malgré un écran de 22 pouces il faut que j'utilise l'ascenseur pour voir les cellules C35 ou C36.
Donc après l'enregistrement du mois suivant (exemple octobre) si je reviens au mois précédent (septembre) ma feuille Excel se trouve où je l'ai laissée (au 2/3 ou 3/4 de page).
Il en est ainsi pour tous les mois
Donc j'ai mis Range("B6").Select et .Range("B6").Select (voir macro ThisWorkbook) et ça fonctionne très bien
Impossible avec Range("A1").Select et .Range("A1").Select
La page reste où je l'ai laissée.
J'ai fais => Fenêtre => Libérer les volets et ça fonctionne donc j'en déduis que ça vient de là.
Peut-on insérer un code pour Libérer les volets et figer les volets?
Moi je ne sais pas où le placer.
Si astuce je suis preneur.
Bonne fin de soirée à vous tous
Bien cordialement
16/09/2014, 23h51
eriiic

Bonjour,

Citation:

Figer et libérer volet par macro

L'enregistreur de macro ne te donne pas la réponse ?

Sinon plus simplement tu peux faire :

Code:

Application.Goto Sheets("Feuil1").[A1], True

eric
17/09/2014, 07h00
Un Internaute

Bonjour Eric,
Effectivement l'enregistreur me le donne mais si ce que tu as fait fonctionne je le met où?
D'autant plus que mon classeur est constitué de 12 feuilles : Janvier 2014, février 2014 mars 2014 etc...
Bonne journée Bien cordialement à tous

Bonjour,

Une possibilité est de le mettre à l'activation de la feuille. Dans thisworkbook :

Code:

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(1, "JanvierFévrierMarsAvrilMaiJuinJuilletAoûtSeptembreOctobreNovembreDécembre", _
             Split(Sh.Name, " ")(0), vbTextCompare) Then
        Application.Goto Sh.[A1], True
    End If
End Sub

17/09/2014, 07h57
Philippe Tulliez

Bonjour,
Si les premières lignes (ici de 1 à 6) sont figées effectivement lorsque l'on utilises les méthodes Select comme GoTo d'ailleurs ne font pas remonter les lignes.
Pour cela, tu peux utiliser la propriété ScrollRow comme ci-dessous

Code:

ActiveWindow.ScrollRow = 1

Quant à savoir où le placer dans ton code, il me semble que c'est toi qui doit le savoir.
Normalement, il n'y a aucune raison d'utiliser les méthodes Select, Activate, etc. puisque l'on peut accéder à n'importe quelle cellule de n'importe quelle feuille,de n'importe quel classeur sans pour autant l'activer.

[EDIT]
Erreur de ma part, je n'avais pas vu que l'argument Scroll de la méthode GoTo avait la valeur à TRUE et permet de faire la même chose que ActiveWindow.ScrollRow = 1
N'utilisant jamais ce genre de commande, cela m'avait échappé
17/09/2014, 09h12
Un Internaute

Re-bonjour eriiic
Effectivement ça va bien dans A1 mais comment on le remet par la même macro STP?
Merci d'avance.
Très gentil de ta part.
Bien cordialement

Je n'ai pas été très explicite.
Je veux parler de re-figer les volets dans la même macro.
Merci d'avance Bien cordialement
17/09/2014, 09h20
Philippe Tulliez

Bonjour,
1) Tu actives l'enregistreur de macros
2) tu figes les volets
3) tu arrêtes l'enregistreur
4) tu regardes le code ainsi généré et tu l'adaptes
Si tu n'arrives pas à l'adapter, tu reviens sur le forum pour que l'on t'aide
17/09/2014, 09h34
keygen08
Bonjour
pour defiger les volets, la commande est

Code:

ActiveWindow.FreezePanes = false

Pour les refiger, il faut d'abords selectionner la cellule, la ligne, la colonne puis
Code:

1 2 Feuil14.Rows(8).Activate ActiveWindow.FreezePanes = True
Il suffit d'incorporer cela dans le code au bon endroit
17/09/2014, 10h41
eriiic

Si tu utilises Application.Goto Sh.[A1], True tu n'as pas besoin de dé-figer re-figer la fenêtre.
eric
17/09/2014, 12h47
Un Internaute

Bonjour eriiic,
Mon gros c'est l'emplacement de ce code.
Je ne suis pas grand spécialiste du VBA
Si tu peux me placer ça au bon endroit pour moi c'est un plus ENORME
Encore merci
Bien cordialement

OH!!! QUEL C$N!!!
Pas vu que la ligne était dans le code.
Merci beaucoup pour ton aide.
Bonne journée à tous
Bien cordialement