recuperer des lignes de chapitres

Bonjour Srog,

Copie ce qui suit dans un module standard :

A ) Tu dois adapter le nom des feuilles dans la procédure
Feuil1 = Feuille source : Feuil2 = feuille de destination pour copie

B ) J'ai pris pour acquis que les cellules soulignées étaient en colonne A:A
et que le soulignement était une ligne simple : xlUnderlineStyleSingle

C ) J'utilise la colonne IV de façon temporaire ... si elle contient déjà des
informations, tu dois alors en choisir une autre.

D ) Si tu utilises des colonnes qui sont différentes des miennes, tu dois
adapter ceci le chiffre 255 dans cette expression ;
A = Rg(1, 1).Offset(, -255).Address(0, 0)
255 est obtenu en soustrayant Nombre total de colonnes
dans une feuille 256 - le numéro de la colonne contenant
le texte souligné.


'-------------------------------
Sub SelectionnerSouligner()
Dim Rg As Range
Dim A As String
With Worksheets("Feuil1")
Set Rg = .Range("IV1:IV" & .Range("A65536").End(xlUp).Row)
A = Rg(1, 1).Offset(, -255).Address(0, 0)
Rg.Formula = "=Souligner(" & A & ")"
Rg.Value = Rg.Value
Rg.SpecialCells(xlCellTypeConstants).EntireRow.Copy _
Worksheets("Feuil2").Range("A1")
Rg = ""
End With
End Sub

'-------------------------
Function Souligner(Rg As Range)

Souligner = False
If Rg.Characters.Font.Underline = xlUnderlineStyleSingle Then
Souligner = "X"
Else
Souligner = ""
End If

End Function
'-------------------------


Salutations!


"srog" <srogeau@aol.com> a écrit dans le message de news:20040914040730.24216.00000610@mb-m10.aol.com...
bonjour a tous
dans une feuille1 de 2000 lignes environ ,j'ai des lignes qui representes des
titres de chapitres .
tous ces titres de chapitres sont surlignees avec une couleur (jaune) pour les
mettre en evidence
comment puis je recuperer uniquement ces titres ,dans la feuille 2 par ex
merci de votre aide

Ceci à la droite de la dernière colonne
=CouleurVoisine(A1)

Function CouleurVoisine(LaCellule As Range)
CouleurVoisine = LaCellule.Interior.ColorIndex
End Function

ça te donne un numéro de couleur et il reste à trier sur ceci...
ps: peut etre plus prudent de mettre une colonne avant le tri pour repérer
les positions initiales


--
Je préfère glisser ma peau sous des draps pour le plaisir des sens que de la
risquer sous les drapeaux pour le prix de l'essence."

Raymond Devos


"srog" <srogeau@aol.com> a écrit dans le message de
news:20040914040730.24216.00000610@mb-m10.aol.com...

bonjour a tous
dans une feuille1 de 2000 lignes environ ,j'ai des lignes qui representes
des

titres de chapitres .
tous ces titres de chapitres sont surlignees avec une couleur (jaune) pour
les

mettre en evidence
comment puis je recuperer uniquement ces titres ,dans la feuille 2 par ex
merci de votre aide