OVH Cloud OVH Cloud

Données > Validation > Liste

3 réponses
Avatar
kribot
Bonjour,

j'ai un petit souci qui est :

- j'ai une cellule contenant une liste déroulante de valeur
- un utilisateur copie une valeur contenu dans une cellule autre et v
pour la coller dans celle de ma liste
- j'ai réussi a éviter que ma liste disparaissent en réécrivant l
Coller par défaut d'excel (celui du control + v)
- par contre si la valeur collée n'est pas dans la liste exce
l'accepte quand même...

donc j'aimerais savoir si il est possible de gérer le fait de faire un
vérification lors de mon coller

je le colle ici


Code
-------------------

Sub PasteVal()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

-------------------


et je l'appelle comme ca dans l'auto_open


Code
-------------------

Application.OnKey "^v", "PasteVal"

-------------------


voila, Merci d'avance et bonne journée

--
kribo
-----------------------------------------------------------------------
kribot's Profile: http://www.msusenet.com/member.php?userid=20
View this thread: http://www.msusenet.com/t-334399

3 réponses

Avatar
AV
En supposant que ta liste de validation soit en A1, mets cette proc dans le
module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Address = "$A$1" Then Application.CutCopyMode = False
End Sub

AV
Avatar
kribot
je ne veux pas lui enlever la possibilité de copier coller dans la list
mais vérifier que ce qu'il colle est contenu dans cette list

--
kribo
-----------------------------------------------------------------------
kribot's Profile: http://www.msusenet.com/member.php?userid
View this thread: http://www.msusenet.com/t-334399
Avatar
AV
je ne veux pas lui enlever la possibilité de copier coller dans la liste
mais vérifier que ce qu'il colle est contenu dans cette liste


L'intérêt de la liste de Validation est, dans ce cas, égal à zéro...!
Si tu tiens, malgré tout, à controler que le résultat du collage est conforme au
contenu
Tu initialises une variable grace à l'évènement "Worksheet_SelectionChange" et
tu controles grace à l'évènement Worksheet_Change est la fonction Match que la
saisie fait partie de la liste sinon retour à la valeur d'origine contenue dans
la première variable
Je te laisse fignoler..

AV