ligne de libellée

ziopizza

XLDnaute Occasionnel

• 10 Octobre 2006

• #2

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

 

Vote positif 0 Vote négatif

B

boby

Guest

• 10 Octobre 2006

• #3

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é

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 10 Octobre 2006

• #4

Re : ligne de libellée

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

 

Pièces jointes

• famille.xls

  22.5 KB · Affichages: 57

Dernière édition: 10 Octobre 2006

Vote positif 0 Vote négatif

B

boby

Guest

• 10 Octobre 2006

• #5

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

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 10 Octobre 2006

• #6

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

 

Vote positif 0 Vote négatif

B

boby

Guest

• 10 Octobre 2006

• #7

Re : ligne de libellée

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

merci c'est parfait

merci encore

 

Vote positif 0 Vote négatif

B

boby

Guest

• 10 Octobre 2006

• #8

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

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 10 Octobre 2006

• #9

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

 

Vote positif 0 Vote négatif

B

boby

Guest

• 10 Octobre 2006

• #10

Re : ligne de libellée

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

merci

 

Vote positif 0 Vote négatif