Bloquer une cellule en lecture seule (URGENT)

bfiguig -  
 bfiguig -
Re-bonjour,
je renouvelle ma question, comment rendre une cellule grisée c'est à dire en lecture seul lorsqu'on selectionne une valeur dans une liste deroulante
merci de me donner un coup de main c'est urgent
cordialement
A voir également:

4 réponses

Ankhsuamon Messages postés 50 Statut Membre 2
 
Bonjour,

Le principe est le suivant lorsque tu quittes ta liste deroulante (event Lostfocus)
si la valeur selectionnee dans la liste est celle de grisement (list.listindex='MyValue') alors locker ou griser la cellule.
(text1.locked=true ou text1.enabled=false)

Ma reponse est generale, car tu ne precises pas sur quelle application.
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 281
 
Bonjour,

déjà on ne multiplie pas les posts, on le fait remonter en ajoutant un message. Merci de mettre l'un des 2 en résolu.
Ensuite ça ne pourrait se faire que par macro vba mais ça serait bien compliquer les choses vu que si la personne à un clic nerveux et sélectionne une mauvaise entrée il faudra prévoir la possibilité de modifier.
Beaucoup de boulot pour pas grand chose avec les éléments que l'on a...
eric
0
bfiguig
 
Bonjour,
merci de vos reponse, j'ai essayé ce que vous m'avez dit malheureusement ca marche pas
cordialement
0
bfiguig
 
Bonjour à tous,

j'ai un autre probleme, voila j'ai une liste deroulante, des que je selectionne une valeur, je dois remplir des cellules par des données.
voila le code que j'utilise :

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo gestion_erreur
If Target <> "" And Cells(8, 2) = "9i" Then
Cells(11, 5) = "db_block_size"
Cells(12, 5) = "db_block_buffers"
Cells(13, 5) = "shared_pool_size"
Cells(14, 5) = "large_pool_size"
End If

If Target <> "" And Cells(8, 2) = "10g" Then
'If Cells(8, 2) = "10g" Then
Cells(11, 5) = ""
Cells(12, 5) = ""
Cells(13, 5) = ""
Cells(14, 5) = ""
End If

quand je selectionne une valeur dans la liste deroulante ca tourne tout le temps
merci de me dire pourquoi ca tourne sans fin

cordialement
0