Bonjour @scalaze, @DocteurExcel,
J’avais commencé a travailler sur ton fichier d’hier et puis par manque de temps, il m’a fallu abandonner.
Aujourd’hui je te fait une proposition avec le dernier fichier pour les 3 colonnes “B, C, D”.
-
J’ai supprimé tes macros.
-
Alors pour les valeurs affichées dans la colonne “D” et qui ne sont pas dans la colonne “B” j’ai utilisé “Validation des données”
Avec cette formule:
Si tu cliques sur “Réessayer”, alors la valeur reste dans la colonne “D” et “VRAI” apparaît dans la colonne “C” une MFC fond rouge et police blanche indique que la valeur choisie n’existe pas en colonne “B”.
MFC rouge formule:
=SI(D4<>"";ESTNA(RECHERCHEV(D4;$B$4:$B$13;1;0));"")=VRAI
Si tu cliques sur “Annuler” alors la valeur mise dans la colonne “D” et qui n’existe pas dans la colonne “B” s’efface.
Si la valeur colonne “D” existe en colonne “B” alors on met “OK” dans la colonne “C” et on met une MFC verte dans les colonnes “B & D”.
Formule colonne “C”:
En “C4”:
=SI(NB.SI($B$4:$B$13;INDEX($B$4:$B$13;EQUIV(D4;$B$4:$B$13;0)))=1;"OK";SI(D4<>"";ESTNA(RECHERCHEV(D4;$B$4:$B$800;1;0));""))
J’ai du mettre 2 formules pour les MFCs vertes car d’après ce que j’'ai compris il peut y avoir des cellules vides dans la colonne “D”.
Formule MFC colonne “B”
=NB.SI($D$4:$D$800;B4)>0
Formule MFC colonne “D”
=SI(ESTNA(INDEX($B$4:$B$800;EQUIV(D4;$B$4:$B$800;0)));0;1)=1
Enfin le traitement des doublons colonne “D”
Une macro dans la “Feuil1” avec un “MsgBox” qui avertira qu’il s’agit d’un doublon et qu’il sera automatiquement supprimé lors de l’appuis sur “OK”.
Code VBA:
Public DOUBLON As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If DOUBLON Then Exit Sub
If Not Application.Intersect(Target, Columns("D")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("D:D"), Target) > 1 Then
DOUBLON = True
MsgBox ("Attention DOUBLON" & Chr(10) & "Ce code existe déjà !" & Chr(10) & _
"Il sera auomatiquement supprimé")
Target.ClearContents
DOUBLON = False
End If
End If
End Sub
Ton fichier joint ICI==> Validation-sortie non fonctionnelle V1.xlsm (18,9 Ko)
Cordialement.
Edit: Salut @Mimimathy, mes explications détaillées, font que je viens juste de voir que tu avais répondu, je vais regarder ta proposition.
Cordialement.