Microsoft 365 RESOLU empêcher écriture doublons dans colonne entrées spécifiques

richard31

XLDnaute Occasionnel
Bonjour
je possède un fichier excel qui j'ai mis en place qui permet de gérer piloter des demandes de projet. Il fonctionne parfaitement. C'est sur Office 365. Donc pas accès au VB tout est en formules ce qui complexifie les choses.

j'ai une colonne qui va de A16 à A2000
les entrées sont du type numérique mais parfois avec un codage qui à un tiret -. ça donne comme exemple 132-1 ou 132-2 ou 12-1 ou simplement un chiffre entier 125
Je sais très bien le faire avec chiffres numériques entiers mais pas avec le tiret qui vient foutre la merde. surtout en formules.

Comment faire pour que l'on ne puisse pas rentrer deux fois la même valeur dans la colonne A qu'elle soit un chiffre entier ou avec un tiret - ? style ne pas pouvoir rentrer 132-2 dans une cellule et la même valeur sur une autre cellule de la même colonne A? C'est possible en formule ?

voilu
 

Pièces jointes

  • Classeur1 tests.xlsx
    127 KB · Affichages: 3

ericcool

XLDnaute Nouveau
Bonjour le forum
Bonjour richard31

A tester. EPar formule, je ne connais pas donc via le VBA.
J'ai placé en code une plage de A1 à 10.

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountIf(Range("A1:A10"), Target) > 1 Then MsgBox "Doublon !!!!", vbCritical, "Oups !!!!"
If Application.CountIf(Range("A1:A10"), Target) > 1 Then Target = ""
End Sub

Bonne fin de journée à toutes & à tous
@+ Eric c
 

richard31

XLDnaute Occasionnel
Bonjour le forum
Bonjour richard31

A tester. EPar formule, je ne connais pas donc via le VBA.
J'ai placé en code une plage de A1 à 10.

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountIf(Range("A1:A10"), Target) > 1 Then MsgBox "Doublon !!!!", vbCritical, "Oups !!!!"
If Application.CountIf(Range("A1:A10"), Target) > 1 Then Target = ""
End Sub

Bonne fin de journée à toutes & à tous
@+ Eric c
Bonjour
C'es excel WEB imposé je n'ai pas la possibilité de faire du vb d'ou mon problème :(
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Richard,
Par formule on ne peut pas interdire une valeur dans une cellule qu'on saisit.
Peut être qu'une MFC serait suffisant ?
On met en rouge les deux lignes qui ont un doublons, avec comme MFC en A16 :
VB:
=ET($A16<>"";NB.SI($A$16:$A$1000;$A16)>1)
S'applique à =$A$16:$D$1000
 

Pièces jointes

  • Classeur1 tests.xlsx
    136.7 KB · Affichages: 2

fanch55

XLDnaute Barbatruc
Salut à tous, une solution par validation
(ceci-dit, quand on impose d'utiliser une 2cv, il ne faut pas lui demander de tout faire comme une Ferrari ... ) ;)
1698157744426.png
 

Discussions similaires

L
Réponses
3
Affichages
552
LeGrosMatou
L

Statistiques des forums

Discussions
312 210
Messages
2 086 277
Membres
103 170
dernier inscrit
HASSEN@45