Discussion :

[mouftie]

Bonjour,
j'ai un tableau qui peut être mis à jour soit par saisie direct, soit par un copier coller d'un autre. Or dans ce dernier cas, cela supprime la validation des données que j'ai faite manuellement.
Aussi, j'ai voulu l'automatiser avec l'enregistreur. Mais quand je la lance, j'ai une erreur d'exécution 1004.
Voici mon code :

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
Sub ValidUser2()
' IMPOSER 7 CARACTERES DE SAISIE
' ValidUser2 Macro
    Range("TbStg[N° d''agent]").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=NbCar(C5)=7"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "User"
        .InputMessage = ""
        .ErrorMessage = "Saisir 7 caractères, SVP," & Chr(10) & "Merci"
        .ShowInput = True
        .ShowError = True
    End With
End Sub

L'erreur se situe sur la lige :

Code :

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

1
2
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=NbCar(C5)=7"

Est-ce que quelqu'un peut m'aider svp.
Merci

[joe.levrai]

Bonjour,

pourquoi ne pas utiliser directement l'option "longueur de texte" avec "egal" et "7" ?

Code :

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

1
2
.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
    Operator:=xlEqual, Formula1:="7"

[mouftie]

Bonjour Joe,
Merci de ta réponse.
Effectivement, pourquoi pas ?
J'ai toujours utilisé manuellement la fonction NbCar(), tout simplement, j'ai fait mon enregistrement avec...

Bref, ta proposition fonctionne, je prends.
J'ajouterai Résolu en fin de journée, des fois que qq'un trouve pourquoi la fonction est rejetée...

Bonne Journée et merci encore

[joe.levrai]

L'erreur est simple

tu fais une validation avec le paramètre "compris entre"

pour ce paramètre, il est impératif d'utiliser deux formules .. mais dans la mesure où c'est strictement 7, ce n'est pas la méthode à employer

exemple pour un saisie de 7 à 9 caractères

Code :

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

1
2
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="7", Formula2:="9"

[mouftie]

Merci pour tes explications Joe
Effectivement, manuellement je choisis autoriser : "Personnalisé" et Données est grisée avec en arrière plan "compris entre"...
Cependant, l'aide est très succinte, il n'y a rien sur xlValidateCustom, xlValidateTextLength ou autres possibilités...

Merci, je ferai plus attention la prochaine fois.
Bon long WE.