Affichage

Bonjour le Forum

Je reviens vers vous pour un petit (problème) et surtout pour avoir la solution

J'ai le fichier Recherche clubs

Qui me donne un emplacement dans la colonne C du club recherché par une liste déroulante, cela fonctionne très bien

est il possible, une fois, le club recherché que l'indication figure également en colonne D voire E ???

Merci à vous de mettre vos compétences au service des débutants

Bien cordialement,

Fabien 67

Private Sub Worksheet_Change(ByVal Target As Range)

'

Dim rCel As Range

'

If Not Intersect(Target, [H4]) Is Nothing Then

Range("C:C").Interior.Color = xlNone

Set rCel = Range("B:B").Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues)

If Not rCel Is Nothing Then

rCel.Offset(0, 1).Select

rCel.Offset(0, 1).Interior.ColorIndex = 26

End If

End If

'

End Sub

Bonjour

pour chaque cellule copier une ligne avec offset incrémente

        rCel.Offset(0, 1).Select
        rCel.Offset(0, 1).Interior.ColorIndex = 26
        rCel.Offset(0, 2).Interior.ColorIndex = 26
        rCel.Offset(0, 3).Interior.ColorIndex = 26

A plus sur le forum

Bonjour,

Le .Select est inutile (voire néfaste).

If Not rCel Is Nothing Then
  rCel.Offset(0, 1).Resize(1, 3).Interior.ColorIndex = 26
End If

Bonjour à vous,

Cela fonctionne bien, mais hélas les colonnes D et E garde les couleurs et ne s’effacent pas

Fichier joint

Merci à vous

Cordialement

Bien sûr, tu ne fais pas beaucoup d'effort pour comprendre ton code

il faut aussi remplacer

Range("C:C").Interior.Color = xlNone

par

Range("C:E").Interior.Color = xlNone

Bonsoir,

Effectivement, je n'ai pas fait attention;

Y a t-il possibilité de mettre en couleur la colonne de A15 à A 80 ???

Comme la couleur revient au (blanc)

Et je souhaiterai laisser cette colonne en (Gris clair)

Bien cordialement

Fabien 67

Fabien67 a écrit :

mais comme ce n'est pas moi qui ai fait le code VBA car je n'y comprend strictement rien ....

Y a t-il possibilité de mettre en couleur également la valeur recherchée ???

Oui,

Mais il faut faire l'effort de comprendre le code, sinon tu n'auras jamais un code satisfaisant.

Bonsoir,

Effectivement, je n'ai pas fait attention;

Y a t-il possibilité de mettre en couleur la colonne de A15 à A 80 ???

Comme la couleur revient au (blanc)

Et je souhaiterai laisser cette colonne en (Gris clair)

Voici mon code actuel:

Private Sub Worksheet_Change(ByVal Target As Range)

'

Dim rCel As Range

'

If Not Intersect(Target, [L12]) Is Nothing Then

Range("A15:G80").Interior.Color = xlNone

Set rCel = Range("A:A").Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues)

If Not rCel Is Nothing Then

rCel.Offset(0, 0).Select

rCel.Offset(0, 0).Interior.ColorIndex = 42

rCel.Offset(0, 1).Interior.ColorIndex = 46

rCel.Offset(0, 2).Interior.ColorIndex = 46

rCel.Offset(0, 3).Interior.ColorIndex = 46

rCel.Offset(0, 4).Interior.ColorIndex = 46

rCel.Offset(0, 5).Interior.ColorIndex = 46

rCel.Offset(0, 6).Interior.ColorIndex = 46

End If

End If

'

End Sub

Bien cordialement

Fabien 67