Combobox sur MFC

[Claudy]

Bonjour à tous...
suite de mon fil de discussion'Comparer deux listes':
Si je me place sur une cellule avec MFC, je voudrais avoir un userform qui s'affiche...
J'ai essayé ceci , et ça va pas!

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.FormatConditions.Interior.ColorIndex = 45 Then
UserForm1.Show
End If
End Sub

En fait c'est un userform avec combobox qui me propose ma 'zone'

Merci d'avance,
Claudy :S

 

[Eric]

Pourquoi pas:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Interior.ColorIndex = 45 Then
UserForm1.Show
End If
End Sub

 

[Hervé]

Bonjour

Pas sur d'avoir compris.

Si tu veux qu'un userform apparaisse lorsque on sélection une cellule contenant une MEFC, qu'elle que soit la valeur saisie dans la dite cellule.

Alors ce code fait ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.FormatConditions.Count <> 0 Then
UserForm1.Show
End If
End Sub

Par contre si tu veux lancer un userform, suivant la couleur renvoyer dans la mefc, c'est plus compliqué.

Pourrais-tu préciser ta demande, ou mettre une pièce jointe

salut

 

[Hervé]

re

oups désolé eric, pas frais en ce dimanche.

Par contre ce que tu proposes ne fonctionne pas. on ne peut pas récupérer une couleur appliqué par une mefc, il faut utiliser un code spécifique .

Salut

 

[Claudy]

Quel code spécifique?
A+
:huh:

 

[Hervé]

re

personnellement, j'utilise celle de Laurent Longre que l'on peut trouver sur excellabo :

Sub ElleEstBelleMaMEFC()
'Laurent Longre, MPFE, correction 2003
Dim FC As FormatCondition, F1, F2
Dim C As Range
Set C = Cells.Find(Empty)
Application.ScreenUpdating = False
For Each FC In ActiveCell.FormatConditions
    C.FormulaLocal = FC.Formula1: F1 = C
  If FC.Type = xlCellValue Then
    Select Case FC.Operator
      Case xlBetween, xlNotBetween:
        C.FormulaLocal = FC.Formula2: F2 = C
        If FC.Operator = xlBetween Then If ActiveCell >= F1 _
          And ActiveCell <= F2 Then Exit For
        If ActiveCell < F1 _
        Or ActiveCell > F2 Then Exit For
      Case xlEqual: If ActiveCell = F1 Then Exit For
      Case xlGreater: If ActiveCell > F1 Then Exit For
      Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
      Case xlLess: If ActiveCell < F1 Then Exit For
      Case xlLessEqual: If ActiveCell <= F1 Then Exit For
      Case xlNotEqual: If ActiveCell <> F1 Then Exit For
    End Select
  Else
    If F1 Then Exit For
  End If
Next FC
If Not FC Is Nothing Then MsgBox FC.Interior.ColorIndex _
  Else MsgBox ActiveCell.Interior.ColorIndex
C.Clear

End Sub

Bon courage

Salut

 

[Claudy]

Ci joint fichier test , Merci, a+
Claudy [file name=Test_20050515153837.zip size=19443]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20050515153837.zip[/file]

 

[Robert]

Salut Claudy, Hervé, salut le forum,

Claudy j'étais autant impatient que toi d'avoir la réponse d'Hervé car je me suis cassé les dents sur ton problème. Alors quand il a balancé le code de Laurent Longre mon petit cerveau a mis un temps fou pour essayer de le comprendre. Ce fut long car le Laurent, y a pas Longre d'un doute, c'est du balèze de chez balèze. Sont code permet de verifier dans une cellule si elle contient une mise en forme conditionnelle avérée quel qu'en soit le type, le ou les opérateurs... La grande classe quoi. Comme Hervé t'as donné l'intégralité je me suis permis de l'adapter à ton cas en enlevant le superflu.
Content d'être passé par ce post je viens de me payer une leçon de VBA gratos... [file name=Claudy.zip size=35305]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Claudy.zip[/file]

 

[Hervé]

Bonjour

Voici ton fichier modifié.

Si je peux me permettre, j'ai remarqué que dans ton userform, que l'on clique sur valider ou annuler, le résultat est le même ????

Salut
[file name=Classeur1test.zip size=16313]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1test.zip[/file]

 

[Hervé]

re

oups salut robert

bye

 

[Claudy]

Ok, merci , à tous et aussi à LL
c'est exact ce qu'il me fallait
(Sé) Claudy de Namur (En Belgique)