Microsoft 365 colorier cellule

[PHV62]

bonjour tout le monde je cherche a colorier la cellule dans la colonne A quand je clique dans une cellule des colone D a I ayant la meme valeur

merci de votre aide
phv62

 

[AtTheOne]

Bonsoir à toutes & à tous, bonsoir @PHV62
J'ai créé 2 noms définis :
"Données" pour la zone des données (en colonne D à I ici D3😀11)
"Qui" pour placer le contenu de la cellule sélectionnée si elle est dans la zone de données
L'événement "Worksheet_SelectionChange" se charge de mettre à jour le nom "Qui" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Not Intersect(Target, Me.[Données]) Is Nothing Then
          ThisWorkbook.Names("Qui").RefersTo = "=""" & Target.Value & """"
     Else
          ThisWorkbook.Names("Qui").RefersTo = "="""""
     End If
End Sub

Un format conditionnel sur les données de la colonne A (ici A3:A11 ) se charge de la coloration en rouge avec cette formule :

=Qui=$A3

Voir le fichier en PJ
Amicalement
Alain

 

[PHV62]

Bonsoir AtTheOne je vous remercie de la réponse qui convient bien a ce que je voulais mais je n arrive pas a le refaire dans mon application​

je sélectionne bien la zone de Données j ai copie coller la macro ainsi que l autre petit bout de programme

auriez vous une idée

merci
phv62

 

[soan]

Bonjour PHV62, AtTheOne,

c'est peut-être car tu n'as pas créé les noms définis ?

* tu peux définir des Noms avec la zone Noms (à gauche de la barre de formules)
* fais Ctrl F3 ➯ fenêtre du Gestionnaire de Noms (pour création ou vérification)

(j'ai rien d'autre à proposer)

soan

 

[AtTheOne]

Bonjour @PHV62 et @soan
Effectivement je pense que cela vient de la non-existence des noms Données et Qui, tu peux suivre la méthode de @soan ou utiliser cette nouvelle version qui prend en compte la non-existence des noms.

Recopie le Module Mdl_01 dans ton projet et le code de Feuil1 dans le code de ta feuille contenant les données:
Mdl_01

Function DéfNom() As Boolean

     Dim Plg As Range
   
     Application.EnableEvents = False
     On Error Resume Next
     Set Plg = Application.InputBox(Prompt:="Sélectionner la zone de données", Type:=8)
     On Error GoTo 0
     Application.EnableEvents = True
   
     If Plg Is Nothing Then DéfNom = False: Exit Function
     ThisWorkbook.Names.Add "Données", Plg
     DéfNom = True
   
End Function

Code de la feuille contenant les données

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim Nom$
     On Error Resume Next
     Nom = ThisWorkbook.Names("Données").Name
     On Error GoTo 0
     If Nom = "" Then If Not DéfNom Then Exit Sub
   
     If Not Intersect(Target, Me.[Données]) Is Nothing And Target.Count = 1 Then
          ThisWorkbook.Names.Add Name:="Qui", RefersTo:="=""" & Target.Value & """"
     Else
          ThisWorkbook.Names.Add Name:="Qui", RefersTo:="="""""
     End If
End Sub

Lors de la première utilisation tu seras invité à désigner la zone de données (dans l'exemple la plage D3:D11)

Bon courage
Amicalement
Alain

 

[PHV62]

bonjour AtTheOne et soan
je reviens vers vous je n arrive pas a avoir le coloriage des cellules de la colonne A
ci joint mon fichier pour que vous regardiez
merci d avance
phv62

 

[PHV62]

bonjour AtTheOne et soan

a force de chercher donc maintenant cela fonctionne j avais simplement pas créer de mise en forme conditionnelle

encore merci de votre aide

sujet validé

phv62

 

[soan]

@PHV62

à force de chercher donc maintenant cela fonctionne j'avais simplement pas créé de mise en forme conditionnelle

bravo pour avoir cherché, puis avoir trouvé par toi-même une solution ! 🙂 👍​

---

sujet validé

pour réellement valider le sujet, tu dois marquer comme solution le post #2 OU le post #5 du joli petit pingouin 🐧 AtTheOne ; exemple :​

ATTENTION

dans une conversation, UN SEUL POST
peut être marqué comme solution !​

soan

 

[AtTheOne]

Bonsoir à toutes & à tous

j avais simplement pas créer de mise en forme conditionnelle

Et moi je n'ai pas pensé à te le rappeler dans le post #5 !
Bravo pour la persévérance !
Amicalement
Alain

 

[AtTheOne]

Bonsoir @soan
Le pingouin est myope, chenu et rondouillard !
Mais ça c'est entre nous bien sûr !
Amicalement
Alain

 

[soan]

Le pingouin est myope, chenu et rondouillard !
Mais ça c'est entre nous bien sûr !

moi aussi, je suis myope ! (très myope, comme une taupe !)
(c'est entre nous aussi, hein ? sûr, puisque c'est sur le forum ! 😄)

amicalement,
soan