Empêcher de supprimer données dans une cellule avec une liste déroulante

[Prince1978]

Bonjour à toutes et à tous,

Je voudrais savoir s'il était possible d'empêcher de supprimer les données se trouvant dans une cellule avec une liste déroulante à l'intérieur...Réalisé depuis la validation de données.

Info plus : J'aimerais que la cellule ne soit jamais vide, avoir le choix seulement entre "Fournisseur" et "Client"

Merci

 

[kjin]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonjour,
Dans le menu Validation:
- dans options, décoche "Ignorer si vide"
- dans Alerte, coche "Quand des données non valide sont tapées"
Après avoir sélectionné un item dans la liste, il ne sera plus possible de taper autre chose ni d'effacer, à moins de modifier la validation si la feuille n'est pas protégée
A+
kjin

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonjour,

Merci pour ta proposition, je précise que avec cette manip on arrive quand même à effacer les données, le message d'erreur n'apparait pas ))

 

[kjin]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Re,


A+
kjin

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonjour,

Bizzarre que je n'ai pas ce résultat, tu peux me préparer un fichier exemple?

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,

Y'a que moi qui a ce problème?

J'ai fait mot à mot se que tu m'as dit, mais j'arrive quand même à supprimer des données, j'ai le message que si je saisie quelque chose dans la cellule.

Bonne nuit

 

[kjin]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,
Tester en réinsérant une nouvelle la liste de validation, à tout hasard
A+
kjin

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,

même avec ton fichier, j'y arrive à supprimer le contenu...Bizarre.

En vba on peut faire quelque chose?

 

[kjin]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,
Je suppose supprimer par le biais du menu contectuel (effacer le contenu)
En vba, dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target = "" Then Application.Undo
End Sub

A+
kjin

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,

Eviter de laisser la cellule blanche si aucun données est sélectionné depuis la liste déroulante

 

[kjin]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Je viens de comprendre et j'ai modifié mon message en conséquence
A+
kjin

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,

Oui c'est ca )

Merci beaucoup !

Bonne nuit à tous

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,

Dernière question, comment sa se passe si la cellule est fusionnée, j'ai essayé $A$1:$B$1, sans succès...

 

[Prince1978]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonjour,

kjin tu as une idée?

 

[kjin]

Re : Empêcher de supprimer données dans une cellule avec une liste déroulante

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:b1")) Is Nothing Then Exit Sub
If [A1] = "" And [B1] = "" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

Vba et les cellules fusionnées ne font pas bon ménage, déconseillé
A+
kjin