Discussion :

[Louax]

Bonjour,

Je cherche à colorier une cellule en fonction de la cellule active.
J'ai un tableau :
Colonne B ou figure une liste d'article
Colonne C la somme de la ligne de D à AH
et les colonne de D à AH qui représente les 31 jours du mois dans lequel j'entre le prix des articles acheté.
J'ai fixé les colonne ABC ainsi que la première ligne.
Ce qui serai pratique pour la saisie des prix est que lorsque je me trouve dans la cellule L87, le nom de l'article en B87 soit colorié en jaune et lorsque je me déplace avec soit les flèches du clavier soit en cliquant ailleurs, par exemple P89 est bien que la cellule B87 ne soit plus en jaune mais que ce soit la B89 car je suis la ligne 89.

J'ai lu plusieurs forum avec des informations sur Worksbook_sheets ou Activecell ou ColorIndex mais je n'arrive pas à les manipuler.

Il me faudrait une macro :
1) Qui s'auto-active lorsque la position de la cellule active change (par les flèches ou un clic de la sourie)
2) qui sélectionne les cellules de B2 à B93 pour qu'il n'y ai aucune couleur de fond
3) Qui donne la couleur de fond jaune à la cellule de la colonne B de la ligne de la cellule active
4) end sub

Cela est peut-être faisable avec une mise en forme conditionnelle ?

Merci pour votre aide

[Jean-Philippe André]

Salut,

tu peux faire cela avec du VBA.

L'evenement serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

Le code pour mettre dans une couleur la colonne B de ta ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheet.Cells(Target.Row,2).Interior.Color = RGB(255,0,0)

Reste a toi de faire le 'nettoyage' des autres cellules =)

[Philippe Tulliez]

Bonjour,
Une solution en combinant la mise en forme conditionnelle et la procédure événementielle Worksheet_SelectionChange
Exemple qui mettra en forme la cellule de la colonne B de la ligne sélectionnée
1) Tu crées un nom ActiveCell qui fait référence à une cellule quelconque et tu lui donnes une portabilité Feuille (feuille sur laquelle se trouve ta liste)
2) Tu sélectionnes les cellules de la colonne B sans la première ligne (titre) et tu vas dans l'outil Mise en forme conditionnelle où tu sélectionnes la règle Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué et tu places cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIGNE()=LIGNE(ActiveCell)

Ensuite tu sélectionnes le format souhaité
3) Tu vas dans le module de la feuille où se trouve la liste et tu colles ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Me.Names("ActiveCell").RefersTo = "=" & Target.Address(external:=True)
End Sub

Tu peux également appliquer une mise en forme conditionnelle su la première ligne des colonnes D à AH en plaçant cette formule après avoir sélectionné au préalable les cellules $D$1:$AH$1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=colonne()=colonne(ActiveCell)

[Louax]

Encore merci

Je viens de trouver mon erreur
Il ne faut pas nommer la cellule ActiveCell mais autrement sinon cela créé un conflit dans le code
Me.Names("ActiveCell").RefersTo = "=" & Target.Address(external:=True)

En nommant la plage Testa (ou autre chose) et en changeant le code en
Me.Names("Testa").RefersTo = "=" & Target.Address(external:=True)

Cela fonctionne parfaitement

[Philippe Tulliez]

Bonjour,

Je viens de trouver mon erreur
Il ne faut pas nommer la cellule ActiveCell mais autrement sinon cela créé un conflit dans le code
Me.Names("ActiveCell").RefersTo = "=" & Target.Address(external:=True)

Je teste toutes les réponses que je donne et je peux t'assurer que cela fonctionne avec une cellule nommée ActiveCell avec comme portabilité la feuille où elle se trouve (ici Feuil2).

Comme le montre cette illustration où j'ai sélectionné la cellule F7. La zone des noms prouve que le nom ActiveCell est bien la cellule active (F7) on peut constater que la MFC fonctionne (Cellule B7 en jaune et cellule F1 en rouge) et la boîte de dialogue du gestionnaire de noms témoigne du fait que le nom ActiveCell fait bien référence à la cellule F7 de la feuille nommée [Feuil2] et est bien de portabilité Feuille sur Feuil2 (Voir colonne étendue).



Le classeur joint te permettra de le constater également