Bonjour,
Je fais souvent des sous-totaux avec Donnees/Sous-Totaux.
Malheureusement les Sous-Totauxne sont pas en gras, seuls le sont les champs sur
lesquels portent les sous_totaux.
Une macro m'aiderait bien.
Merci d'avance
Reda
--
Use our news server 'news.foorum.com' from anywhere.
More details at: http://nnrpinfo.go.foorum.com/
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
reda
Je viens de trouver la reponse, si ca peut interreser quelqu'un : DLastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row For Each Cellule In Range("C2:C" & DLastRow) If Cellule.Font.Bold = True Then For i = 3 To 21 Cellule.Offset(0, i).Font.Bold = True Next i End If Next
-- Use our news server 'news.foorum.com' from anywhere. More details at: http://nnrpinfo.go.foorum.com/
Je viens de trouver la reponse, si ca peut interreser quelqu'un :
DLastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For Each Cellule In Range("C2:C" & DLastRow)
If Cellule.Font.Bold = True Then
For i = 3 To 21
Cellule.Offset(0, i).Font.Bold = True
Next i
End If
Next
--
Use our news server 'news.foorum.com' from anywhere.
More details at: http://nnrpinfo.go.foorum.com/
Je viens de trouver la reponse, si ca peut interreser quelqu'un : DLastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row For Each Cellule In Range("C2:C" & DLastRow) If Cellule.Font.Bold = True Then For i = 3 To 21 Cellule.Offset(0, i).Font.Bold = True Next i End If Next
-- Use our news server 'news.foorum.com' from anywhere. More details at: http://nnrpinfo.go.foorum.com/