Discussion :

[Renato75]

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 :

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
    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.

[casefayere]

Bonjour,

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

Pourquoi ne pas se contenter de "MsgBox" ?

[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

[casefayere]

"mavariable" correspond au nom d'une cellule.

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

[Renato75]

Et voici :

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
     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

[casefayere]

mets-toi à ma place, que veux-tu que je comprenne

Code :

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

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

[Renato75]

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

Merci de ton aide

[casefayere]

pas assez, ce sont des variables déclarées en Range ? exemple

Code :

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

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

[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

[pgz]

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 :

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
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

[casefayere]

Bonjour pgz,

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

Bonne soirée

[Renato75]

Bonjour,

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

Merci