Coloriser ligne-colonne!

[demax]

Bonsoir à tous
je souhaiterais coloriser une colonne et une ligne quand on selection une cellule.Auriez vous quelques chose qui puisse m'interrresser
j'ai ça mais sais pas trop comment l'utiliser Target.Interior.Color
comment definir une couleur?
merci🙂

 

[vbacrumble]

Re : Coloriser ligne-colonne!

Bonsoir


Essayes de commencer avec ceci:
A mettre dans le code de la feuille
(pas dans un module)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
With Target
    .EntireRow.Interior.ColorIndex = 4
    .EntireColumn.Interior.ColorIndex = 4
End With
End Sub

A+

 

[demax]

Re : Coloriser ligne-colonne!

bonsoir vbacrumble
tres bien C ce que je cherchais mais est il possible de ne pas additionner les coloration en fait C pour avoir un repere abscisse coordonnee donc quand tu clic sur une autre cellule la selection precedent s'efface😀
merci

 

[vbacrumble]

Re : Coloriser ligne-colonne!

Re



Je voulais te laisser trouver une solution tout seul 😉

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Target.Count > 1 Then Exit Sub
Cells.Interior.ColorIndex = xlNone
With Target
    .EntireRow.Interior.ColorIndex = 4
    .EntireColumn.Interior.ColorIndex = 4
End With
Application.ScreenUpdating = True
End Sub

 

[demax]

Re : Coloriser ligne-colonne!

re
figure toi que je chercher de mon coté et puis je tournais autour de ce xlNone
apres le ScreenUpdating là je sais plus
mais le souci ce que j'avais un tableau avec plein de belle couleur et puis hop plus rien🙁
je sens que ca risque d'etre compliqué cette histoire voir impossible finalement quand tu as une feuille coloré il faudrait agir sur un calque genre à la photoshop mais là je pense que ce n'est pas possible
merci++😉

 

[ROGER2327]

Re : Coloriser ligne-colonne!

Bonsoir à tous

Une petite contribution avec ce classeur.​

Bon courage !
ROGER2327

 

[BOISGONTIER]

Re : Coloriser ligne-colonne!

Bonjour,

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

 

[demax]

Re : Coloriser ligne-colonne!

bonjour à tous
Messieurs vous m'avez comblé il y a toutes les possibilité je peux pas demander mieux😱
merci beaucoup et vous souhaite un excel ent dimanche😉

 

[demax]

Re : Coloriser ligne-colonne!

re
j'ai trouver un code qui me convient:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
Union(Target.Offset(1, 0).EntireRow, Target.EntireColumn).Select
Target.Offset(1, 0).Activate
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
Union(Target.EntireRow, Target.EntireColumn).Select
Target.Activate
Application.EnableEvents = True
End If
End Sub

par contre je voudrais que le dedut de la ligne commence en E4 et là il selectionne toute la ligne et moi j'ai des fusion de cellule à gauche et ensuite des lignes plus etroite donc ca fait une selection large.
apparement C ca qui'il faudrait changer en range je pense :

EntireRow, Target.EntireColumn)

mais ca marche pas😕
si vous avez un tuyau ce serai gentil
merci à tous🙂

 

[ROGER2327]

Re : Coloriser ligne-colonne!

Bonjour à tous.

À demax :

(...) si vous avez un tuyau ce serai gentil (...)

Observez les codes que l'on vous propose : Ce tuyau est dedans. Par exemple

    With Target
        Intersect(Range("Zone_utile"), .EntireRow).Interior.ColorIndex = 24
        Intersect(Range("Zone_utile"), .EntireColumn).Interior.ColorIndex = 24
    End With

avec "Zone_utile" représentant la zone à laquelle vous voulez limiter le coloriage.​

Bonne journéROGER2327e.

 

[demax]

Re : Coloriser ligne-colonne!

re
finalement j'ai trouvé une solution qui me convient dans le fichier de BOISGONTIER

Selectionner A2😀16
-Format/Mise en forme conditionnelle
=ET(LIGNE()=CELLULE("ligne");COLONNE()<=CELLULE("colonne"))
=ET(COLONNE()=CELLULE("colonne");LIGNE()<=CELLULE("ligne"))


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

donc merci à mr BOISGONTIER😉
et merci à tous de m'avoir aidé😀

 

[ROGER2327]

Re : Coloriser ligne-colonne!

Bonjour à tous,

En utilisant une seule condition de mise en forme :

=ET(LIGNE()=CELLULE("ligne");COLONNE()<=CELLULE("colonne"))=ET(COLONNE()=CELLULE("colonne");LIGNE()<=CELLULE("ligne"))

on obtient également un résultat intéressant. Les formules de BOISGONTIER sont des trésors. Merci à lui !
​

ROGER2327