Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
salut Ritalou,
peut-être qu'un
Set Wksht =nothing
en fin de fonction ferait la différence....???
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Ritalou" a écrit dans le message de
news:uETRk%Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
salut Ritalou,
peut-être qu'un
Set Wksht =nothing
en fin de fonction ferait la différence....???
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Ritalou" <celtec@ags-mineraux.com> a écrit dans le message de
news:uETRk%23wJEHA.1132@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
salut Ritalou,
peut-être qu'un
Set Wksht =nothing
en fin de fonction ferait la différence....???
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Ritalou" a écrit dans le message de
news:uETRk%Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
salut Ritalou,
peut-être qu'un
Set Wksht =nothing
en fin de fonction ferait la différence....???
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Ritalou" a écrit dans le message de
news:uETRk%Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
salut Ritalou,
peut-être qu'un
Set Wksht =nothing
en fin de fonction ferait la différence....???
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Ritalou" <celtec@ags-mineraux.com> a écrit dans le message de
news:uETRk%23wJEHA.1132@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
salut Ritalou,
peut-être qu'un
Set Wksht =nothing
en fin de fonction ferait la différence....???
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Ritalou" a écrit dans le message de
news:uETRk%Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais :
Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais :
Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais :
Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead a écrit dans le message :Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais :Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead <NoSpam-Benead.forumxl@club-internet.fr> a écrit dans le message :
4085BE0F.7070307@club-internet.fr...
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais :
Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead a écrit dans le message :Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de toutes
les variables), on ne sait jamais :Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Je me demande si le pb ne vient pas de ton driver d'impression.
Peux-tu en essayer un autre ou lancer la macro d'un autre ordinateur ?
A+
Benead
Bretagne
Xl97
Ritalou a écrit:Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le
bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead a écrit dans le message
:
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais :Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Je me demande si le pb ne vient pas de ton driver d'impression.
Peux-tu en essayer un autre ou lancer la macro d'un autre ordinateur ?
A+
Benead
Bretagne
Xl97
Ritalou a écrit:
Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le
bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead <NoSpam-Benead.forumxl@club-internet.fr> a écrit dans le message
:
4085BE0F.7070307@club-internet.fr...
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais :
Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Je me demande si le pb ne vient pas de ton driver d'impression.
Peux-tu en essayer un autre ou lancer la macro d'un autre ordinateur ?
A+
Benead
Bretagne
Xl97
Ritalou a écrit:Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le
bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead a écrit dans le message
:
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais :Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Je me demande si le pb ne vient pas de ton driver d'impression.
Peux-tu en essayer un autre ou lancer la macro d'un autre ordinateur ?
A+
Benead
Bretagne
Xl97
Ritalou a écrit:Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le
bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead a écrit dans le message
:
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais :Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Je me demande si le pb ne vient pas de ton driver d'impression.
Peux-tu en essayer un autre ou lancer la macro d'un autre ordinateur ?
A+
Benead
Bretagne
Xl97
Ritalou a écrit:
Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le
bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead <NoSpam-Benead.forumxl@club-internet.fr> a écrit dans le message
:
4085BE0F.7070307@club-internet.fr...
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais :
Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:
Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97
Salut Ritalou,
Je me demande si le pb ne vient pas de ton driver d'impression.
Peux-tu en essayer un autre ou lancer la macro d'un autre ordinateur ?
A+
Benead
Bretagne
Xl97
Ritalou a écrit:Benead
<Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais>
Meme avec cette idée ca ne marche pas
et donc un travail simple dans excel prend toujours enormement de temps
par contre si je ferme le fichier et que je le reouvre sans lancer le
bout
de macro
alors là tout vas bien et des que je lance la macro
Excel freine de partout
Merci quand meme de ton idée
Ritalou
Benead a écrit dans le message
:
Salut Ritalou,
Tu n'as pas mis la fonction dans une cellule ? (=NumPage(A1))
Si non essaie en mettant "End" en fin de proc (réinitialisation de
toutes
les variables), on ne sait jamais :Sub Test()
MsgBox NumPage(ActiveCell)
End
End Sub
Ritalou a écrit:Bonsoir à tous
Grace a une fonction de LL (voir ci dessous) :Groupes de discussion
:microsoft.public.fr.excel (Date :2000/03/16 )
je trouve le numéro de la page sur laquelle sera imprimée une ligne
mais apres avoir lancé cette macro mon PC devient tres lent
Peut etre une astuce ou une autre solution
Par avance merci
Ritalou
Excel & Win 2000
'________________________________________
Function NumPage(Cellule As Range) As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet
Dim Col As Integer, Ligne As Long
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Sub Test()
MsgBox NumPage(ActiveCell)
End Sub
--
Benead
Bretagne
Xl97