XL 2010 inverse compte couleur

[poipoi]

Bonjour,
j'ai récupéré le code pour compter le nombre de cellules ayant la même couleur dans une colonne, Merci à Jacques Boisgontier (Fonction sommeCouleurFond)

Maintenant je souhaiterai pouvoir faire l'inverse, c'est à dire indiquer dans une cellule, le nombre de cellules devant avoir la même couleur dans une colonne..
exemple: en a1: 8 alors b1:b8 sont de la même couleur
est-ce possible.. ?
Joyeux Noël et mille mercis

 

[Staple1600]

Bonjour

Une MFC suffirait non?
Sinon voir ceci, pour un petit test
(à peaufiner: cellule vide etc...)

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(, 1).Resize(Target.Value).Interior.ColorIndex = 6
End Sub

EDITION:Bonjour job75

 

[job75]

Bonjour poipoi, JM, le forum,

Si c'est la couleur de fond de A1 qu'il faut copier :

If Int(Abs(Val([A1]))) Then [B1].Resize(Int(Abs(Val([A1])))).Interior.Color = [A1].Interior.Color

A+

 

[poipoi]

Bonjour Job75, Staple1600
je suis long à répondre toutes mes excuses .... faut s'occuper du repas de Noël!!

vos solutions sont super, merci beaucoup vous 2
par contre je n'arrive pas à adapter celle de Staple1600 (qui fonctionne nickel par ailleurs)
à mon projet.
en pièce jointe vous trouverez ce que je souhaite (si possible)
bon après-midi

 

[Staple1600]

Re

La mienne ne fonctionne pas nickel en l'état
Car si tu saisis abc dans une cellule, le nickel va se transformer en plomb

Ici, c'est un peu mieux

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) And Len(Target) Then
Target.Offset(, 1).Resize(Target.Value).Interior.ColorIndex = 6
End If
End Sub

NB: J'aurai eu reprendre la syntaxte de job75, mais je te laisse, poipoi, le soin de le faire
(et de faire les tests idoines)

 

[poipoi]

On s'en approche Staple, mais mes capacités sont trop limités pour triturer les codes et les obliger à correspondre à ce que j'aimerais.

En gros, ta solution fonctionne nickel (oui oui, j'y tiens) sauf que les cellules colorées doivent être situées à partir de la ligne 18 en remontant et sur la même colonne.
Ainsi si je tape le chiffre 3 en B20, il y aura 3 cellules dont le fond sera de la même couleur B16:B18... si j'ai 10 en H20, les cellules H11:H20 auront la même couleur de fond....

merci Staple1600

 

[Staple1600]

Re

Qui peut le peut plus, peut le moins
Il suffit d'essayer, d'échouer, d'essayer, d'échouer etc...
Et pour t'y aider tu as l'immensité du net
Moi, je dois retourner à table, c'est l'heure de la buche

 

[poipoi]

bien joué !

 

[job75]

Ras le bol du VBA, voyez la MFC du fichier joint.

 

[job75]

Bonjour poipoi, JM, le forum,

Si vous n'aimez pas les MFC voyez le fichier joint :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rc&, v As Range, col%, h&
Application.ScreenUpdating = False
With [B3:Q18]
    [A1].Copy .Cells 'copie A1 avec ses bordures
    rc = .Rows.Count
    Set v = .Rows(rc + 2).Cells 'ligne des valeurs
    For col = 1 To .Columns.Count
        h = rc - Int(Abs(Val(v(col))))
        If h Then
            With .Cells(1, col).Resize(h)
                .Interior.ColorIndex = xlNone
                .Borders.Weight = xlThin
                .Borders.ColorIndex = 15 'gris
            End With
        End If
    Next
End With
End Sub

A+

 

[poipoi]

Bonjour Job75, le forum
comme l'indiquait le post #3 hier , n'y arrivant pas en VBA, j'ai utilisé les MFC mais évidemment, je n'y avais pas pensé plutôt, je suis vraiment nul...
et aujourd'hui je trouve la solution de Job75.. merci beaucoup
et cerise sur la gâteau il double la mise en VB... que dire sinon encore merci..
bonne et joyeuse fin d'année à vous tous

 

[Staple1600]

Bonsoir

les MFC mais évidemment, je n'y avais pas pensé plutôt,

Pourtant tu aurais du
En répondant à la question que je te posais dans le message#2

 

[poipoi]

tu as raison JM, il s'agissait du post 2 et non le 3... erreur
la buche était bonne?

 

[Staple1600]

Re

Que nenni!
C'est bien dans le message#2 qu'on pouvait lire
(et c'est bien ce j'ai écris en gras dans mon message précédent)

Une MFC suffirait non?

PS: Oui, les bûches étaient bonnes et lègères.
20/20 à l'artisan boulanger/patissier