Boucle pour figer les volets ne marche pas?

X

xstier

Guest

• 28 Décembre 2008

• #2

Re : Boucle pour figer les volets ne marche pas?

Bonjour je pense q'il faut juste remplacer worksheet par workbook dans la macro
voir ci dessous

Code:

Sub Figer()
Dim ws As Worksheet
For Each ws In Workbook
ws.Application.ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Next ws
End Sub

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Décembre 2008

• #3

Re : Boucle pour figer les volets ne marche pas?

bonsoir xstier, le forum,
je vais essayer de suite je te dis cela dans 5 minutes
a+
papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Décembre 2008

• #4

Re : Boucle pour figer les volets ne marche pas?

Re Xstier, le forum,
bah non c'est pas ça ya autre choses mais quoi?
moi j'ai éssayé plein de choses mais je n'ai pas la bonne commande c'est sur, enfin si tu as une autre idée elle sera la bienvenue
a+
Papou

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 28 Décembre 2008

• #5

Re : Boucle pour figer les volets ne marche pas?

Salut, corriger ton code en

Code:

    ....
For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        .....

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Décembre 2008

• #6

Re : Boucle pour figer les volets ne marche pas?

bonsoir Kiki 29
je vais essayer cela de suite et je te dis quoi dans 5 minutes
merci d'avance
a+
Papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Décembre 2008

• #7

Re : Boucle pour figer les volets ne marche pas?

Re Kiki29, le Forum,
Bon bah comme dab avec toi c'est tout bon.
Je ne pensais pas qu'il fallait activer la feuille pour pouvoir faire l'opération
ben il faut que je m'en souvienne maintenant.
merci pour tout Xstier Kiki29 et bonne fin de soirée à tous
a+
Papou

 

Vote positif 0 Vote négatif

X

xstier

Guest

• 28 Décembre 2008

• #8

Re : Boucle pour figer les volets ne marche pas?

Sinon le code ci dessous semble fonctionner

Code:

Sub tes()
a = Worksheets.Count

For i = 1 To a
Sheets(i).Select
    ActiveWindow.SplitRow = 1
    ActiveWindow.FreezePanes = True
Next

End Sub

Xavier

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Décembre 2008

• #9

Re : Boucle pour figer les volets ne marche pas?

re Xtier le forum,
merci pour ta joilie boucle je vais la garder au chaud aussi car moi j'ai toujours besoin d'exemples pour faire des choses en vba
merci pour tout et bonne soirée
a+
Papou

 

Vote positif 0 Vote négatif