Eviter le copier coller dans plusieurs listes déroulantes

[phandil]

bonjour,

j'essaie de protéger les listes déroulantes du copier coller et de l'inscription manuel.

J'ai 3 listes déroulantes faisant à chaque fois références à 3 feuilles différentes qui ont chacune une liste nommé différente

Pour l'instant avec mes recherches j'ai trouvé comment protéger une liste mais pas moyen de protéger les 2 autres

Voici le code

Dim validation As Boolean
Dim validation1 As Boolean
Dim validation2 As Boolean

Dim trouvé As Boolean
Dim trouvé1 As Boolean
Dim trouvé2 As Boolean
validation = False
validation1 = False
validation2 = False

For Each cellule In Sheets("XXXX_test").Range("LISTE_TEST")
    If Target.Value = cellule.Value Then trouvé = True
Next
On Error Resume Next
validation = Target.validation.InCellDropdown
If validation = True And trouvé = False Then Target.ClearContents
On Error GoTo 0

For Each cellule In Sheets("XXXX_FRN").Range("liste_fournisseur")
    If Target.Value = cellule.Value Then trouvé1 = True
Next
On Error Resume Next
validation1 = Target.validation1.InCellDropdown
If validation1 = True And trouvé1 = False Then Target.ClearContents
On Error GoTo 0

For Each cellule In Sheets("XXXX_NIVEAU").Range("liste_niveau")
    If Target.Value = cellule.Value Then trouvé2 = True
Next
On Error Resume Next
validation2 = Target.validation2.InCellDropdown
If validation2 = True And trouvé2 = False Then Target.ClearContents
On Error GoTo 0


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Cells.SpecialCells(xlCellTypeAllValidation), Target) Is Nothing Then
    Application.CutCopyMode = False
End If
Application.EnableEvents = True
End Sub

Merci d'avance pour vos réponses

 

[phandil]

Re : Eviter le copier coller dans plusieurs listes déroulantes

J'avais déjà retravaillé le code pour le copier-coller ==> pas de problème

Seulement pour le premier point il y a un paramètre qui me semblait ingnifant mais qui visiblement prend tout son sens:

Dans ma liste déroulante j'ai un blanc !

et visiblement ce blanc qui peut être une option fait "sauter" la sécurité écriture

CF fichier en pièce jointe: changement de la liste essai1

 

[Papou-net]

Re : Eviter le copier coller dans plusieurs listes déroulantes

RE Phandil,

Effectivement, un blanc dans la cellule autorise une saisie non contrôlée par la validation des données. Pour y pallier, il suffit de décocher la case "Ignorer si vide". Cette option n'empêchera pas une valeur nulle dans la cellule.

Cordialement.

 

[phandil]

Re : Eviter le copier coller dans plusieurs listes déroulantes

ca ne fonctionne pas mais ce n'est pas grave, j'ai remplacé le blanc par un "-"

merci 😉

(j'ai un autre soucis encore suite au prochain épisode !)