Coloriser ligne-colonne!

vbacrumble

XLDnaute Accro

• 22 Février 2009

• #2

Re : Coloriser ligne-colonne!

Bonsoir


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

Code:

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+

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 22 Février 2009

• #3

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 22 Février 2009

• #4

Re : Coloriser ligne-colonne!

Re



Je voulais te laisser trouver une solution tout seul 😉

Code:

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

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 22 Février 2009

• #5

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++😉

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Février 2009

• #6

Re : Coloriser ligne-colonne!

Bonsoir à tous

Une petite contribution avec ce classeur.​

Bon courage !
ROGER2327

 

Pièces jointes

• Coloriage.zip

  6.6 KB · Affichages: 53
• Coloriage.zip

  6.6 KB · Affichages: 58
• Coloriage.zip

  6.6 KB · Affichages: 54

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 22 Février 2009

• #7

Re : Coloriser ligne-colonne!

Bonjour,

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

JB

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 22 Février 2009

• #8

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😉

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 22 Février 2009

• #9

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

Cliquez pour agrandir...

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Février 2009

• #10

Re : Coloriser ligne-colonne!

Bonjour à tous.

À demax :

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

Cliquez pour agrandir...

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

Code:

    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.

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 22 Février 2009

• #11

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Février 2009

• #12

Re : Coloriser ligne-colonne!

Bonjour à tous,

En utilisant une seule condition de mise en forme :

Code:

=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

 

Vote positif 0 Vote négatif