Message de saisie conditionnel

Version imprimable

Bonjour à tous,

Je souhaite faire apparaître un message de saisie conditionnel sur une celllule.
J'ai commencé ce code via l'enregistreur de maco mais y-a-t-il une autre solution ?
En effet, en utilisant le pas à pas VBA ne reconnaît pas le code à partir de "With".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 If mavariable Then With mavariable .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "mon titre" .ErrorTitle = "" .InputMessage = "Le texte" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End If
Merci de votre aide.

08/01/2015, 12h01
casefayere

Bonjour,

Qu'est-ce que "mavariable" ? elle est déclarée ou et comment ?

Pourquoi ne pas se contenter de "MsgBox" ?
08/01/2015, 12h14
Renato75

Bonjour,

"mavariable" correspond au nom d'une cellule.
Je ne veux pas utiliser de "MsgBox" pour raison esthétique en réalité.

J'ai réussi à régler le problème de la non-lecture du "With". Mais j'ai un problème lorsque le code arrive à .Add, ce message apparaît : "Erreur d'exécution 438".

Merci de votre aide
08/01/2015, 12h17
casefayere

Citation:

"mavariable" correspond au nom d'une cellule.

Je te conseille, alors de publier tout ton ou tes code(s) relatif(s) à la demande

Et voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
     If [rg_data_object] = "Cheval" Then
 
        With [rg_data_race]
 
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "titre"
            .ErrorTitle = ""
            .InputMessage = "texte"
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
 
        End With
 
    End If

08/01/2015, 15h08
casefayere
mets-toi à ma place, que veux-tu que je comprenne
Code:

1 2 3 If [rg_data_object] = "Cheval" Then With [rg_data_race]
je ne vais pas te tirer les verres du nez "rg_data_object", qu'est-ce que c'est, "rg_data_race" qu'est-ce que c'est ?, je ne suis pas devin, sans explications claires, il ne faut plus compter sur moi
08/01/2015, 15h26
Renato75

[rg_data_object] & [rg_data_race] correspondent à 2 cellules différentes : D3 & D8 respectivement. ok pour toi ?

Merci de ton aide
08/01/2015, 16h07
casefayere
pas assez, ce sont des variables déclarées en Range ? exemple
Code:

1 2 3 4 5 6 Dim rg_data_race as Range ........ set rg_data_race = Range("D8") .... With rg_data_race ....
sinon, c'est normal que ça ne fonctionne pas
08/01/2015, 18h13
Renato75

Non ce sont des noms que j'ai donné à des cellules.
Je ne les ai donc pas déclaré en Range ou autre.

Thx

Bonjour,

Salut Casefayere ;)

Je pense que Renato essaie d'ajouter une validation à une cellule qui a un nom défini (niveau classeur?).

Si c'est cela, le code devrait ressembler à

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If [rg_data_object] = "Cheval" Then
 
    With ThisWorkbook.Names("rg_data_race").RefersToRange.Validation
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "titre"
        .ErrorTitle = ""
        .InputMessage = "texte"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
 
    End With
 
End If

Je n'ai pas testé.

Cordialement,

PGZ

08/01/2015, 19h14
casefayere

Bonjour pgz,

Heureusement que tu interviens, je ne comprenais pas la démarche et allais m'arracher les cheveux

Bonne soirée
10/01/2015, 15h37
Renato75

Bonjour,

Je test vos conseils et vous revient d'ici peu.

Merci