Discussion :

[a23peter43]

Bonjour !
J'ai pu trouver ces informations sur la FAQ d'Excel :

"Comment empêcher l'écriture dans une cellule ?

Sélectionner la (les) cellule(s).
Menu Données.
Validation
Dans la liste déroulante "Autoriser:", choisissez "Personnaliser".
Dans le champ "Formule:", saisissez =""
Cliquez sur le bouton OK pour valider."

C'est exactement ce qu'ile me faut mais j'aimerais l'adapter en VBA pour mon fichier. J'ai donc utiliser l'enregistrement de macros et j'ai obtenu ce ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Columns("K:K").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

J'ai par contre la selection qui s'affiche à l'écran ce qui visuellement n'est vraiment pas top. Y a t-il un moyen qu'il fasse la protection s'en qu'on s'en aperçoivent ? (Sans avoir la colonne K grisée)

[joe.levrai]

Bonjour,

si j'ai bien compris, ça devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
With Columns("K:K").Validation
    .Delete
    .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="="""""
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

en effet, ta première de code sélectionnait l'intégralité de la colonne, ce qui génère l'effet visuel "colonne sélectionnée"

[a23peter43]

Yes c'est exactement ça ! C'est le ".Validation" que je cherchais en vain..

Merci beaucoup pour ton aide !