Couleur rouge

[Bruno]

Bonjour a tous

J'ai plusieurs codes dans la colonne A.

Je voudrais selectionner la Range('A1:A' la 1° cells.Color.interior.rouge).select

Merci d'avance et bon week end

@+
Bruno

 

[Dan]

Bonjour,

Place ce code en VBA :

Sub test()
'Macro par DAN pour Bruno le 14/04/06
'Macro pour [B]Lien supprimé[/B]
For Each c In Range('A1:A10')
If c.Interior.ColorIndex = 3 Then c.Activate: End
Next c
End Sub

 

[Bruno]

Merci DAN de ta réponse

Mais cela selectionne seulement la cells qui est en rouge.

mais pas ma range(A1:A' & la cells qui est en rouge.

@+
Bruno

 

[Hervé]

bonjour bruno, salut dan

peut etre comme ceci :

Dim i As Integer

For i = 1 To 1000 ' adapter
        If Cells(i, 1).Interior.ColorIndex = 3 Then
                Range('a1', Cells(i, 1)).Select
                Exit Sub
        End If
Next i

salut

 

[Bruno]

Bonjour Hervé

Cela marche trés bien.

Seulemment la couleur de la cellule est provoquer par un format conditionnel et la cela ne marche pas. As tu un autre solution ?

Merci

@+
Bruno

 

[Gruick]

Bonjour à tous
C'est un problème les MFC, tout test sur la couleur renverra -4142 je crois, et en plus ça ralentit les macro. Ca ne devrait même pas exister.
Je préfère une solution programmable pour colorier, car la MFC c'est plutôt une couche finale, mais c'est limité à trois conditions.
Soumets-nous ton problème, on verra bien ce qu'on peut faire.
A toi

 

[Bruno]

Bonjour Gruick

Dans un tableau , la colonne H je fais un calcul sur 20 % et dans la colonne G un calcul sur 80%.

Je fais une condition pour mettre en couleur la donnée la plus proche des 20% de la colonne H et celle des 80% de la colonne G.

En suite je selection le code de la cellule A1 au code de valeur mise en couleur.

Je ne peux mettre de fichier en exemple car le suis a mon travail et je suis limite au niveau des accés internet.

J'espere etre clair.

à+
Bruno

 

[JORDAN]

Bonjour tous le monde,

Juste une info sur les mfc

Elles ne sont pas limitées à 3 conditions, Didier en a fait une démo.

mDF_MFCmultiples_v2

A plus

 

[Hervé]

bonjour tout le monde


bruno, pourrais tu nous donner la formule que tu met dans ta mefc pour renvoyer ta couleur rouge.

de plus apparement cette cellule rouge ne se trouve pas dans la colonne A, mais dans la H, c'est ca ?

salut

 

[Bruno]

Re bonjour a tous

Je viens de trouver une solution.

Je fais une Formule dans la colonne L

=SI(H2=$M$1;'A';SI(G2=$L$1;'B';''))

Sub Sur20()
Dim i As Integer

For i = 1 To 1000' adapter
If Cells(i, 12).Value = 'A' Then
Range('a1', Cells(i, 1)).Select
Exit Sub
End If
Next i
End Sub

Sub Sur80()
Dim i As Integer

For i = 1 To 1000 ' adapter
If Cells(i, 12).Value = 'B' Then
Range('a1', Cells(i, 1)).Select
Exit Sub
End If
Next i
End Sub

Bon week end à tous

@+
Bruno

 

[Bruno]

Hervé

Voici la formule de ma mefc

=SI($H4=$M$1;VRAI;FAUX)

M1 est égale a la valeur la plus proche de 20%

De plus je mets toute la ligne en rouge.

@+
Bruno

 

[Gruick]

Aïlle,
Juste le temps d'aller faire une course avec Madame, et hop, des réponses fusent.
Jordan, bien que peu ami des MFC, je vais aller voir les solutions de MDF.
Mais si on questionne sur leur couleur, on obient -4142, alors qu'on a mis 3.
J'avais posté un truc la dessus d'ailleurs.
Félicitations Bruno, tu as trouvé finalement tout seul, et en plus tu livres les fruits de ta reflexion, donc super, et bien dans l'esprit du forum.
Je n'ai pas été bien utile cette fois ci...