[XL-2003] Carré de déplacement dans les cellules. [Résolu]

[Dyablo]

Bonjour à vous...

J'aimerais savoir si il est possible de changer la couleur du carré qui ce déplace dans la feuille Excel qui passe d'une cellule à l'autre.

Voyez vous, j'ai créé un fichier Excel pour mes employés et certain d'entre eux ont de la difficulté à retrouver l'emplacement.

En ajoutant un fond d'une autre couleur, idantifiant la cellule active, il serait plus facile pour les employés de retrouver l'endroit où ils sont rendu.

Merci de votre aide.

[vieuxmonsieur]

Bonsoir Dyablo,
Colle ceci dans ta feuille :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Macro créée par G.Mourmant le 01/09/2001
' Site web : <a href="http://www.polykromy.com" target="_blank">www.polykromy.com</a>
' Copyright Gaetan Mourmant
'*** Définition des variables ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0
'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
    .Fill.Visible = msoFalse
    .Fill.Transparency = 0#
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = 10
    .ControlFormat.PrintObject = False
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"
With ActiveSheet.Shapes("RectangleH")
    .Fill.Visible = msoFalse
    .Fill.Transparency = 0#
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = 10
    .ControlFormat.PrintObject = False
End With
End Sub

Au plaisir

[vieuxmonsieur]

Re,

ou :

CelluleActiveCouleur

http://www.cathyastuce.com/w-agora/d...athyastuce&bn=

cathyastuce_excel&thread=1140297157

A placer dans le code de ta feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
Range("Tablo").Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 6
End If
End Sub
Ici "Tablo" représente une plage nommée tu peux changer à volonté et mettre

par exemple "A3:Z12345"

ou :

Sélection toute la feuille puis dans Format Mise en forme conditionnelle
La formule est :

=OU(CELLULE("colonne")=COLONNE();CELLULE("row")=LIGNE())

Dans la feuille (aLT+f11)
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
Application.ScreenUpdating = False
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
Calculate
End Sub

[Dyablo]

Mmmmmmmmm !!

J'ai essayé cette formule :
=ET(LIGNE()=CELLULE("ligne");COLONNE()=CELLULE("colonne"))

Placer dans : Format / Mise en forme conditionnelle...
Condition 1 : La formule est : ( Formule )
Format : Choisir la couleur dans l'onglet : Motif

Celle si haut mentionné fonctionne bien, mais seulement sur les cases où il a une liste déroulante de choix. La couleur s'ajoute et lorsque je me déplace d'une case pour revenir sur la dernière, elle revient sur la couleur que j'ai choisi.

Par contre, les autres cases où seulement des données spécifiques peuvent être entrées, sans liste déroulante, ne fonctionne pas.

La couleur s'ajoute mais lorsque je me déplace d'une case pour revenir sur la dernière, elle reste blanche comme si je n'avais placer aucun formule.

[Dyablo]

Ok ok !!!!

J'ai comprit. Tout fonctionne maintenant.
J'avais oublier de faire ALT+ F11 pour entrer dans le code de la feuille.
( Je ne savais pas comment avant de voir la commande dans un des messages. Héhéhé !!! )

Alors, la formule est :

(Choisir une ou plusieurs cellules)

-Format/Mise en forme conditionnelle/La formule est
=ET(LIGNE()=CELLULE("ligne");COLONNE()=CELLULE("colonne"))
Allée dans Format/ Motif et choisir la couleur.

Par la suite appuyer sur ALT+F11 pour entrer dans code de la feuille.

Sélectionner le nom de la feuille.

Changer Général pour Worksheet et placer dans le code, avant End Sub, le mot : Calculate.

Merci pour tout ceux qui mon écris. C'est très apprécié.
Bonne journée à vous tous !!!!