reporter "la bordure"de plusieurs cellules d'une feuille à une autre

[pierre4]

bonjour à tous,
je cherche à reporter les données d'une feuille sur une autre, ça marche.
je cherche maintenant à reporter s'il y en a, la bordure (basse), je n'y arrive pas sur TOUTES LES COLONNES...
merci de votre aide sympathique...
Pierre4




Sub Devis()
Dim plage As Range, Cellule As Range, Recherche As Range
If ActiveSheet.Name = "Devis" Then
Set plage = ActiveSheet.Range("C18500")
Else
Exit Sub
End If
For Each Cellule In plage
If Not Cellule.Value = "" Then
Application.FindFormat.Clear
Set Recherche = Sheets("Ouvrages").Range("D:G").Find(Cellule, lookat:=xlWhole)
If Not Recherche Is Nothing Then
Cellule.Font.FontStyle = Recherche.Font.FontStyle
Cellule.Font.Italic = Recherche.Font.Italic
Cellule.Font.Size = Recherche.Font.Size
Cellule.Font.Bold = Recherche.Font.Bold
Cellule.Font.ColorIndex = Recherche.Font.ColorIndex
Cellule.RowHeight = Recherche.RowHeight
Cellule.Interior.Color = Recherche.Interior.Color
Cellule.Borders(xlEdgeBottom).LineStyle = Recherche.Borders(xlEdgeBottom).LineStyle
End If
End If
Next Cellule
End Sub

 

[CBernardT]

Re : reporter "la bordure"de plusieurs cellules d'une feuille à une autre

Bonjour pierre4,

Avec un extrait de ton classeur, on pourrait t'aider plus facilement !