Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel colorier un ligne dans une zone nommée

colorier un ligne dans une zone nommée

5 réponses
Avatar
Philippe BRONCHART
bonjour à tous.
Bien tentant le prochain repas du mpfe ...

Bon
A mon avis pas compliqué mais moi je cale.

Cette petite macro insère un X dans la Zone nommée X au double clic.
Pour une histoire de lisibilité je souhaite également colorier la ligne sur
laquelle on insére le X, mais (et ca je n'y arrive pas) uniquement la partie
de la ligne dans la zone x à l'exception de la cellule ou j'ai mis le x.

la macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("x")) Is Nothing Then Exit Sub
If Target.Value = "" Then
With Target
.Value = "X"
'ici on colore la ligne de la zone correspondante mais pas la cellule qui
contient le X
End With
Else: Target.Value = ""

End If
Cancel = True
End Sub


--
Amicalement

Philippe BRONCHART dit la bronche
Signaler un problème avec ce contenu

5 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
Frédéric Sigonneau
Bonsoir,

Pour poser la première pierre de l'usine à gaz (Excel 2000 ou + récent) :

'=========================== Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim ColDeb$, ColFin$, Li&

If Intersect(Target, Range("x")) Is Nothing Then Exit Sub
ColDeb = Split(Range("x").Address, "$")(1)
ColFin = Split(Range("x").Address, "$")(3)
Li = Target.Row
If Target.Value = "" Then
Target.Value = "X"
Range("x").Interior.ColorIndex = xlNone
Range(ColDeb & Li & ":" & ColFin & Li).Interior.ColorIndex = 3
Target.Interior.ColorIndex = xlNone
Else: Target.Value = ""
End If
Cancel = True
End Sub
'============================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


bonjour à tous.
Bien tentant le prochain repas du mpfe ...

Bon
A mon avis pas compliqué mais moi je cale.

Cette petite macro insère un X dans la Zone nommée X au double clic.
Pour une histoire de lisibilité je souhaite également colorier la ligne sur
laquelle on insére le X, mais (et ca je n'y arrive pas) uniquement la partie
de la ligne dans la zone x à l'exception de la cellule ou j'ai mis le x.

la macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("x")) Is Nothing Then Exit Sub
If Target.Value = "" Then
With Target
.Value = "X"
'ici on colore la ligne de la zone correspondante mais pas la cellule qui
contient le X
End With
Else: Target.Value = ""

End If
Cancel = True
End Sub

--
Amicalement

Philippe BRONCHART dit la bronche


Avatar
sabatier
le C.O.I.N. y a mis toute son âme, philippe...ne te reste plus qu'à
aller t'encanailler sur le site du volatile
jps

Philippe BRONCHART a écrit:
bonjour à tous.
Bien tentant le prochain repas du mpfe ...


Avatar
gee-dee-
;-)))
Ah!!!!! JPS ne te réjouis pas trop vite ....
cela fera encore un chtimi (Lillois) de plus à table ,
et si on compte nos voisins d'outre Quievrain
vous-autres les sudistes vous ne serez plus assez nombreux !!!
;-)))

"sabatier" a écrit dans le message de
news:
le C.O.I.N. y a mis toute son âme, philippe...ne te reste plus qu'à
aller t'encanailler sur le site du volatile
jps

Philippe BRONCHART a écrit:
bonjour à tous.
Bien tentant le prochain repas du mpfe ...





Avatar
Philippe BRONCHART
Merci frédéric ca marche impec.

pour le repas, en principe ce coup ci, j'ai pas de naissance de prévu ...
(du mois je ne suis pas au courant ... on m'aurait menti ????)

A bientôt

Phil

"gee-dee-" a écrit dans le message de news:
#
;-)))
Ah!!!!! JPS ne te réjouis pas trop vite ....
cela fera encore un chtimi (Lillois) de plus à table ,
et si on compte nos voisins d'outre Quievrain
vous-autres les sudistes vous ne serez plus assez nombreux !!!
;-)))

"sabatier" a écrit dans le message de
news:
le C.O.I.N. y a mis toute son âme, philippe...ne te reste plus qu'à
aller t'encanailler sur le site du volatile
jps

Philippe BRONCHART a écrit:
bonjour à tous.
Bien tentant le prochain repas du mpfe ...









Avatar
sabatier
de toutes façons, phil, les bébés sont admis : Flo est en charge des
couches repassées par chrisV, MHD donne le biberons et fait faire le rot
puis le président prend le relais pour les berceuses...
jps

Philippe BRONCHART a écrit:
Merci frédéric ca marche impec.

pour le repas, en principe ce coup ci, j'ai pas de naissance de prévu ...
(du mois je ne suis pas au courant ... on m'aurait menti ????)

A bientôt

Phil

"gee-dee-" a écrit dans le message de news:
#

;-)))
Ah!!!!! JPS ne te réjouis pas trop vite ....
cela fera encore un chtimi (Lillois) de plus à table ,
et si on compte nos voisins d'outre Quievrain
vous-autres les sudistes vous ne serez plus assez nombreux !!!
;-)))

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

le C.O.I.N. y a mis toute son âme, philippe...ne te reste plus qu'à
aller t'encanailler sur le site du volatile
jps

Philippe BRONCHART a écrit:

bonjour à tous.
Bien tentant le prochain repas du mpfe ...