MFC avec formule petit bug

bonjour a tous

Je joins un petit fichier car j'ai un petit bug dans la formule

merci de votre aide j'ai inscrit le problème dans le fichier

cordialement

Je ne pense pas que cela puisse se résoudre avec une MFC.

S'il s'agit d'interdire la saisie d'une 7ème occurence, c'est peut-être faisable avec une validation de données, sinon, je ne vois que VBA comme dans cet exemple avec un Code de Feuil1 (après avoir supprimé les MFC existantes)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E5:E100")) Is Nothing Then
Set MaPlage = Worksheets("Feuil1").Range("E:E")
 valeur = "b1"
 x = Application.CountIf(MaPlage, valeur)
 If x > 6 And Target.Offset(0, 1) = "c" Then Target.Interior.ColorIndex = 3
End If
End Sub

Cordialement

bonjour Amadéus

OK pour ce code par contre si je fais une erreur d'un 7 iem cela passe en rouge mais si je supprime ce 7 ieme, la couleur rouge ne s'efface pas.

est il possible de la faire disparaitre en même tant que la 7 iem occurrence

merci

Bonjour

Rajoute la ligne surlignée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E5:E100")) Is Nothing Then
Set MaPlage = Worksheets("Feuil1").Range("E:E")
 valeur = "b1"
 x = Application.CountIf(MaPlage, valeur)
 If x > 6 And Target.Offset(0, 1) = "c" Then Target.Interior.ColorIndex = 3
 If Target = "" Then Target.Interior.ColorIndex = xlNone
End If
End Sub

Cordialement

ok ça fonctionne par contre si je marque autre que b1 il me le conte comme 7 iem occurence?

je ne dois pas dépasser plus de 6 fois le texte b1

cordialement

c bon oups oublie d'enlever la mfc

est ce que peux en faire autent pour les textes b2 b3 b4 b5 b6 en plus

cordialement

Bonjour

Oui, tu remplaces

Valeur="b1"

par

Valeur=Target

Cordialement

impeccable

parfait

merci Amadéus

cordialement