OVH Cloud OVH Cloud

Liste de Validation (vba)

12 réponses
Avatar
GoThi
Salut à tous,

Je n'arrive pas à créer une liste de validation via vba.
La liste contient "à réception;à 30 jours" au lieu de "à réception" ET "à 30
jours" !!
Voivi mon code (avec l'aide d'une nouvelle macro) :

With Sheets("Facture").Range("conditionpaiement").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="à réception;à 30 jours"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Merci d'avance pour votre aide !

@+
GoThi

10 réponses

1 2
Avatar
j
essaie avec une virgule !
Formula1:="à réception,à 30 jours"

http://jacxl.free.fr

"GoThi" a écrit dans le message de news:
4265a056$0$23307$
Salut à tous,

Je n'arrive pas à créer une liste de validation via vba.
La liste contient "à réception;à 30 jours" au lieu de "à réception" ET "à
30

jours" !!
Voivi mon code (avec l'aide d'une nouvelle macro) :

With Sheets("Facture").Range("conditionpaiement").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator: > _

xlBetween, Formula1:="à réception;à 30 jours"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Merci d'avance pour votre aide !

@+
GoThi




Avatar
AV
Il n'y a aucune raison pour que ta syntaxe ne fonctionne pas !
A vérifier : l'existence et l'orthographe de la feuille et de la plage nommée

AV
Avatar
kribot
une liste de validation prend en argument pour une formule, une plage o
range d'excel
il te suffit donc de mettre ses valeurs dans un autre endroit en du
sur une feuille et de nommer cet endroit
Insertion -> Nom -> Définir ou en te servant de la case dans la barr
de formule.
ensuite une fois ceci fait dans ta formule tu met

Formula1:="=LeNomDeTaPlage"

en espérant t'avoir aider bonne journée

--
kribo
-----------------------------------------------------------------------
kribot's Profile: http://www.msusenet.com/member.php?userid
View this thread: http://www.msusenet.com/t-186943425
Avatar
ChrisV
Bonjour GoThi,

Remplace le ";" par "," comme ceci...

With Sheets("Facture").Range("conditionpaiement").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="à réception,à 30 jours"
End With


ChrisV


"GoThi" a écrit dans le message de news:
4265a056$0$23307$
Salut à tous,

Je n'arrive pas à créer une liste de validation via vba.
La liste contient "à réception;à 30 jours" au lieu de "à réception" ET "à
30 jours" !!
Voivi mon code (avec l'aide d'une nouvelle macro) :

With Sheets("Facture").Range("conditionpaiement").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="à réception;à 30 jours"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Merci d'avance pour votre aide !

@+
GoThi



Avatar
AV
Ave Chris,

Remplace le ";" par "," comme ceci...


???
Ben chez moi la présence/abscence du point-virgule dans la chaîne n'a
strictement aucun effet
Et je me demande bien comment il pourrait en avoir ... ??

AV

Avatar
ChrisV
Salut Alain,

Ben chez moi la présence/absence du point-virgule dans la chaîne n'a
strictement aucun effet


Bein... chez moi non plus ! ;-)

mais la demande était bien d'obtenir, par VBA, la liste suivante:
"à réception"
"à 30 jours"

au lieu de:
"à réception;à 30 jours"

et là, VBA n'aime pas du tout les ";"
non ???
(je ne comprends pas ton post...)


ChrisV


"AV" a écrit dans le message de news:

Ave Chris,

Remplace le ";" par "," comme ceci...


???
Ben chez moi la présence/abscence du point-virgule dans la chaîne n'a
strictement aucun effet
Et je me demande bien comment il pourrait en avoir ... ??

AV





Avatar
GoThi
Merci,

Effectivement , au lieu de ;

@+
GoThi


"ChrisV" a écrit dans le message de news:

Salut Alain,

Ben chez moi la présence/absence du point-virgule dans la chaîne n'a
strictement aucun effet


Bein... chez moi non plus ! ;-)

mais la demande était bien d'obtenir, par VBA, la liste suivante:
"à réception"
"à 30 jours"

au lieu de:
"à réception;à 30 jours"

et là, VBA n'aime pas du tout les ";"
non ???
(je ne comprends pas ton post...)


ChrisV


"AV" a écrit dans le message de news:

Ave Chris,

Remplace le ";" par "," comme ceci...


???
Ben chez moi la présence/abscence du point-virgule dans la chaîne n'a
strictement aucun effet
Et je me demande bien comment il pourrait en avoir ... ??

AV









Avatar
GoThi
Merci,

Effectivement, utilisation de la , au lieu du ;

@+
GoThi


"" a écrit dans le message de news:
4265e488$0$20443$
essaie avec une virgule !
Formula1:="à réception,à 30 jours"

http://jacxl.free.fr

"GoThi" a écrit dans le message de
news:
4265a056$0$23307$
Salut à tous,

Je n'arrive pas à créer une liste de validation via vba.
La liste contient "à réception;à 30 jours" au lieu de "à réception" ET "à
30

jours" !!
Voivi mon code (avec l'aide d'une nouvelle macro) :

With Sheets("Facture").Range("conditionpaiement").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator: >> _

xlBetween, Formula1:="à réception;à 30 jours"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Merci d'avance pour votre aide !

@+
GoThi








Avatar
AV
(je ne comprends pas ton post...)


Pfff...
Disons que je me suis arrété à la lecture de la ligne
"Je n'arrive pas à créer une liste de validation via vba."
RePfff

AV

Avatar
ChrisV
Pfff... quelle mauvaise foi ! ;-))


ChrisV


"AV" a écrit dans le message de news:
%
(je ne comprends pas ton post...)


Pfff...
Disons que je me suis arrété à la lecture de la ligne
"Je n'arrive pas à créer une liste de validation via vba."
RePfff

AV





1 2