Discussion :

[rossemma]

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.

[Patrice740]

Bonjour,

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.

Avec VBA, beaucoup de choses sont possibles, entre autres, celle-ci !
Par contre il faut mieux définir les contraintes, la solution ne serait pas la même pour une petite poignée de cellules que pour une feuille complète.

Une solution très simple consiste à utiliser un copie de la feuille (sans donnée), éventuellement masquée, servant ainsi à mémoriser tous les formats d'origine