Eviter les doublons...

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 !

alias_2003

XLDnaute Occasionnel
Bonjour à tous
J'aimerais adapter le code suivant pour empêcher la saisie de doublons (défini par exemple comme valeur définie en A3 et B3 et C3 identique à celle entrée en A9 et B9 et C9). Je joins mon fichier pour que ce soit plus clair...


Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Colonne As Integer
    Dim Adresse As String
    
    'Définit la colonne à vérifier (1=Colonne A, 2=colonne B ...etc...)
    Colonne = 1
    'Vérifie si c'est la colonne cible a été modifiée
    If Target.Column = Colonne Then
    
        'Recherche si la nouvelle donnée existe déjà dans la colonne.
        Adresse = Columns(Colonne).Find(What:=Target.Value, After:=Target.Offset(1, 0), LookAt:=xlWhole, _
            SearchDirection:=xlNext).Address
            
        'Si l'adresse de cellule trouvée ne correspond pas à la cellule modifiée, cela
        'signifie qu'il y a un doublon dans la colonne.
        If Adresse <> Target.Address Then
        
            MsgBox "Attention ! '" & Target & "' existe déjà dans la cellule " & Adresse 
            'Suppression de la donnée
            Target.Value = ""
            Target.Select
         End If
    End If
  
End Sub

Merci de votre aide,
Bonne journée
 
Dernière édition:
Re : Eviter les doublons...

Bonjour et merci à vous 2 de vos réponses !
Le problème est que ce fichier est destiné à être utiliser par d'autres utilisateurs et j'aurais bien aimé (mais bon à l'impossible, nul n'est tenu...) qu'un message s'affiche en cas de double saisie...
Bonne journée !
 
- 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
203
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
2
Affichages
153
Réponses
3
Affichages
194
Retour