[Résolu] Colorier une case en fonction de la cellule selctionné

DonBeuBeu · 23 Avril 2013

Re salut tout l'monde!!!

De nouveaux une tite question, je veux colorier une cellule si je clique sur une case mais attention c'est sur une plage de cellule!

C'est pas clair? Aller un screen

En rouge la cellule sélectionné, en jaune la case à colorier, je voudrais que toute cellule sélectionné sur la plage E12:CV12 colorie la case B12, idem sur la plage E15:CV15 colorie la case B15, et ainsi de suite pour les lignes 12 puis 13 à 35 de 2 en 2...

Il me faudrait au moins un truc bien pour la première ligne je me chargerais du reste

Merci d'avance!!!

vgendron · 23 Avril 2013

Re : [VBA] Colorier une case en fonction de la cellule selctionné

Re, ici ;-)
une piste: je crois qu'il faut jouer avec "target"

jean62 · 23 Avril 2013

Re : [VBA] Colorier une case en fonction de la cellule selctionné

salut voici un exemple

phlaurent55 · 23 Avril 2013

Re : [VBA] Colorier une case en fonction de la cellule selctionné

Bonjour à tous,

une solution en pièce jointe

à+
Philippe

DonBeuBeu · 23 Avril 2013

Re : [VBA] Colorier une case en fonction de la cellule selctionné

Re,

Merci à tous pour vos réponses, Philipe ton code m'intrigue il me semble que tu répète 2 fois la même fonction:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B12:Z35")) Is Nothing Then
Range("A12:A35").Interior.Color = xlNone
End If
If Not Intersect(Target, Range("B12:Z12, B15:Z15, B17:Z17, B19:Z19, B21:Z21, B23:Z23, B25:Z25, B27:Z27, B29:Z29, B31:Z31, B33:Z33, B35:Z35")) Is Nothing Then
Range("A12:A35").Interior.Color = xlNone
Cells(Target.Row, 1).Interior.Color = 65535
End If
End Sub

En tout cas elle se ressemble beaucoup à l’exception des cellules concernés...

Sinon sa marche parfaitement merci

EDIT:

Ok c'est bon j'ai compris
Merci encore!

jean62 · 23 Avril 2013

Re : [Résolu] Colorier une case en fonction de la cellule selctionné

salut voici une autre façon de mettre une ligne de 4 couleurs différentes

jean62 · 23 Avril 2013

Re : [Résolu] Colorier une case en fonction de la cellule selctionné

A j'ai mal lu ton énoncer je me suis tromper

phlaurent55 · 23 Avril 2013

Re : [VBA] Colorier une case en fonction de la cellule selctionné

Re,

DonBeuBeu à dit:
Re,

Merci à tous pour vos réponses, Philipe ton code m'intrigue il me semble que tu répète 2 fois la même fonction:

En tout cas elle se ressemble beaucoup à l’exception des cellules concernés...

Sinon sa marche parfaitement merci

EDIT:

Ok c'est bon j'ai compris
Merci encore!

ce "double-code" est destiné à ôter la couleur jaune lorsqu'on clique dans les lignes 13, 14, 16, .............

à+
Philippe

[Résolu] Colorier une case en fonction de la cellule selctionné

DonBeuBeu

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

jean62

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

DonBeuBeu

XLDnaute Junior

jean62

XLDnaute Nouveau

Pièces jointes

jean62

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

Discussions similaires