macro selon couleur cellule

[KyFranRD]

Bonjour à tous


Sur mon fichier, si je rentre an B21, par exemple, une valeur situé entre 109 et 118, K21, devient orange; sinon K21 est noir.

j'ai réalisé un useform qui apparaît lorsque je clic sur K21.

Voilà ce que je voudrais réaliser:

Si je clic sur K21 noir >>>>> pas de userform
si je clic sur K21 orange >>>>> apparition du userform


Je peux créer un fichier test si demandé. Je voudrais simplement savoir comment empêcher l'apparition d'un userform selon la couleur.


Voilà le code intégré à ma feuille:

' Si cellule colonne K selectionnée

If Target.Column = 11 And Target.Row >= 21 And Target.Row <= 102 Then

' Ouverture de l'interface 2

Load UserForm4
UserForm4.Show
Unload UserForm4

End If

End Sub

Comment intégrer une condition de couleur à ce code. J'ai essayé avec Active.cell, target, range, associés à font.colorindex mais rien ne marche.

Merci d'avance

 

[phlaurent55]

Re : macro selon couleur cellule

Bonjour Kyfr........

Pourquoi ne pas rester sur l'autre fil de discussion, et y joindre ton fichier pour une meilleure compréhension

https://www.excel-downloads.com/threads/comment-desactiver-une-cellule.191994/


à+
Philippe

 

[Dull]

Re : macro selon couleur cellule

Salut KyFranRD, le Forum

Est-ce que le changement de couleur de ta cellule K21 provient d'une Mise en Forme Conditionnelle?
Si oui il faut prendre la condition qui génère cette MFC et non la couleur

Un petit fichier nous sera utile effectivement
EDITION: Oups... pas rafraichit salut Philippe🙂

Bonne Journée

 

[KyFranRD]

Re : macro selon couleur cellule

Oui c'est vrai phlaurent, seulement c'est bien le même fichier, mais pas du tout la même partie de code.

je joins un fichier pour une meilleur compréhension

Merci

 

[phlaurent55]

Re : macro selon couleur cellule

Re,

oui c'est vrai phlaurent. Je fais cela de suite

ça peut attendre, je vais chercher mon pain et le journal

Dull, .......... tu prends la relève ???????????????? 😉

à+
Philippe

 

[KyFranRD]

Re : macro selon couleur cellule

Oui c'est vrai phlaurent, seulement c'est bien le même fichier, mais pas du tout la même partie de code.

je joins un fichier pour une meilleur compréhension

Merci

 

[Dull]

Re : macro selon couleur cellule

Re

En attendant Philippe qui est parti chercher le Journal et le Pain,😉
je te propose cela

pour la colonne K remplace

If Target.Column = 11 And Target.Row >= 21 And Target.Row <= 102 Then

' Ouverture de l'interface 2

Load UserForm4
UserForm4.Show
Unload UserForm4

End If

par

If Not Intersect(Target, [K21:K102]) Is Nothing Then
If Range("A" & Target.Row) <> "" Then UserForm4.Show
End If

a tester
EDITION: Salut Bruno 🙂

Bonne Journée

 

[Compte Supprimé 979]

Re : macro selon couleur cellule

Bonjour le fil 😉

Bonjour et merci …Voilà. Si je selectionne une valeur entre 109 et 118 en B21 >>>> K21 passe du noir au orange, un A apparaît en A21.
Si j'efface B21 >>>>> K21 redevient noir et A disparaît en A21 …..
En cliquant sur K21 un userform apparaît et permet de selectionner 2 choix. Jusque là tout est normal.
Ce que je souhaite c'est d'interdire l'apparition de ce userform en cellules K21 à K102, pour toutes cellule de couleur noir.
Merci à l'avance

Je passais par là, alors ... il suffit de tester la condition de ta MFC qui rend la cellule noire
voircodedenotreamiDULL

Edit : salutlamiDULL

A+

 

[KyFranRD]

Re : macro selon couleur cellule

Merci bien 😉 à vous deux, je teste cela de suite

et bien cela fonctionne nickel.

Merci encore à vous deux

 

[Compte Supprimé 979]

Re : macro selon couleur cellule

Re,

Pas réfléchi ce matin, mais le code de notre ami DULL estbienmeilleuresolution 😉

A+