sos pour couleur en wbe

[EDfun]

Re slt CBernardT,

Comme dit dans mon message, voici le fichier joint ( 29K ).
Ainsi tu comprendras bien mieux.🙄

Et encore 😉🙂Regarde la pièce jointe Classeur TEST.xls

 

[Softmama]

Re : s o s pour CBernardT

Bonjour,

d'après ce que je comprends, remplace :

If Not Application.Intersect(Target, Range("E4:E34", "J4:J34")) Is Nothing Then

Par :

[COLOR="SeaGreen"]If Target.count > 1 Then Exit Sub[/COLOR]
If Not Application.Intersect(Target, Range("E4:E34", "J4:J34"[COLOR="Red"], "O4:O34"[/COLOR])) Is Nothing Then

 

[CBernardT]

Re : s o s pour CBernardT

Re,

Salut Softmama

Quelques modifications de la macro:

1- Elle accepte maintenant l'effacement d'une sélection de plusieurs cellules.

2- Afin de réunir toutes les colonnes à prendre en compte, il suffit maintenant de rajouter les "Range" à la plage.

 

[Guest]

Re : s o s pour CBernardT

Bonsoir,
Bernard🙂
Softmama,

J'inciterai quand même EDfun à aller lire la charte du forum.

A+

 

[Fo_rum]

Re : s o s pour CBernardT

Salut

une autre proposition.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim plage As Range, Est As Range
  Set plage = Application.Union([E4:E34], [J4:J34], [O4:O34], [T4:T34], [Y4:Y34])
  Set plage = Application.Union(plage, [AD4:AD34], [AI4:AI34], [AN4:AN34], [AS4:AS34])
  Set plage = Application.Union(plage, [AX4:AX34], [BC4:BC34], [BH4:BH34], [BM4:BM34])
  
  If Application.Intersect(Target, plage) Is Nothing Then Exit Sub
  Set Est = Range("A3:A16").Find(Target)
  Selection.Interior.ColorIndex = Est.Interior.ColorIndex

End Sub

 

[EDfun]

Leçon acquise

Bonsoir Softmama, Hasco, et toi Bernard.

C'est vraiment génial, VOUS n'avez pas idée de l'épine que vous m'enlevez.
Merci avec une sincère gratitude. Et pas seulement pour moi. Votre altruisme est communicatif.
OUI Hasco je comprend, et je prend note. J'ai pas d'excuse.

.a+
Cordialement

PS. Excuse moi Fo rum, moi pas t'oublier , Ta macro marche super bien, et parait plus simple, mais j'ai du mal à la saisir. Je comprend mieux celle de Bernard .C'est vraiment sympa de donner une autre forme.
.a+
Cordialement

 

[Staple1600]

Re : s o s pour CBernardT

Bonjour à tous


EDfun
Maintenant que tu as lue la charte

Tu as encore moins d'excuse de laisser le titre de ton post tel quel. 🙄

Donc merci de bien vouloir modifier le titre de ton post puisque c'est possible.

Lien supprimé

 

[EDfun]

Leçon acquise

Bonjour à tous.

OUI , Staple1600. Concentré sur le message, j'ai oublier le reste🙁.
désolé pour l'intitulé.

Cordialement..

 

[Staple1600]

Re : s o s pour CBernardT

Re



Il faut modifier le titre de ton premier message pour que le titre de la discussion soit modifié.

PS: choisi un titre qui explicite au mieux le problème que tu rencontres

(Cela sera utile pour des recherches ultérieures sur le forum)

EDITION : merci pour la modification du titre de ton post

Pendant que tu es , tu pourrais ajouter dans ton premier message plus détails
quant à ta problématique

(Histoire de coller de mieux en mieux à la charte du forum 😉 )
Voir le point 2) b pour comprendre de quoi je parle

EDITION 2: N'oublie ^pas l'ajout des détails dans ton premier message, stp 😉

 

[EDfun]

Re : sos pour couleur en wbe

Bonjour Staple1600,

Ton argument est des plus juste.
correction faite.
merci de ce rappel.

cordialement

 

[EDfun]

Re : sos pour couleur en wbe

Bonsoir à tous,

J'aurais une petite question pour Fo rum. Aprés réflèxion, ta macro est plus que bien😉.

Mais si,... tu pouvais ajouter en complément la copie couleur de la police avec celle de la cellule et préciser si la liste se trouve sur une autre feuille nomée xx par exemple. Cette macro serait la plus compléte que j'ai trouver sur le sujet😀.

Pour pouvoir changer aussi simplement de couleur avec la liste , BRAVO

cordialement🙂

 

[Fo_rum]

Re : sos pour couleur en wbe

salut

Si ta liste est en Feuil2, les cellules "A3:A16" étant déjà formatées (Police, fond et bordures), remplace les 2 avant-dernières lignes par

 ...
  Set Est = sheets("Feuil2").Range("A3:A16").Find(Target)
  Est.copy Selection
 ...

Tu peux aussi n'avoir qu'une liste (toujours affichée ou pas) à la place de toutes les validations. Vois l'exemple joint.

 

[EDfun]

Re : sos pour couleur en wbe

Bonjour Fo rum,

De mieux en mieux, surprenant même. Tu apportes tjrs plus dans l'utilisation pratique que je peux rêver.

Chaleureusement Merci....

cordialement