Vba-reportcolor

[Celeda]

Bonjour,

Je suis à la recherche d'une macro qui me reporterait uniquement les cellules coloriées par mefc (dans mon fichier de travail, ici fait manuellement) dans une autre colonne, les unes en dessous des autres.
Cette liste crée devrait se mettre à jour alors je ne sais pas trop : ou elle se met à jour en fonction de la mefc qui colorie la cellule initiale ou on redéclenche la macro.
Qu'en pensez-vous ?

A l'avance, je vous remercie pour votre aide.








Et toujours en pensée : post dédié en toute amitié à notre ami formuliste et xldnaute : Jean-Pierre qui est avec nous pour continuer à essayer d'aider les autres et partager nos connaissances

 

[mromain]

Re : Vba-reportcolor

Bonjour Celeda,

Je ne répond pas directement à ta question, mais regarde ce fil.
Il est très instructif 😉

a+

 

[Celeda]

Re : Vba-reportcolor

Bonjour,

Merci mromain pour ce fil effectivement très interessant mais je t'avoue que je ne vois pas trop .....🙁 sorry

dans mon cas, je souhaite reporter les VALEURS (mot oublié dans ma demande) qui sont coloriées dans la colonne A.
Je ne veux pas mettre en place une mfc.
Mais j'ai peut-être pas tout compris dans ce post.

Merci à l'avance.

 

[tbft]

Re : Vba-reportcolor

Bonjour tout le monde

un essai

Sub essai()
Dim entree As Range
Dim nb_col As Long, nb_lig As Long
Dim col As Long, lig As Long, nb As Long
Dim res() As Variant
  Set entree = ActiveSheet.UsedRange
  nb_col = UBound(entree.Value, 2)
  nb_lig = UBound(entree.Value, 1)
  For col = 1 To nb_col
    For lig = 1 To nb_lig
      If (entree(lig, col).Interior.ColorIndex <> xlColorIndexAutomatic) And (entree(lig, col).Interior.ColorIndex <> xlColorIndexNone) Then
        nb = nb + 1
        ReDim Preserve res(nb)
        res(nb) = entree(lig, col).Value
      End If
    Next lig
  Next col
  ActiveSheet.Range(Cells(2, 3), Cells(2, 3 + nb)).Value = res
End Sub

le résultat est écrit en D2,D3,....

 

[Celeda]

Re : Vba-reportcolor

Bonsoir,

Extra tu te sers ubound (Zon s'était évertué à m'expliquer ....) c'est exactement ce que je voulais.
Néanmoins, je n'arrive pas à remettre en vertical au lieu de horizontal
le report de données soit :
ActiveSheet.Range(Cells(2, 3), Cells(2, 3 + nb)).Value = res

???
Merci beaucoup pour ton aide.

 

[Bebere]

Re : Vba-reportcolor

bonjour Celeda,Tbft
comme suit
ActiveSheet.Range(Cells(2, 3), Cells(2 + nb, 3)).Value = Application.Transpose(res)
rmq res(0) est vide
à bientôt

 

[Celeda]

Re : Vba-reportcolor

Bonsoir,

Merci Bébere pour le complément, cela marche très bien même en changeant la colonne de destination: mais sans vouloir t'embêter, comment dois-je comprendre : rmq res(0) est vide.

Merci.

 

[tbft]

Re : Vba-reportcolor

bonsoir

c'est normal que res de(0) soit vide

au debut du code je tape
option explicit : cela me force à declarer les variables code plus
optbion base 1 : qui fait demarrer les tableaux à 1 (donc res(0) n'existe pas chezmoi..
a demain

 

[Bebere]

Re : Vba-reportcolor

bonjour Celeda,Tbft
pour ta doc Celeda, en changeant un peu le code de Tbft
Sub essai()
Dim entree As Range
Dim lig As Long, nb As Long
Dim res() As Variant

nb = 1

Set entree = ActiveSheet.UsedRange

For lig = 1 To entree.Rows.Count
If (entree(lig, 1).Interior.ColorIndex <> xlColorIndexAutomatic) And (entree(lig, 1).Interior.ColorIndex <> xlColorIndexNone) Then
ReDim Preserve res(nb)
res(nb) = entree(lig, 1).Value
nb = nb + 1
End If
Next lig

nb = nb - 1 'évite #N/A dans la feuille

ActiveSheet.Range(Cells(2, 3), Cells(2 + nb, 3)).Value = Application.Transpose(res)

End Sub
à bientôt

 

[Celeda]

Re : Vba-reportcolor

Bonjour,

Cette macro fonctionne très bien Bebere et je te remercie pour ton aide.

Mais...cela se complique un peu oh un tout petit peu :
je place cette fois-ci le fichier pour que l'on comprenne mieux mon souci de report de valeurs selon la mfc.
Je n'arrive pas à modifier le code pour que la valeur de A en violet, se place dans la colonne en K3 et ensuite je souhaite dupliquer le code aux colonnes
B et C dont les valeurs en mfc doivent se reporter respectivement en colonnes Q3 et V3.

J'espère que je suis claire....et pardonnez moi pour la confusion des esprits 😉

 

[Si...]

Re : Vba-reportcolor

Bonsoir

un exemple de façon simpliste : 3 petits tours (puis, si... pas bon, s'en va).
Le test se fait avec la condition de la MFC.

 

[Celeda]

Re : Vba-reportcolor

Bonjour,


Chapeau bas monsieur ou madame Si... perfect!!
Un grand merci.

Par contre, cela met un certain temps à se faire, je pense que cela doit être du à la mfc.......mais parfait.

EDIT : la macro ne restitue pas dans la colonne V la totalité des valeurs : elle s'arrête à la 81èime c'est bizarre ??????

Je voudrais tous vous remercier encore pour votre aide et j'espère bien pouvoir vous retourner l'ascenceur un jour...pas en vba of course.

De toute manière, j'ai encore plein de choses à vous demander!!!lol😀
Grand merci.

 

[Bebere]

Re : Vba-reportcolor

bonjour Celeda,Tbft,Si
apporté quelques changements au code de Si
à bientôt

 

[Celeda]

Re : Vba-reportcolor

Bonjour,

Bebert, tu es comme :

une cerise sur le sunday!!!!

un dauphin qui surf sur les problèmes !!!!

un ciel bleu sans nuage!!!

(désolée pour les clichés)
je te fais le salut boudhiste 🙂

et une grosse bise.

Ainsi qu'à tous ceux qui viennent nous aider (sans oublier ma copine momo qui vient de me refiler une bonne formule qui a engendré une question vba que je vais bientôt vous soumettre 😀).

 

[Bebere]

Re : Vba-reportcolor

bonjour
Celeda,ton imagination dépasse ta pensée
je trouve que tu es rafraichissante à lire
pour les clichés ne te tracasse pas,pour le moment je suis sur mon nuage et çà plane pour moi
bonne fin de journée,quel beau dimanche
à bientôt