Discussion :

[Bubale]

Bonjour à tous,
je cherche à créer en VBA une contrainte d'écriture dans les cellules de ma sheet; Je m'explique: je voudrais que sur une plage de cellule, l'utilisateur n'ait le choix que d'écrire soit "oui", soit "non". Par exemple, qu'une liste déroulante s'affiche lorsqu'il clique sur une cellule en lui proposant les 2 choix. Je ne voudrais pas qu'il puisse y écrire autre chose. En gros, soit la case est vide, soit il écrit oui, soit il écrit non! Avez vous une idée?
Merci d'avance!
Bubale

[aalex_38]

Bonjour,


Est-ce la peine de faire ça en VBA, une liste de validation peut très bien le faire.

Tu peux aussi le faire manuellement et avec le recorder VBA t'inspirer du résultat.

[casefayere]

Bonjour Aalex, Bubale,
je pense comme toi Aalex mais comme j'ai déjà commencé le travail (inspiré de l'enregistreur) je donne le résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Selection.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="OUI;NON"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

bonne journée

[aalex_38]

Re,

En effet ce n'est pas toujours évident de manipuler les listes de validations par VBA, c'est pour ça que je dis ça.

En plus de ton code, je proposerai de supprimer la liste avant de la créer et de définir la selection, du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Sh.Range("E2").Validation ' Feuille et colonne à adapter
on error resume next
        .Delete
on error goto 0
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Oui,Non"
        .IgnoreBlank = True
        .ShowInput = False
        .ShowError = False
        Sh.Range("E2") = Split(.Formula1, ";")(1)
End With

[casefayere]

Re,
j'ai eu le tord d'enlever le

Code :

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

.delete

mais perso sur n'importe quel code de n'importe quel fichier, je n'ai pu avoir de résultat avec

Code :

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

1
2
3
on error resume next
  ....
on error goto 0

je pense pourtant inserer l'instruction aux bons endroits, je suis sous excel2007
Bonne journée
PS : ma réponse n'est pas une demande

[aalex_38]

bonjour,

Un exemple perso qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub reformat_Validation(ByVal ShName As String)
Dim Sh As Worksheet, x As Long
Set Sh = Worksheets(ShName)
 
'''On Error Resume Next
 
With Sh.Range("F2").Validation
    On Error Resume Next
            .Delete
    On Error GoTo 0
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Oui,Non"
        .IgnoreBlank = True
        .ShowInput = False
        .ShowError = False
        Sh.Range("F2") = Split(.Formula1, ";")(1)
End With
 
Set Sh = Nothing
 
On Error GoTo 0
 
End Sub