vérification code selection.interior.colorindex

[cyrilV]

Bonjour,

J'ai le code suivant, pour lequel je souhaite que lorsque je sélectionne une cellule, si celle-ci a un fond vert (couleur 10), elle ne copie que la valeur (un bouton de commande de copier est déjà crée).
En revanche, si le fond de la cellule est d'une autre couleur, elle copie la valeur + la couleur.
Il ne marche pas car il me copie la couleur + la valeur, même si le fond est vert.
Merci de me dire si vous voyez ce qui cloche

Cordialement et bonne année

Cyril



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)


On Error Resume Next
If Not Application.Intersect(Target, Range("d11:ah110")) Is Nothing Then
If Selection.Interior.ColorIndex = 10 Then
Selection.PasteSpecial Paste:=xlPasteValues

Else
ActiveSheet.Paste
End If
End If
Cancel = True

End Sub

 

[Pierrot93]

Re : vérification code selection.interior.colorindex

Bonsoir Cyrill

tu devrais rester sur le même fil, 3ème pour un même sujet cela fait beaucoup... Difficile à suivre pour ceux qui veulent t'aider.

Je pense qu'en mettant directement sur ton premier post le résultat final attendu tu aurais gagner du temps.

bonne soirée.
@+

 

[cyrilV]

Re : vérification code selection.interior.colorindex

Bonsoir Pierrot93,

Loin de moi l'idée de vouloier perturber et rendre confus ce que je demande.

Le résultat que j'attends à en fait évoluer au fur et à mesure des réponses que j'ai et soit des difficultés que cela entraine, soit des nouvelles possibilités que j'ai pour faire évoluer mon programme.

J'arrive en phase final et il est vrai que j'ai certaines choses que j'ai demandé dont je ne me servirais pas pour ce programme, mais dont je me servirais pour d'autres, j'ai plein d'idées (c'est notamment le cas de la liste déroulante, travail réalisé surtout par Wilfried42 que je remercie encore).
A vrai dire dans les différents posts, je demandais quelque chose de différent car à chaque fois je n'avais pas eu la solution à mon premier problème (je parle de solution complète et parfaite). J'ai détourné le problème, ou plutôt contourner, en fonction des différentes solutions proposées et fait un mix.
Je pensais même l'avoir trouvé la solution avec ce code mis dans ce même post, car je "commence un peu" à comprendre certains phases de ce langage si complexe. Mais en fait en vain dans cet exemple puisque ça ne marche pas.

Désolé d'offenser ou de semer le doute dans les exprits, ça n'est aucunement mon intention. Comme le problème diffère un peu à chaque fois, je pensais que de modifier le titre (et donc le fil) ça serait mieux, car le titre correspond d'avantage à chaque fois au problème posé à l'instant T.

Sans vous les spécialistes, les xldnautes comme moi n'arriveraient pas à exploiter les différentes possibilités de excel. Grâce à ce forum, j'ai pu nettement progresses en moins d'un an, et j'espère qu'à mon tour je serais une ressource sur ce forum. je le suis déjà dans mon boulot, car c'est le 3ème programme de ce style que je fais à la demande de mes collègues, et que j'essaie de faire évoluer sans cesse. Dans la vie on est parfois demandeurs dans certains domaines, mais ressources dans d'autres. Le tout c'est de savoir donner à un moment quand on sait prendre.

Enfin voilà quelques mots que je tenais à dire. J'espère que certains qui d'un coup de lecture verront mon problème sur le code, me le feront savoir.

Je te souhaite une très bonne année à toi, tes proches, et à tous les lecteurs de ce post.

Merci

Cyril

 

[skoobi]

Re : vérification code selection.interior.colorindex

Bonsoir cyrilV, re Pierrot93,

ta macro évenementielle marche très bien chez moi.
Le problème doit venir de la macro de copie.

Bonne année 🙂

 

[cyrilV]

Re : vérification code selection.interior.colorindex

Bonsoir Skoobi,

Est ce qu'elle marche en ne prenant pas en compte la couleur de fond dans la copie quand le fond est vert?

Car ça ne fonctionne pas pour moi

Merci

Cyril

 

[skoobi]

Re : vérification code selection.interior.colorindex

Re,

Oui, quel que soit le format de la copie, le texte uniquement est collé si le fond est vert et tout est collé si le fond n'est pas vert (copie par Ctrl+V puis sélection de la cellule de destination puis bouton droit comme la macro.)
Ci-joint.

 

[phlaurent55]

Re : vérification code selection.interior.colorindex

bonsoir Cyrilv

Je pense t'avoir solutionné un problème +/- semblable dans un autre fil de discussion
Encore une fois, essaie d'être beaucoup plus précis en ce qui concerne tes attentes.
Joint un fichier et précise ce que tu veux là où tu le veux ; 😡 insére des commentaires c'est si simple

Comment veux-tu recevoir une reponse si tu ne pose pas de questions ?
et je ne suis pas le seul à penser la même chose.

à+
Philippe

 

[cyrilV]

Re : vérification code selection.interior.colorindex

Bonsoir Phlaurent55, le fil et le forum,

Voici un fichier qui j'espère sera bien plus explicite sur le résultat que je souhaiterai.

Bein cordialement

Cyril

 

[bqtr]

Re : vérification code selection.interior.colorindex

Bonsoir le fil,

Ton fichier modifié:

J'ai ajouté une variable public dans le module 1 qui sert à déterminer la couleur de fond de la cellule à copier.


Bonne soirée

 

[cyrilV]

Re : vérification code selection.interior.colorindex

Bonsoir Pierre Olivier,

Je te remercie beaucoup pour cette recherche qui est exactement ce que j'attendais.
Une dernière question (enfin je pense dernière), si ma cellule de référence à copier (ici B1,C1,B2 et C2), se trouve sur une autre feuille (admettons "feuil2"
, comment dois je nommer dans le code :

Range("B2").Copy
Coul = Range("B2").Interior.ColorIndex

Merci encore et bonne soirée

Cyril

 

[bqtr]

Re : vérification code selection.interior.colorindex

Re,

Tu rajoutes le nom de la feuille devant le range comme ceci:

Private Sub CommandButton1_Click()
Sheets("Feuil2").Range("B2").Copy
Coul = Sheets("Feuil2").Range("B2").Interior.ColorIndex
End Sub

A+

 

[cyrilV]

Re : vérification code selection.interior.colorindex

Merci beaucoup Pierre Olivier,

Ce coup-ci je crois que j'ai tous les éléments pour finaliser mon programme.

Merci à tous ceux qui m'ont aidé sur ce fil ou sur les autres.

A bientôt, en souhaitant que je pourrais en aider certains

Cyril