MFC avec 4 conditions

  • Initiateur de la discussion Initiateur de la discussion Guido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guido

XLDnaute Accro
Bonjour le forum

Un pti probleme et une question

En celulles A1 se trouve un chiffre exp le N° 4

En celulles D5 E5 F5 G5 j'ai les chiffres 7 dans D5 - 4 dans E5 - 9 dans F5

10 dans G5.

Si l'un de ses chiffres se trouve se retrouve dans la celulles A1

La celulles devient Rouge et Clignoterais ...

Merci

Guido
 
Re : MFC avec 4 conditions

Bonjour

pourles MFC avec plus de trois cnditions il faut passer par le VBA

Heureusement myDearFriend est là et nous a créé un super fichier que je te joins


A+
 

Pièces jointes

Re : MFC avec 4 conditions

Bonjour à tous,

Sylvain59 : tu joints "un de mes fichiers exemple", je pense qu'il préférable d'orienter notre ami vers la dernière version de la fameuse mDFMFCMultiple

Avec toute mon amitié mon cher Sylvain et au plaisir de te lire
A+ à tous
 
Re : MFC avec 4 conditions

Bonsoir

C'est presque ça ..

Les chiffres changent souvent

celui qui est seul change et les quatres autre aussi.

Le clignotement peut il s'arreter apres 10 sec env ??

Merci pour tout

Guido
 
Re : MFC avec 4 conditions

Bonjour,

Voici une autre solution:


On connaît la mise en forme conditionnelle d’Excel. Mais celle-ci est limité à 3 conditions.
Pour palier cette limite voici une solution :

Placer ces macros dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mev_01 1, 1, 10, 1
mev_01 17, 7
End Sub
‘=======================================================
Private Sub mev_01(l1, c1, Optional l2, Optional c2)
If IsMissing(l2) Then l2 = l1
If IsMissing(c2) Then c2 = c1
Set zone1 = Range(Cells(l1, c1), Cells(l2, c2))
Dim cellule As Object
For Each cellule In zone1
With cellule.Interior
.ColorIndex = none
.Pattern = xlSolid
End With
cellule.Value = UCase(cellule.Value)
Select Case UCase(cellule.Value)
Case “DA”: cellule.Interior.Color = RGB(255, 200, 80)
Case “SE”: cellule.Interior.ColorIndex = 5
Case “PF”: cellule.NumberFormat = “””--> “”@”
End Select
Next
End Sub

La macro mev_01 (Mise En Valeur) possède 4 arguments dont 2 facultatifs.

mev_01 arg1, arg2, arg3, arg4

arg1: numéro de la première ligne de la plage à mettre en valeur
arg2: numéro le la première colonne de la plage
arg3: numéro de la dernière ligne de la plage
arg4: numéro de la dernière colonne de la plage

Par ces arguments on peut affecter une mise en valeur à une plage de cellule.
Si arg3 et arg4 ne sont pas définits, on considèrera qu’ils prennent les valeurs respectives arg1 et arg2. Dans ce cas la plage se limite à une seule cellule (mev_01 arg1, arg2).
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
646
Retour