Interdir Doublon

[dreamseb]

Bonjour,

Je me suis aventuré dans un petit système que je n'arrive pas à finaliser.

Il s'agit de réaliser des devis (onglet "model") qui, une fois finit, s'archive dans une sorte de tbl dans un autre onglet ("archive").

Comme interdire la saisie d'une valeur (référence du devis) dans la cellule de l'onglet "model" si cette valeur a déjà été archivé dans l'autre onglet colonne c de "archive".

En plus d'un message d'erreur, il faudrait que la saisie de cette valeur cellule (onglet "model") s'efface...

Je ne sais pas faire, j'ai cherché sans succès...

Je vous remercie d'avance de m'avoir lu et peut être même aidé !!

 

[Guest]

Re : Interdir Doublon

Bonjour DramSeb,

J'ai fait un truc comme ça hier vas jeter un coup d'oeil, essaie d'adapter et si tu n'y arrive pas, reviens.

A+

 

[dreamseb]

Re : Interdir Doublon

Boujour,

Super Merci Beaucoup... !!! Ca m'a sacrement fait avancer...

Comment dois-je m'y prendre pour que se ne soit qu'une cellule de la colonne de saisie qui soit concernée par la vérification des valeurs utilisées ?

Merci 😉

 

[Guest]

Re : Interdir Doublon

Bonsoir DreamSeb, le forum,

En admettant que la cellule à contrôler soit A1 et que j'ai bien compris ta demande:

Private Sub Worksheet_Change(ByVal Target As Range)
    [COLOR=seagreen]'Sortir si la cellule n'est pas A1 ou si elle est vide[/COLOR]
    If Target.Address(0,0) <>"A1" Or Target.Text = vbNullString Then Exit Sub
 
    Dim c As Range
 
    [COLOR=seagreen]'Recherche de la valeur de A1 dans la colonne A de la feuil2[/COLOR]
    Set c = Feuil2.Range("A:A").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
 
   [COLOR=seagreen]'Si une cellule equivalente a été trouvée[/COLOR]
    If Not c Is Nothing Then
        [COLOR=seagreen]'Si la couleur de fond a pour index 3 (rouge dans la palette defaut)[/COLOR]
        If c.Interior.ColorIndex = 3 Then
            MsgBox "Valeur existante : " & Target.Text & " en feuil2!" & c.Address, vbCritical, "Erreur saisie"
           [COLOR=seagreen]'Effacer le contenu de A1 sans rappeler l'évènement change[/COLOR].
            Application.EnableEvents = False
            Target.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

A+

 

[dreamseb]

Re : Interdir Doublon

Bonjour,

Je test rapidement, un grand merci en attendant !

@+