Figer les volets dans Excel par programmation VB
Labon
Messages postés
18
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
3 mai 2011
-
6 mars 2003 à 15:35
Labon Messages postés 18 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 3 mai 2011 - 6 mars 2003 à 16:51
Labon Messages postés 18 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 3 mai 2011 - 6 mars 2003 à 16:51
2 réponses
paf24
Messages postés
20
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
12 janvier 2005
6 mars 2003 à 16:03
6 mars 2003 à 16:03
je te propose ce code ou j'ai fogé les volets à la ligne 13 (il fige entre 12 et 13).
donc figer entre la ligne 1 et 2, met "2:2" à la place de "13:13"
je t'explique comment j'ai trouvé çà (en 2 minutes)
j'ai ouvert excel, j'ai créer une macro où j'ai sélectionner une ligne et figer les titres.
puis je puis aller regarder le code généré dans "outils/macro/visual basic editor", les macros sont dans les modules (double click sur le dossier modules), et le code apparait en VB (ou plutot en VBA je crois).
enfin, bref, çà devrait marcher.
bon, comme t'es sous VB, tu devra surement ouvrir excel en application :
dim tableauexcel as application
tableauexcel=new excel.application
puis utilisé les controls Rows et autre en mettant tableauexcel.Rows("2:2").select
ou :
with tableauexcel
.Rows("2:2").select
.ActiveWindows.FreezePanes=True
etc
donc voici le code généré par la macro
Sub Macro2()
'
' Macro2 Macro
'
'
Rows("13:13").Select
ActiveWindow.FreezePanes = True
End Sub
Paf24
donc figer entre la ligne 1 et 2, met "2:2" à la place de "13:13"
je t'explique comment j'ai trouvé çà (en 2 minutes)
j'ai ouvert excel, j'ai créer une macro où j'ai sélectionner une ligne et figer les titres.
puis je puis aller regarder le code généré dans "outils/macro/visual basic editor", les macros sont dans les modules (double click sur le dossier modules), et le code apparait en VB (ou plutot en VBA je crois).
enfin, bref, çà devrait marcher.
bon, comme t'es sous VB, tu devra surement ouvrir excel en application :
dim tableauexcel as application
tableauexcel=new excel.application
puis utilisé les controls Rows et autre en mettant tableauexcel.Rows("2:2").select
ou :
with tableauexcel
.Rows("2:2").select
.ActiveWindows.FreezePanes=True
etc
donc voici le code généré par la macro
Sub Macro2()
'
' Macro2 Macro
'
'
Rows("13:13").Select
ActiveWindow.FreezePanes = True
End Sub
Paf24
Labon
Messages postés
18
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
3 mai 2011
6 mars 2003 à 16:51
6 mars 2003 à 16:51
Merci BEAUCOUP Paf, ça fonctionne.....
Labon
Labon