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 Est-ce possible ?

Est-ce possible ?

9 réponses
Avatar
Titus
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus
Signaler un problème avec ce contenu

9 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
Denis
Bonjour,

'SOLUTION NO.1

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
If Target.Column >= 1 And Target.Column <= 5 Then
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
End If
End Sub


'SOLUTION NO.2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Column >= 1 And Target.Column <= 5 Then
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
End If
End Sub



"Titus" a écrit dans le message news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus




Avatar
Denis
Bonjour,
OU BIEN ENCORE:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Column >= 1 And Target.Column <= 5 Then
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
Else
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
End If
End Sub


"Titus" a écrit dans le message news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus




Avatar
Titus
Merci beaucoup Denis
Titus

"Denis" a écrit dans le message de
news:MTzTb.13406$
Bonjour,
OU BIEN ENCORE:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)

If Target.Column >= 1 And Target.Column <= 5 Then
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
Else
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
End If
End Sub


"Titus" a écrit dans le message news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus







Avatar
Titus
Salut, désolé Denis, cela ne fonctionne pas.
Merci quand même
Titus

"Denis" a écrit dans le message de
news:AizTb.13401$
Bonjour,

'SOLUTION NO.1

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)

With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
If Target.Column >= 1 And Target.Column <= 5 Then
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
End If
End Sub


'SOLUTION NO.2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)

If Target.Column >= 1 And Target.Column <= 5 Then
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
End If
End Sub



"Titus" a écrit dans le message news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus







Avatar
ChrisV
Bonjour Titus,

Dans la feuille de code de l'onglet concerné

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


ChrisV


"Titus" a écrit dans le message de news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus




Avatar
Titus
Super ChriV cela fonctionne parfaitement
et t'il possible que sil l'on clique sur la ligne à nouveau, cela la remet à
l'initiale ?

Merci beaucoup


Peux tu me dire pourquoi cela ne fonctionne pas
"ChrisV" a écrit dans le message de
news:
Bonjour Titus,

Dans la feuille de code de l'onglet concerné

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


ChrisV


"Titus" a écrit dans le message de news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus








Avatar
ChrisV
Re,

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


ChrisV


"Titus" a écrit dans le message de news:

Super ChriV cela fonctionne parfaitement
et t'il possible que sil l'on clique sur la ligne à nouveau, cela la remet
à

l'initiale ?

Merci beaucoup


Peux tu me dire pourquoi cela ne fonctionne pas
"ChrisV" a écrit dans le message de
news:
Bonjour Titus,

Dans la feuille de code de l'onglet concerné

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


ChrisV


"Titus" a écrit dans le message de news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus












Avatar
Denis
Bonjour,

Je ne sais pas, mais il se peut que ça ne fonctionne pas parce que tu n'utilise pas la
version d'Excel 97.

Probablement qu'il s'agirait juste de remplacer
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

par
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Denis

"Titus" a écrit dans le message news:

Salut, désolé Denis, cela ne fonctionne pas.
Merci quand même
Titus

"Denis" a écrit dans le message de
news:AizTb.13401$
Bonjour,

'SOLUTION NO.1

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)

With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
If Target.Column >= 1 And Target.Column <= 5 Then
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
End If
End Sub


'SOLUTION NO.2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)

If Target.Column >= 1 And Target.Column <= 5 Then
With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlAutomatic
End With
With Target.EntireRow
.Interior.Color = RGB(255, 255, 0)
.Font.Color = RGB(255, 0, 0)
End With
End If
End Sub



"Titus" a écrit dans le message news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus











Avatar
Titus
You're a superman
Thanks beaucoup
Titus

"ChrisV" a écrit dans le message de
news:
Re,

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


ChrisV


"Titus" a écrit dans le message de news:

Super ChriV cela fonctionne parfaitement
et t'il possible que sil l'on clique sur la ligne à nouveau, cela la
remet


à
l'initiale ?

Merci beaucoup


Peux tu me dire pourquoi cela ne fonctionne pas
"ChrisV" a écrit dans le message de
news:
Bonjour Titus,

Dans la feuille de code de l'onglet concerné

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


ChrisV


"Titus" a écrit dans le message de news:
#
Bonjour,
je souhaite en cliquant sur une ligne de A:E,
que celle-ci devienne jaune avec une police rouge.
Est-ce possible ?
Merci
Titus