Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Transformation de proc

Transformation de proc

4 réponses
Avatar
Louis
Bonsoir,
j'ai cette proc qui sélectionne la ligne A:E et la met en jaune avec une
police rouge
mais je désire qu'une seule ligne soit sélectionnable.
Merci
Louis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set addR = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addR.Interior.ColorIndex <> xlNone Then
With addR
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addR
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Pascal Engelmajer
Salut,
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static memo As Range
Dim addr As Range
Set addr = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addr.Interior.ColorIndex <> xlNone Then
With addr
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addr
If Not memo Is Nothing Then
With memo
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
End If
Set memo = addr
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub
... si j'ai compris la question...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Louis" a écrit dans le message de news:

Bonsoir,
j'ai cette proc qui sélectionne la ligne A:E et la met en jaune avec une
police rouge
mais je désire qu'une seule ligne soit sélectionnable.
Merci
Louis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set addR = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addR.Interior.ColorIndex <> xlNone Then
With addR
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addR
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub




Avatar
Louis
Merci Pascal, tu es un génie !
Mais que veux dire Static pour Static memo as Range
Louis

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static memo As Range
Dim addr As Range
Set addr = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addr.Interior.ColorIndex <> xlNone Then
With addr
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addr
If Not memo Is Nothing Then
With memo
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
End If
Set memo = addr
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub
... si j'ai compris la question...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Louis" a écrit dans le message de news:

Bonsoir,
j'ai cette proc qui sélectionne la ligne A:E et la met en jaune avec une
police rouge
mais je désire qu'une seule ligne soit sélectionnable.
Merci
Louis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set addR = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addR.Interior.ColorIndex <> xlNone Then
With addR
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addR
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub








Avatar
Pascal Engelmajer
Salut,
merci pour les louanges un excessives
Mais que veux dire Static pour Static memo as Range
Les variables déclarées à l'aide de l'instruction Static conservent leur

valeur pendant toute la durée de l'exécution du code.
sinon elle ne mémoriserait pas l'ancienne cellule
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Louis" a écrit dans le message de news:

Merci Pascal, tu es un génie !
Mais que veux dire Static pour Static memo as Range
Louis

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static memo As Range
Dim addr As Range
Set addr = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addr.Interior.ColorIndex <> xlNone Then
With addr
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addr
If Not memo Is Nothing Then
With memo
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
End If
Set memo = addr
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub
... si j'ai compris la question...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Louis" a écrit dans le message de news:

Bonsoir,
j'ai cette proc qui sélectionne la ligne A:E et la met en jaune avec
une



police rouge
mais je désire qu'une seule ligne soit sélectionnable.
Merci
Louis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set addR = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addR.Interior.ColorIndex <> xlNone Then
With addR
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addR
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub












Avatar
Louis
Bravo et merci
Louis

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
merci pour les louanges un excessives
Mais que veux dire Static pour Static memo as Range
Les variables déclarées à l'aide de l'instruction Static conservent leur

valeur pendant toute la durée de l'exécution du code.
sinon elle ne mémoriserait pas l'ancienne cellule
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Louis" a écrit dans le message de news:

Merci Pascal, tu es un génie !
Mais que veux dire Static pour Static memo as Range
Louis

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static memo As Range
Dim addr As Range
Set addr = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addr.Interior.ColorIndex <> xlNone Then
With addr
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addr
If Not memo Is Nothing Then
With memo
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
End If
Set memo = addr
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub
... si j'ai compris la question...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Louis" a écrit dans le message de news:

Bonsoir,
j'ai cette proc qui sélectionne la ligne A:E et la met en jaune avec
une



police rouge
mais je désire qu'une seule ligne soit sélectionnable.
Merci
Louis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set addR = Range("A" & Target.Row & ":E" & Target.Row)
If Target.Column < 6 Then
If addR.Interior.ColorIndex <> xlNone Then
With addR
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Else
With addR
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End If
End If
End Sub