souci macro

[kalschnikof]

Bonjour,

j'ai une macro qui fonctionne pas correctement,c'est à dire,elle met en "gras", c que je demande, et dès que je change la demande,la prècédente reste en "gras", je ne veux pas que sa reste en"gras". (en esperant que je me soi bien expliquer ??)

voir "Feuill2"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("E7:I15")
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = 1
If c.Value = [A1].Value Then
With c.Font
.ColorIndex = 23
.Bold = True
End With
With c.Interior
c.Interior.ColorIndex = 24
End With
End If
Next c
End Sub

Cdlt....

 

[CHALET53]

Re : souci macro

Peut-être comme ça

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
'Stop
For Each c In Range("E7:I15")
c.Font.Bold = False
c.Interior.ColorIndex = xlNone
If c.Value = [A1].Value Then
With c.Font
.ColorIndex = 23
.Bold = True
End With
With c.Interior
c.Interior.ColorIndex = 24
End With
End If
Next c
End Sub

 

[mth]

Re : souci macro

Bonjour,

Essaie comme ceci (dans le code de la feuille 1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim c As Range
    For Each c In Range("E7:I15")
        c.Interior.ColorIndex = xlNone
        c.Font.ColorIndex = 1
        c.Font.Bold = False
        If c.Value = [A1].Value Then
            With c
                .Interior.ColorIndex = 24
                .Font.ColorIndex = 23
                .Font.Bold = True
            End With
        End If
    Next c
End If
End Sub

Bon après-midi,

mth

Edit: Bonjour Chalet 🙂

 

[kalschnikof]

Re : souci macro

😀

Bonjour,

Essaie comme ceci (dans le code de la feuille 1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim c As Range
    For Each c In Range("E7:I15")
        c.Interior.ColorIndex = xlNone
        c.Font.ColorIndex = 1
        c.Font.Bold = False
        If c.Value = [A1].Value Then
            With c
                .Interior.ColorIndex = 24
                .Font.ColorIndex = 23
                .Font.Bold = True
            End With
        End If
    Next c
End If
End Sub

Bon après-midi,

mth

Edit: Bonjour Chalet 🙂

merci, c'est excactement ce que je voulais..super..!!!😉
Bon "Dimanche"...!!!!

 

[TempusFugit]

Re : souci macro

Bonjour


Je ne comprends pour tu n'utilises pas une mise en forme conditionnelle classique ?

avec cette formule:

=E7=$A$1

Tu sélectionnes ton tableau puis tu fais Format/Mise en forme conditionnelle.

Le résulat est le même (la rapidité d'affichage en plus)