XL 2019 VBA - Colorer selection copie

[Saumon80]

Bonjour,

J'ai un fichier avec plusieurs colonnes.

Je souhaite simplement colorer la selection que je copie en couleur et je souhaiterait que chaque selection ai une couleur differente.

Je souhaiterais egalement que la selection copie reste coloree .

Merci pour votre aide car je suis vraiment novice avec VBA.

Cordialement

 

[fanch55]

Bonjour,
Un code qui pourrait faire ce que vous demandez à placer dans le code de la feuille concernée:

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastCmd As String, SelCol As Long

    LastCmd = Application.CommandBars("Standard").Controls("&Refaire").List(1)
   
    If LastCmd Like "Coller*" Then          ' Dernière action = "coller"
        SelCol = Selection.Interior.Color   ' Couleur de fond de la sélection collée
        'Appel au dialog box ColorPicker avec le selcol
        If Application.Dialogs(xlDialogEditColor).Show _
            (1, SelCol Mod 256, (SelCol \ 256) Mod 256, SelCol \ 65536) Then
            ' On applique la couleur choisie à la sélection
            Selection.Interior.Color = ActiveWorkbook.Colors(1)
        End If
    End If

End Sub

 

[Saumon80]

Bonjour et merci beaucoup!

Cela ne marche pas quand je colle le code , peut etre car j'utilise une version anglaise et certaines lignes sont en francais?
Egalement est il possible de lier cela a la fonction copier au lieu de coller?

Merci!

 

[Staple1600]

Bonjour le fil

Saumon80
Puisque tu débutes une solution possible avec MFC par VBA
Sur une feuille vide, mets des valeurs dans les cellules A1 à A18
puis lances la macro test

Sub test()
copie Range("A1:A18"), Range("C1")
End Sub
Sub copie(source As Range, desti As Range)
Dim r As Range
source.Copy desti
Set r = Selection
r.FormatConditions.AddColorScale ColorScaleType:=3
r.FormatConditions(r.FormatConditions.Count).SetFirstPriority
r.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
r.FormatConditions(1).ColorScaleCriteria(1).FormatColor.Color = 7039480
r.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
r.FormatConditions(1).ColorScaleCriteria(2).Value = 50
r.FormatConditions(1).ColorScaleCriteria(2).FormatColor.Color = 16776444
r.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
r.FormatConditions(1).ColorScaleCriteria(3).FormatColor.Color = 13011546
End Sub

 

[fanch55]

Cela ne marche pas quand je colle le code , peut etre car j'utilise une version anglaise et certaines lignes sont en francais?

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastCmd As String, SelCol As Long

    LastCmd = Application.CommandBars("Standard").Controls("&Undo").List(1)
 
    If LastCmd Like "Paste*" Then          ' Last action = "paste"
        SelCol = Selection.Interior.Color   ' selection Backcolor
        'Call dialog box ColorPicker with selcol rgb
        If Application.Dialogs(xlDialogEditColor).Show _
            (1, SelCol Mod 256, (SelCol \ 256) Mod 256, SelCol \ 65536) Then
            ' Set picked color to selection
            Selection.Interior.Color = ActiveWorkbook.Colors(1)
        End If
    End If

End Sub

 

[Staple1600]

Bonjour fanch55

Apparemment, je suis pas le seul à penser MFC

Macro pour colorer selection d'une couleur differente

J'ai un fichier avec plusieurs colonnes. Je souhaite simplement colorer la selection que je copie en couleur et je souhaiterait que chaque selection ai une c...

forum.excel-pratique.com

Par contre, Saumon80 est le seul à ne pas signaler qu'il multi-poste sa question
(Pourtant la charte explique bien les tenants et les aboutissants)

 

[fanch55]

Egalement est il possible de lier cela a la fonction copier au lieu de coller?

Je ne comprend pas, on change la couleur de quoi quand on copie ?
le collage étant optionnel, cela n'a plus de signification si rien n'est collé ...

 

[Staple1600]

fanch55

Houhou
(cf message#6)

 

[fanch55]

fanch55

Houhou
(cf message#6)

Salut @Staple1600 , je viens de voir .
Par contre, j'ai pas compris ton code, je ne vois pas l'action de la Mfc par la suite ?

 

[Staple1600]

Re

Bah, si tu testes mon code, ca mets de la couleur en colonne C
C'est dégradé, c'est joli.

Mais comme Saumon est parti frayer dans un autre fleuve

PS: mon Houhou, c'est parce que je croyais que tu m'avais pas vu passé.

 

[Saumon80]

Merci beaucoup pour vos reponses.
Autant pour moi , je dois avouer ne pas avoir pris connaissance de la charte et ne savais pas qu'il ne fallait pas multi-poster!

En fait le code de fanch est nickel mais je souhaite juste apporter 2 modifications :

1- Ne pas appeler le color picker mais appliquer automatiquement une couleur aleatoire a chaque copie.
2- L'appliquer a la copie et non au collage car je souhaite coller en dehors d'excel , je souhaite quand je copie une plage la colorer d'une couleur aleatoire pour savoir que je l'ai coller.

Merci encore

 

[Dranreb]

Bonsoir.

appliquer automatiquement une couleur aleatoire a chaque …

Parmi combien de couleurs différentes possibles ?
(trop peu multiplierait les répétitions, mais trop les rendrait indiscernables)

 

[Saumon80]

Bonjour et merci pour votre reponse;

Pas plus dune dizaine car il sagit surtout de differencier entre les 2 ou 3 copies et il y a une dizaine de copies en general;

Merci encore;

Cordialement

 

[Dranreb]

Bonjour.
Un changement de teinte devrait suffire alors. Mais pourquoi aléatoire ? Un roulement sur 12 couleurs par exemple ne serait-il pas mieux ?
Comme ça par exemple :

Option Explicit
Private NuCoul As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim Clr As New Couleur
   Clr.EAF 500, (NuCoul + 0.5) / 2
   Target.Interior.Color = Clr.C: Target.Font.Color = Clr.CP
   NuCoul = NuCoul Mod 12 + 1
   End Sub

 

[fanch55]

2- L'appliquer a la copie et non au collage car je souhaite coller en dehors d'excel , je souhaite quand je copie une plage la colorer d'une couleur aleatoire pour savoir que je l'ai coller.

Il n'y a pas de solution miracle pour trapper une copy .
Copier ne veut pas dire forcément Coller .
Peut-être en faisant une usine à gaz pour surveiller le Presse-Papier , je vais y réfléchir ...