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

richard31 · 24 Octobre 2023

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

ericcool · 24 Octobre 2023

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 · 24 Octobre 2023

ericcool à dit:
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 · 24 Octobre 2023

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

fanch55 · 24 Octobre 2023

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 ... )

richard31 · 24 Octobre 2023

sylvanu à dit:
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

Super ça fonctionne supe bien ! Merci ^^

fanch55 · 24 Octobre 2023

Comme le précise @sylvanu , la mfc est une indication qui n'interdit ou ne bloque rien .
Avez-vous testé la validation de données ?

richard31 · 24 Octobre 2023

fanch55 à dit:
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 ... )
Regarde la pièce jointe 1181823

Merci pour ton retour cela m'aide !

richard31 · 24 Octobre 2023

richard31 à dit:
Merci pour ton retour cela m'aide !

c'est top

fanch55 à dit:
Comme le précise @sylvanu , la mfc est une indication qui n'interdit ou ne bloque rien .
Avez-vous testé la validation de données ?

oui c'est résolu suite aux informations ici ! merci !

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

richard31

XLDnaute Occasionnel

Pièces jointes

ericcool

XLDnaute Nouveau

richard31

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

richard31

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

richard31

XLDnaute Occasionnel

richard31

XLDnaute Occasionnel

Discussions similaires