Bonjour j'ai ce code qui modifie le format de la ligne et de la colonne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)    With Range("A1").CurrentRegion
        .Interior.ColorIndex = 0
 
 
    End With
 
    If Target.Count = 1 And Not Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then
 
 
      Intersect(Range("A1").CurrentRegion, Union(Target.EntireColumn, Target.EntireRow)).Interior.ColorIndex = 35
    End If
End Sub
Je voudrais remplacer la solution couleur par le fait de mettre le texte en gras (je suppose qu'il suffit de interior par le bold de font) mais voilà mon problème quand je change de cellule je voudrais récupérer mon format d'origine à savoir parfois italique parfois souligné. y a t'il moyen d'enregistrer le format en mémoire avant la mise en forme et de la récupérer quand on change de cellule.

Merci.