ligne de libellée

[boby]

bonjour forum,

j'ai un tableau ou j'ai sur la premiere ligne les libellés des colonnes:
Reference; Qauantité, pris........

je saute trois lignes entre chaque famille de réference
mais je souhaiterai reprendre la ligne de libellée à chaque fois que je change de famille de reference

est ce posibles à l'aide d'un code?

Iss. Sys. Deal No. Nominal Cash Sett Ccy Cash Amt.
7928633 1,000,000 EUR -1,044,485.48


Iss. Sys. Deal No. Nominal Cash Sett Ccy Cash Amt.
50780259 43,300,000 GBP 0.00
50780260 20,500,000 GBP 0.00
50780261 29,500,000 GBP 0.00


merci pour votre aide

 

[ziopizza]

Re : ligne de libellée

Bonjour boby,
Tu peut figer les volets sous ta ligne de titre.
Ou alors c'est plus compliqué,et il faudrait un exemple.
Salut Yves

 

[boby]

Re : ligne de libellée

bonjour ziopizza,

merci de ta reponse,
je sais bien que je peux figer les volet
d'ailleurs je connais le code pour figer les volets
mais ce n'est pas ce que je veux faire

ce que je veux faire c'est inserer ou copier coller la ligne (1,1) des libellés de mes colonnes a chaque nouveau groupe de referense comme expliqué precedemment

je pensais à type de code comme celui ci mais il ne fonctionne pas

For I = 2 To Range("A65536").End(xlUp).Row + 3
If IsEmpty(Rows(I)) = True And IsEmpty(Rows(I + 1)) = False Then
With Rows(I)
.Value = Rows(1, 1).Value
End With
End If
Next I

merci

mais ça n'a rien de compliqué

 

[ziopizza]

Re : ligne de libellée

Re,
Regarde fichier joint,
Yves
( A adapter si le principe te convient.)

 

[boby]

Re : ligne de libellée

merci ça marche du tonnere

mais au niveau du collage, je souhaiterai conserver le format de la ligne (1,1)
la ligne est plus large que les autres

sinon le rest est tres bien

voila comment je l'ai adapté

Range("A1:L1").Copy
For I = 2 To Range("A65536").End(xlUp).Row + 1
If IsEmpty(Cells(I, 1)) = True And IsEmpty(Cells(I + 1, 1)) = False Then
Cells(I, 1).Activate
ActiveSheet.Paste
End If
Next


merci de ton aide

 

[ziopizza]

Re : ligne de libellée

Re,

Ajoute la ligne verte pour définir la hauteur de la ligne


Range("A1:L1").Copy
For I = 2 To Range("A65536").End(xlUp).Row + 1
If IsEmpty(Cells(I, 1)) = True And IsEmpty(Cells(I + 1, 1)) = False Then
Cells(I, 1).Activate
ActiveCell.RowHeight = 24 'ou autre
ActiveSheet.Paste
End If
Next
Salut Yves

 

[boby]

Re : ligne de libellée

mais bien sure que je suis bete
il me manquait le Active cells

merci c'est parfait

merci encore

 

[boby]

Re : ligne de libellée

dis moi,

il y a des endroits ou cette macro ne s'applique pas dans mon classeur
comment cela est il possible

For I = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(I, 11) <> Cells(I + 1, 11) Then Rows(I + 1 & ":" & I + 4).Insert Shift:=xlDown
If IsEmpty(Cells(I, 11)) = True And Cells(I, 12).Value <> Cells(I + 1, 12).Value Then Rows(I + 1 & ":" & I + 4).Insert Shift:=xlDown
Next I

peux tu m'expliquer

merci

 

[ziopizza]

Re : ligne de libellée

J'ai du mal à suivre cette Macro, je vois bien qu'elle insère des cellules, mais,
sans un exemple du fichier dans lequel elle doit fonctionner, ce n'est pas évident.
Essaye d'envoyer un petit exemple.
Yves

 

[boby]

Re : ligne de libellée

desole je viens de la corriger
c'était une erreur de numero de colonne

merci