Bonjour,
Une feuille de saisie représente un ensemble de tableaux les uns à la suite des
autres.
Je souhaiterais en vba:
1) définir la zone d'impression
2) que l'impression de ces données puisse s'effectuer à la suite de s auts de
page déterminés par le changement de libellés d'une colonne.
3) que l'impression puisse tenir compte de "lignes à répéter en hau t" par
exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, champ d).
merci de vos réponses
Bonjour,
Une feuille de saisie représente un ensemble de tableaux les uns à la suite des
autres.
Je souhaiterais en vba:
1) définir la zone d'impression
2) que l'impression de ces données puisse s'effectuer à la suite de s auts de
page déterminés par le changement de libellés d'une colonne.
3) que l'impression puisse tenir compte de "lignes à répéter en hau t" par
exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, champ d).
merci de vos réponses
Bonjour,
Une feuille de saisie représente un ensemble de tableaux les uns à la suite des
autres.
Je souhaiterais en vba:
1) définir la zone d'impression
2) que l'impression de ces données puisse s'effectuer à la suite de s auts de
page déterminés par le changement de libellés d'une colonne.
3) que l'impression puisse tenir compte de "lignes à répéter en hau t" par
exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, champ d).
merci de vos réponses
Bonjour,
Un exemple ..suppose tous titres en colonne1 et tous enregistrements
renseignés en colonne1:
Sub mispg()
Dim L As String, T As String, i As Long
L = [a65536].End(xlUp).Address
T = [iv1].End(xlToLeft).Address
For i = Range(L).Row To 2 Step -1
With [a:a].Cells
If .Item(i) <> .Item(i).Offset(-1, 0) Then _
ActiveSheet.HPageBreaks.Add Before:=.Item(i)
End With
Next i
With ActiveSheet.PageSetup
.PrintArea = L & ":" & T
.PrintTitleColumns = ActiveSheet.Columns(1).Address
.PrintTitleRows = ActiveSheet.Rows(1).Address
End With
End Sub
'lSteph
On 8 sep, 14:46, intactsaphir wrote:Bonjour,
Une feuille de saisie représente un ensemble de tableaux les uns
à la suite des
autres.
Je souhaiterais en vba:
1) définir la zone d'impression
2) que l'impression de ces données puisse s'effectuer à la suite
de s auts de
page déterminés par le changement de libellés d'une
colonne.
3) que l'impression puisse tenir compte de "lignes à
répéter en hau t" par
exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, champ d).
merci de vos réponses
Bonjour,
Un exemple ..suppose tous titres en colonne1 et tous enregistrements
renseignés en colonne1:
Sub mispg()
Dim L As String, T As String, i As Long
L = [a65536].End(xlUp).Address
T = [iv1].End(xlToLeft).Address
For i = Range(L).Row To 2 Step -1
With [a:a].Cells
If .Item(i) <> .Item(i).Offset(-1, 0) Then _
ActiveSheet.HPageBreaks.Add Before:=.Item(i)
End With
Next i
With ActiveSheet.PageSetup
.PrintArea = L & ":" & T
.PrintTitleColumns = ActiveSheet.Columns(1).Address
.PrintTitleRows = ActiveSheet.Rows(1).Address
End With
End Sub
'lSteph
On 8 sep, 14:46, intactsaphir wrote:
Bonjour,
Une feuille de saisie représente un ensemble de tableaux les uns
à la suite des
autres.
Je souhaiterais en vba:
1) définir la zone d'impression
2) que l'impression de ces données puisse s'effectuer à la suite
de s auts de
page déterminés par le changement de libellés d'une
colonne.
3) que l'impression puisse tenir compte de "lignes à
répéter en hau t" par
exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, champ d).
merci de vos réponses
Bonjour,
Un exemple ..suppose tous titres en colonne1 et tous enregistrements
renseignés en colonne1:
Sub mispg()
Dim L As String, T As String, i As Long
L = [a65536].End(xlUp).Address
T = [iv1].End(xlToLeft).Address
For i = Range(L).Row To 2 Step -1
With [a:a].Cells
If .Item(i) <> .Item(i).Offset(-1, 0) Then _
ActiveSheet.HPageBreaks.Add Before:=.Item(i)
End With
Next i
With ActiveSheet.PageSetup
.PrintArea = L & ":" & T
.PrintTitleColumns = ActiveSheet.Columns(1).Address
.PrintTitleRows = ActiveSheet.Rows(1).Address
End With
End Sub
'lSteph
On 8 sep, 14:46, intactsaphir wrote:Bonjour,
Une feuille de saisie représente un ensemble de tableaux les uns
à la suite des
autres.
Je souhaiterais en vba:
1) définir la zone d'impression
2) que l'impression de ces données puisse s'effectuer à la suite
de s auts de
page déterminés par le changement de libellés d'une
colonne.
3) que l'impression puisse tenir compte de "lignes à
répéter en hau t" par
exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, champ d).
merci de vos réponses
LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer à la suite
>> de s auts de
>> page déterminés par le changement de libellés d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer à la suite
>> de s auts de
>> page déterminés par le changement de libellés d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer à la suite
>> de s auts de
>> page déterminés par le changement de libellés d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c, cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
As-tu essayé ce que proposé ? Qu'en est-il ?
pour ensuite proposer une piece dans ce fil, passer par là
http://www.cjo int.com
et déposer le fichier tu obtiens le lien à coller ainsi:
http://cjoint.com/?jjjJWuPfIK
--
lSteph
On 9 sep, 09:06, intactsaphir wrote:LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les
uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer à
la suite
>> de s auts de
>> page déterminés par le changement de libellés
d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
As-tu essayé ce que proposé ? Qu'en est-il ?
pour ensuite proposer une piece dans ce fil, passer par là
http://www.cjo int.com
et déposer le fichier tu obtiens le lien à coller ainsi:
http://cjoint.com/?jjjJWuPfIK
--
lSteph
On 9 sep, 09:06, intactsaphir wrote:
LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les
uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer à
la suite
>> de s auts de
>> page déterminés par le changement de libellés
d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
As-tu essayé ce que proposé ? Qu'en est-il ?
pour ensuite proposer une piece dans ce fil, passer par là
http://www.cjo int.com
et déposer le fichier tu obtiens le lien à coller ainsi:
http://cjoint.com/?jjjJWuPfIK
--
lSteph
On 9 sep, 09:06, intactsaphir wrote:LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les
uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer à
la suite
>> de s auts de
>> page déterminés par le changement de libellés
d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
LSteph a écrit le 09/09/2009 à 09h37 :Bonjour,
As-tu essayé ce que proposé ? Qu'en est-il ?
pour ensuite proposer une piece dans ce fil, passer par là
http://www.cjo int.com
et déposer le fichier tu obtiens le lien à coller ainsi:
http://cjoint.com/?jjjJWuPfIK
--
lSteph
On 9 sep, 09:06, intactsaphir wrote:LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les
uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer
à
la suite
>> de s auts de
>> page déterminés par le changement de libellés
d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents
-
- Afficher le texte des messages précédents -
Bonjour Lsteph
J'ai testé votre premier envoi et j'essaye de comprendre vos
instructions en y insérant des commentaires.
Le problème est que dans mon premier post j'indiquais qu'il y avait
plusieurs tableaux les uns à la suite des autres avec des champs
différents...
Voici le fichier
http://cjoint.com/data/jjkvmjoWjE.htm
En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai du
mettre en commentaire '.Orientation = xlLandscape
Merci de m'aider dans la réalisation de ma demande.
LSteph a écrit le 09/09/2009 à 09h37 :
Bonjour,
As-tu essayé ce que proposé ? Qu'en est-il ?
pour ensuite proposer une piece dans ce fil, passer par là
http://www.cjo int.com
et déposer le fichier tu obtiens le lien à coller ainsi:
http://cjoint.com/?jjjJWuPfIK
--
lSteph
On 9 sep, 09:06, intactsaphir wrote:
LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les
uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer
à
la suite
>> de s auts de
>> page déterminés par le changement de libellés
d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents
-
- Afficher le texte des messages précédents -
Bonjour Lsteph
J'ai testé votre premier envoi et j'essaye de comprendre vos
instructions en y insérant des commentaires.
Le problème est que dans mon premier post j'indiquais qu'il y avait
plusieurs tableaux les uns à la suite des autres avec des champs
différents...
Voici le fichier
http://cjoint.com/data/jjkvmjoWjE.htm
En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai du
mettre en commentaire '.Orientation = xlLandscape
Merci de m'aider dans la réalisation de ma demande.
LSteph a écrit le 09/09/2009 à 09h37 :Bonjour,
As-tu essayé ce que proposé ? Qu'en est-il ?
pour ensuite proposer une piece dans ce fil, passer par là
http://www.cjo int.com
et déposer le fichier tu obtiens le lien à coller ainsi:
http://cjoint.com/?jjjJWuPfIK
--
lSteph
On 9 sep, 09:06, intactsaphir wrote:LSteph a écrit le 08/09/2009 à 16h18 :
> Bonjour,
> Un exemple ..suppose tous titres en colonne1 et tous enregistrements
> renseignés en colonne1:
> Sub mispg()
> Dim L As String, T As String, i As Long
> L = [a65536].End(xlUp).Address
> T = [iv1].End(xlToLeft).Address
> For i = Range(L).Row To 2 Step -1
> With [a:a].Cells
> If .Item(i) <> .Item(i).Offset(-1, 0) Then _
> ActiveSheet.HPageBreaks.Add Before:=.Item(i)
> End With
> Next i
> With ActiveSheet.PageSetup
> .PrintArea = L & ":" & T
> .PrintTitleColumns = ActiveSheet.Columns(1).Address
> .PrintTitleRows = ActiveSheet.Rows(1).Address
> End With
> End Sub
> 'lSteph
> On 8 sep, 14:46, intactsaphir wrote:
>> Bonjour,
>> Une feuille de saisie représente un ensemble de tableaux les
uns
>> à la suite des
>> autres.
>> Je souhaiterais en vba:
>> 1) définir la zone d'impression
>> 2) que l'impression de ces données puisse s'effectuer
à
la suite
>> de s auts de
>> page déterminés par le changement de libellés
d'une
>> colonne.
>> 3) que l'impression puisse tenir compte de "lignes à
>> répéter en hau t" par
>> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
cha mp
d).
>> merci de vos réponses
Bonjour ,
merci de m'indiquer comment puis-je vous envoyer un fichier en exemple.
bonne journée- Masquer le texte des messages précédents
-
- Afficher le texte des messages précédents -
Bonjour Lsteph
J'ai testé votre premier envoi et j'essaye de comprendre vos
instructions en y insérant des commentaires.
Le problème est que dans mon premier post j'indiquais qu'il y avait
plusieurs tableaux les uns à la suite des autres avec des champs
différents...
Voici le fichier
http://cjoint.com/data/jjkvmjoWjE.htm
En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai du
mettre en commentaire '.Orientation = xlLandscape
Merci de m'aider dans la réalisation de ma demande.
3) que l'impression puisse tenir compte de "lignes à répéter en haut
2) que l'impression de ces données puisse s'effectuer à la suite de sa uts de
page déterminés par le changement de libellés d'une colonne.
intactsaphir a écrit le 09/09/2009 à 10h31 :
> LSteph a écrit le 09/09/2009 à 09h37 :
>> Bonjour,
>> As-tu essayé ce que proposé ? Qu'en est-il ?
>> pour ensuite proposer une piece dans ce fil, passer par là
>>http://www.cjoint.com
>> et déposer le fichier tu obtiens le lien à coller ainsi:
>>http://cjoint.com/?jjjJWuPfIK
>> --
>> lSteph
>> On 9 sep, 09:06, intactsaphir wrote:
>>> LSteph a écrit le 08/09/2009 à 16h18 :
>>> > Bonjour,
>>> > Un exemple ..suppose tous titres en colonne1 et tous enregistrement s
>>> > renseignés en colonne1:
>>> > Sub mispg()
>>> > Dim L As String, T As String, i As Long
>>> > L = [a65536].End(xlUp).Address
>>> > T = [iv1].End(xlToLeft).Address
>>> > For i = Range(L).Row To 2 Step -1
>>> > With [a:a].Cells
>>> > If .Item(i) <> .Item(i).Offset(-1, 0) Then _
>>> > ActiveSheet.HPageBreaks.Add Before:=.Item(i)
>>> > End With
>>> > Next i
>>> > With ActiveSheet.PageSetup
>>> > .PrintArea = L & ":" & T
>>> > .PrintTitleColumns = ActiveSheet.Columns(1).Address
>>> > .PrintTitleRows = ActiveSheet.Rows(1).Address
>>> > End With
>>> > End Sub
>>> > 'lSteph
>>> > On 8 sep, 14:46, intactsaphir wrote:
>>> >> Bonjour,
>>> >> Une feuille de saisie représente un ensemble de tableaux les
>>> uns
>>> >> à la suite des
>>> >> autres.
>>> >> Je souhaiterais en vba:
>>> >> 1) définir la zone d'impression
>>> >> 2) que l'impression de ces données puisse s'effectuer
>>> à
>>> la suite
>>> >> de s auts de
>>> >> page déterminés par le changement de libellés
>>> d'une
>>> >> colonne.
>>> >> 3) que l'impression puisse tenir compte de "lignes à
>>> >> répéter en hau t" par
>>> >> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
>>> cha mp
>>> d).
>>> >> merci de vos réponses
>>> Bonjour ,
>>> merci de m'indiquer comment puis-je vous envoyer un fichier en exempl e.
>>> bonne journée- Masquer le texte des messages précédents
>>> -
>>> - Afficher le texte des messages précédents -
> Bonjour Lsteph
> J'ai testé votre premier envoi et j'essaye de comprendre vos
> instructions en y insérant des commentaires.
> Le problème est que dans mon premier post j'indiquais qu'il y avait
> plusieurs tableaux les uns à la suite des autres avec des champs
> différents...
> Voici le fichier
>http://cjoint.com/data/jjkvmjoWjE.htm
> En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai
du
> mettre en commentaire '.Orientation = xlLandscape
> Merci de m'aider dans la réalisation de ma demande.
Re:
merci de ne pas prendre en compte la remarque suivante de mon dernier pos t:
"En ce qui concerne votre fichier la commande test ne fonctionne pas. J'a i du
mettre en commentaire '.Orientation = xlLandscape"
car la macro instruction fonctionne, ,j'ai du faire une erreur de manipul ation.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
3) que l'impression puisse tenir compte de "lignes à répéter en haut
2) que l'impression de ces données puisse s'effectuer à la suite de sa uts de
page déterminés par le changement de libellés d'une colonne.
intactsaphir a écrit le 09/09/2009 à 10h31 :
> LSteph a écrit le 09/09/2009 à 09h37 :
>> Bonjour,
>> As-tu essayé ce que proposé ? Qu'en est-il ?
>> pour ensuite proposer une piece dans ce fil, passer par là
>>http://www.cjoint.com
>> et déposer le fichier tu obtiens le lien à coller ainsi:
>>http://cjoint.com/?jjjJWuPfIK
>> --
>> lSteph
>> On 9 sep, 09:06, intactsaphir wrote:
>>> LSteph a écrit le 08/09/2009 à 16h18 :
>>> > Bonjour,
>>> > Un exemple ..suppose tous titres en colonne1 et tous enregistrement s
>>> > renseignés en colonne1:
>>> > Sub mispg()
>>> > Dim L As String, T As String, i As Long
>>> > L = [a65536].End(xlUp).Address
>>> > T = [iv1].End(xlToLeft).Address
>>> > For i = Range(L).Row To 2 Step -1
>>> > With [a:a].Cells
>>> > If .Item(i) <> .Item(i).Offset(-1, 0) Then _
>>> > ActiveSheet.HPageBreaks.Add Before:=.Item(i)
>>> > End With
>>> > Next i
>>> > With ActiveSheet.PageSetup
>>> > .PrintArea = L & ":" & T
>>> > .PrintTitleColumns = ActiveSheet.Columns(1).Address
>>> > .PrintTitleRows = ActiveSheet.Rows(1).Address
>>> > End With
>>> > End Sub
>>> > 'lSteph
>>> > On 8 sep, 14:46, intactsaphir wrote:
>>> >> Bonjour,
>>> >> Une feuille de saisie représente un ensemble de tableaux les
>>> uns
>>> >> à la suite des
>>> >> autres.
>>> >> Je souhaiterais en vba:
>>> >> 1) définir la zone d'impression
>>> >> 2) que l'impression de ces données puisse s'effectuer
>>> à
>>> la suite
>>> >> de s auts de
>>> >> page déterminés par le changement de libellés
>>> d'une
>>> >> colonne.
>>> >> 3) que l'impression puisse tenir compte de "lignes à
>>> >> répéter en hau t" par
>>> >> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
>>> cha mp
>>> d).
>>> >> merci de vos réponses
>>> Bonjour ,
>>> merci de m'indiquer comment puis-je vous envoyer un fichier en exempl e.
>>> bonne journée- Masquer le texte des messages précédents
>>> -
>>> - Afficher le texte des messages précédents -
> Bonjour Lsteph
> J'ai testé votre premier envoi et j'essaye de comprendre vos
> instructions en y insérant des commentaires.
> Le problème est que dans mon premier post j'indiquais qu'il y avait
> plusieurs tableaux les uns à la suite des autres avec des champs
> différents...
> Voici le fichier
>http://cjoint.com/data/jjkvmjoWjE.htm
> En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai
du
> mettre en commentaire '.Orientation = xlLandscape
> Merci de m'aider dans la réalisation de ma demande.
Re:
merci de ne pas prendre en compte la remarque suivante de mon dernier pos t:
"En ce qui concerne votre fichier la commande test ne fonctionne pas. J'a i du
mettre en commentaire '.Orientation = xlLandscape"
car la macro instruction fonctionne, ,j'ai du faire une erreur de manipul ation.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
3) que l'impression puisse tenir compte de "lignes à répéter en haut
2) que l'impression de ces données puisse s'effectuer à la suite de sa uts de
page déterminés par le changement de libellés d'une colonne.
intactsaphir a écrit le 09/09/2009 à 10h31 :
> LSteph a écrit le 09/09/2009 à 09h37 :
>> Bonjour,
>> As-tu essayé ce que proposé ? Qu'en est-il ?
>> pour ensuite proposer une piece dans ce fil, passer par là
>>http://www.cjoint.com
>> et déposer le fichier tu obtiens le lien à coller ainsi:
>>http://cjoint.com/?jjjJWuPfIK
>> --
>> lSteph
>> On 9 sep, 09:06, intactsaphir wrote:
>>> LSteph a écrit le 08/09/2009 à 16h18 :
>>> > Bonjour,
>>> > Un exemple ..suppose tous titres en colonne1 et tous enregistrement s
>>> > renseignés en colonne1:
>>> > Sub mispg()
>>> > Dim L As String, T As String, i As Long
>>> > L = [a65536].End(xlUp).Address
>>> > T = [iv1].End(xlToLeft).Address
>>> > For i = Range(L).Row To 2 Step -1
>>> > With [a:a].Cells
>>> > If .Item(i) <> .Item(i).Offset(-1, 0) Then _
>>> > ActiveSheet.HPageBreaks.Add Before:=.Item(i)
>>> > End With
>>> > Next i
>>> > With ActiveSheet.PageSetup
>>> > .PrintArea = L & ":" & T
>>> > .PrintTitleColumns = ActiveSheet.Columns(1).Address
>>> > .PrintTitleRows = ActiveSheet.Rows(1).Address
>>> > End With
>>> > End Sub
>>> > 'lSteph
>>> > On 8 sep, 14:46, intactsaphir wrote:
>>> >> Bonjour,
>>> >> Une feuille de saisie représente un ensemble de tableaux les
>>> uns
>>> >> à la suite des
>>> >> autres.
>>> >> Je souhaiterais en vba:
>>> >> 1) définir la zone d'impression
>>> >> 2) que l'impression de ces données puisse s'effectuer
>>> à
>>> la suite
>>> >> de s auts de
>>> >> page déterminés par le changement de libellés
>>> d'une
>>> >> colonne.
>>> >> 3) que l'impression puisse tenir compte de "lignes à
>>> >> répéter en hau t" par
>>> >> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
>>> cha mp
>>> d).
>>> >> merci de vos réponses
>>> Bonjour ,
>>> merci de m'indiquer comment puis-je vous envoyer un fichier en exempl e.
>>> bonne journée- Masquer le texte des messages précédents
>>> -
>>> - Afficher le texte des messages précédents -
> Bonjour Lsteph
> J'ai testé votre premier envoi et j'essaye de comprendre vos
> instructions en y insérant des commentaires.
> Le problème est que dans mon premier post j'indiquais qu'il y avait
> plusieurs tableaux les uns à la suite des autres avec des champs
> différents...
> Voici le fichier
>http://cjoint.com/data/jjkvmjoWjE.htm
> En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai
du
> mettre en commentaire '.Orientation = xlLandscape
> Merci de m'aider dans la réalisation de ma demande.
Re:
merci de ne pas prendre en compte la remarque suivante de mon dernier pos t:
"En ce qui concerne votre fichier la commande test ne fonctionne pas. J'a i du
mettre en commentaire '.Orientation = xlLandscape"
car la macro instruction fonctionne, ,j'ai du faire une erreur de manipul ation.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
intactsaphir a écrit le 09/09/2009 à 10h31 :
> LSteph a écrit le 09/09/2009 à 09h37 :
>> Bonjour,
>> As-tu essayé ce que proposé ? Qu'en est-il ?
>> pour ensuite proposer une piece dans ce fil, passer par là
>>http://www.cjoint.com
>> et déposer le fichier tu obtiens le lien à coller ainsi:
>>http://cjoint.com/?jjjJWuPfIK
>> --
>> lSteph
>> On 9 sep, 09:06, intactsaphir wrote:
>>> LSteph a écrit le 08/09/2009 à 16h18 :
>>> > Bonjour,
>>> > Un exemple ..suppose tous titres en colonne1 et tous enregistrement s
>>> > renseignés en colonne1:
>>> > Sub mispg()
>>> > Dim L As String, T As String, i As Long
>>> > L = [a65536].End(xlUp).Address
>>> > T = [iv1].End(xlToLeft).Address
>>> > For i = Range(L).Row To 2 Step -1
>>> > With [a:a].Cells
>>> > If .Item(i) <> .Item(i).Offset(-1, 0) Then _
>>> > ActiveSheet.HPageBreaks.Add Before:=.Item(i)
>>> > End With
>>> > Next i
>>> > With ActiveSheet.PageSetup
>>> > .PrintArea = L & ":" & T
>>> > .PrintTitleColumns = ActiveSheet.Columns(1).Address
>>> > .PrintTitleRows = ActiveSheet.Rows(1).Address
>>> > End With
>>> > End Sub
>>> > 'lSteph
>>> > On 8 sep, 14:46, intactsaphir wrote:
>>> >> Bonjour,
>>> >> Une feuille de saisie représente un ensemble de tableaux les
>>> uns
>>> >> à la suite des
>>> >> autres.
>>> >> Je souhaiterais en vba:
>>> >> 1) définir la zone d'impression
>>> >> 2) que l'impression de ces données puisse s'effectuer
>>> à
>>> la suite
>>> >> de s auts de
>>> >> page déterminés par le changement de libellés
>>> d'une
>>> >> colonne.
>>> >> 3) que l'impression puisse tenir compte de "lignes à
>>> >> répéter en hau t" par
>>> >> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
>>> cha mp
>>> d).
>>> >> merci de vos réponses
>>> Bonjour ,
>>> merci de m'indiquer comment puis-je vous envoyer un fichier en exempl e.
>>> bonne journée- Masquer le texte des messages précédents
>>> -
>>> - Afficher le texte des messages précédents -
> Bonjour Lsteph
> J'ai testé votre premier envoi et j'essaye de comprendre vos
> instructions en y insérant des commentaires.
> Le problème est que dans mon premier post j'indiquais qu'il y avait
> plusieurs tableaux les uns à la suite des autres avec des champs
> différents...
> Voici le fichier
>http://cjoint.com/data/jjkvmjoWjE.htm
> En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai
du
> mettre en commentaire '.Orientation = xlLandscape
> Merci de m'aider dans la réalisation de ma demande.
Re:
merci de ne pas prendre en compte la remarque suivante de mon dernier pos t:
"En ce qui concerne votre fichier la commande test ne fonctionne pas. J'a i du
mettre en commentaire '.Orientation = xlLandscape"
car la macro instruction fonctionne, ,j'ai du faire une erreur de manipul ation.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
intactsaphir a écrit le 09/09/2009 à 10h31 :
> LSteph a écrit le 09/09/2009 à 09h37 :
>> Bonjour,
>> As-tu essayé ce que proposé ? Qu'en est-il ?
>> pour ensuite proposer une piece dans ce fil, passer par là
>>http://www.cjoint.com
>> et déposer le fichier tu obtiens le lien à coller ainsi:
>>http://cjoint.com/?jjjJWuPfIK
>> --
>> lSteph
>> On 9 sep, 09:06, intactsaphir wrote:
>>> LSteph a écrit le 08/09/2009 à 16h18 :
>>> > Bonjour,
>>> > Un exemple ..suppose tous titres en colonne1 et tous enregistrement s
>>> > renseignés en colonne1:
>>> > Sub mispg()
>>> > Dim L As String, T As String, i As Long
>>> > L = [a65536].End(xlUp).Address
>>> > T = [iv1].End(xlToLeft).Address
>>> > For i = Range(L).Row To 2 Step -1
>>> > With [a:a].Cells
>>> > If .Item(i) <> .Item(i).Offset(-1, 0) Then _
>>> > ActiveSheet.HPageBreaks.Add Before:=.Item(i)
>>> > End With
>>> > Next i
>>> > With ActiveSheet.PageSetup
>>> > .PrintArea = L & ":" & T
>>> > .PrintTitleColumns = ActiveSheet.Columns(1).Address
>>> > .PrintTitleRows = ActiveSheet.Rows(1).Address
>>> > End With
>>> > End Sub
>>> > 'lSteph
>>> > On 8 sep, 14:46, intactsaphir wrote:
>>> >> Bonjour,
>>> >> Une feuille de saisie représente un ensemble de tableaux les
>>> uns
>>> >> à la suite des
>>> >> autres.
>>> >> Je souhaiterais en vba:
>>> >> 1) définir la zone d'impression
>>> >> 2) que l'impression de ces données puisse s'effectuer
>>> à
>>> la suite
>>> >> de s auts de
>>> >> page déterminés par le changement de libellés
>>> d'une
>>> >> colonne.
>>> >> 3) que l'impression puisse tenir compte de "lignes à
>>> >> répéter en hau t" par
>>> >> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
>>> cha mp
>>> d).
>>> >> merci de vos réponses
>>> Bonjour ,
>>> merci de m'indiquer comment puis-je vous envoyer un fichier en exempl e.
>>> bonne journée- Masquer le texte des messages précédents
>>> -
>>> - Afficher le texte des messages précédents -
> Bonjour Lsteph
> J'ai testé votre premier envoi et j'essaye de comprendre vos
> instructions en y insérant des commentaires.
> Le problème est que dans mon premier post j'indiquais qu'il y avait
> plusieurs tableaux les uns à la suite des autres avec des champs
> différents...
> Voici le fichier
>http://cjoint.com/data/jjkvmjoWjE.htm
> En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai
du
> mettre en commentaire '.Orientation = xlLandscape
> Merci de m'aider dans la réalisation de ma demande.
Re:
merci de ne pas prendre en compte la remarque suivante de mon dernier pos t:
"En ce qui concerne votre fichier la commande test ne fonctionne pas. J'a i du
mettre en commentaire '.Orientation = xlLandscape"
car la macro instruction fonctionne, ,j'ai du faire une erreur de manipul ation.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
intactsaphir a écrit le 09/09/2009 à 10h31 :
> LSteph a écrit le 09/09/2009 à 09h37 :
>> Bonjour,
>> As-tu essayé ce que proposé ? Qu'en est-il ?
>> pour ensuite proposer une piece dans ce fil, passer par là
>>http://www.cjoint.com
>> et déposer le fichier tu obtiens le lien à coller ainsi:
>>http://cjoint.com/?jjjJWuPfIK
>> --
>> lSteph
>> On 9 sep, 09:06, intactsaphir wrote:
>>> LSteph a écrit le 08/09/2009 à 16h18 :
>>> > Bonjour,
>>> > Un exemple ..suppose tous titres en colonne1 et tous enregistrement s
>>> > renseignés en colonne1:
>>> > Sub mispg()
>>> > Dim L As String, T As String, i As Long
>>> > L = [a65536].End(xlUp).Address
>>> > T = [iv1].End(xlToLeft).Address
>>> > For i = Range(L).Row To 2 Step -1
>>> > With [a:a].Cells
>>> > If .Item(i) <> .Item(i).Offset(-1, 0) Then _
>>> > ActiveSheet.HPageBreaks.Add Before:=.Item(i)
>>> > End With
>>> > Next i
>>> > With ActiveSheet.PageSetup
>>> > .PrintArea = L & ":" & T
>>> > .PrintTitleColumns = ActiveSheet.Columns(1).Address
>>> > .PrintTitleRows = ActiveSheet.Rows(1).Address
>>> > End With
>>> > End Sub
>>> > 'lSteph
>>> > On 8 sep, 14:46, intactsaphir wrote:
>>> >> Bonjour,
>>> >> Une feuille de saisie représente un ensemble de tableaux les
>>> uns
>>> >> à la suite des
>>> >> autres.
>>> >> Je souhaiterais en vba:
>>> >> 1) définir la zone d'impression
>>> >> 2) que l'impression de ces données puisse s'effectuer
>>> à
>>> la suite
>>> >> de s auts de
>>> >> page déterminés par le changement de libellés
>>> d'une
>>> >> colonne.
>>> >> 3) que l'impression puisse tenir compte de "lignes à
>>> >> répéter en hau t" par
>>> >> exemple les champs de colonnes (AB, champ a, champ b; CD, champ c,
>>> cha mp
>>> d).
>>> >> merci de vos réponses
>>> Bonjour ,
>>> merci de m'indiquer comment puis-je vous envoyer un fichier en exempl e.
>>> bonne journée- Masquer le texte des messages précédents
>>> -
>>> - Afficher le texte des messages précédents -
> Bonjour Lsteph
> J'ai testé votre premier envoi et j'essaye de comprendre vos
> instructions en y insérant des commentaires.
> Le problème est que dans mon premier post j'indiquais qu'il y avait
> plusieurs tableaux les uns à la suite des autres avec des champs
> différents...
> Voici le fichier
>http://cjoint.com/data/jjkvmjoWjE.htm
> En ce qui concerne votre fichier la commande test ne fonctionne pas. J'ai
du
> mettre en commentaire '.Orientation = xlLandscape
> Merci de m'aider dans la réalisation de ma demande.
Re:
merci de ne pas prendre en compte la remarque suivante de mon dernier pos t:
"En ce qui concerne votre fichier la commande test ne fonctionne pas. J'a i du
mettre en commentaire '.Orientation = xlLandscape"
car la macro instruction fonctionne, ,j'ai du faire une erreur de manipul ation.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
'...je regarde cela cet aprem quand je trouve un moment, puisque en
toute logique cela ne se prette pas à ta feuillle
J'ai une piste si la disposition est toujours ainsi de deux colonnes
et que toutes les cellules sont toujours remplies
sauf la première cell de chaque bloc e n colonne 2
Merci entre temps de préciser si c'est bien toujours le cas!
@+
--
lSteph
'...je regarde cela cet aprem quand je trouve un moment, puisque en
toute logique cela ne se prette pas à ta feuillle
J'ai une piste si la disposition est toujours ainsi de deux colonnes
et que toutes les cellules sont toujours remplies
sauf la première cell de chaque bloc e n colonne 2
Merci entre temps de préciser si c'est bien toujours le cas!
@+
--
lSteph
'...je regarde cela cet aprem quand je trouve un moment, puisque en
toute logique cela ne se prette pas à ta feuillle
J'ai une piste si la disposition est toujours ainsi de deux colonnes
et que toutes les cellules sont toujours remplies
sauf la première cell de chaque bloc e n colonne 2
Merci entre temps de préciser si c'est bien toujours le cas!
@+
--
lSteph