création liste validation par vba

Le
Bonjour

Le code qui suit a été généré par une macro que j'ai souhaité inclure dans
une procédure
malheureusement une erreur 1004 se produit lorsqu'il arrive sur la ligne
"ÞCALER.)

Une idée pour m'aider

Merci

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:= _
"ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom;D35&""*""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #19011571
Bonjour,

"=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"

Il y a + simple:
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#premlettres

JB
http://boisgontierjacques.free.fr/


On 30 mar, 11:02, wrote:
Bonjour

Le code qui suit a été généré par une macro que j'ai souhaité inclure dans
une procédure
malheureusement une erreur 1004 se produit lorsqu'il arrive sur la ligne
"ÞCALER....)

Une idée pour m'aider

Merci

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op, Operator:=
_
        xlBetween, Formula1:= _
        "ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom ;D35&""*""))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With


Le #19011671
Bonjour,

J'ai certainement du ma l m'expliquer.

Ce n'est pas la formule qui me pose problème puisque quand je la rentre en
dur dans ma feuille, il n'y a pas de problème
donc pour votre formule je suis d'accord -->
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

mais comment l'intégrer dans un code vba qui a pour objectif de créer une
liste de validation avec comme liste cette même formule ?

Merci


"JB"
Bonjour,

"=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"

Il y a + simple:
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#premlettres

JB
http://boisgontierjacques.free.fr/


On 30 mar, 11:02, wrote:
Bonjour

Le code qui suit a été généré par une macro que j'ai souhaité inclure dans
une procédure
malheureusement une erreur 1004 se produit lorsqu'il arrive sur la ligne
"ÞCALER....)

Une idée pour m'aider

Merci

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: > _
xlBetween, Formula1:= _
"ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom;D35&""*""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With


JB
Le #19012251
Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:= _
"=Offset(Noms,match(A2&""*"",Noms,0)-1,,countif
(Noms,A2&""*""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With

JB


On 30 mar, 11:39, wrote:
Bonjour,

J'ai certainement du ma l m'expliquer.

Ce n'est pas la formule qui me pose problème puisque quand je la rentre en
dur dans ma feuille, il n'y a pas de problème
donc pour votre formule je suis d'accord  -->
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

mais comment l'intégrer dans un code vba qui a pour objectif de créer une
liste de validation avec comme liste cette même formule ?

Merci

"JB"
Bonjour,

"=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"

Il y a + simple:
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#preml...

JBhttp://boisgontierjacques.free.fr/

On 30 mar, 11:02, wrote:



> Bonjour

> Le code qui suit a été généré par une macro que j'ai souhait é inclure dans
> une procédure
> malheureusement une erreur 1004 se produit lorsqu'il arrive sur la lign e
> "ÞCALER....)

> Une idée pour m'aider

> Merci

> With Selection.Validation
> .Delete
> .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: =
> _
> xlBetween, Formula1:= _
> "ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom;D35&""*""))"
> .IgnoreBlank = True
> .InCellDropdown = True
> .InputTitle = ""
> .ErrorTitle = ""
> .InputMessage = ""
> .ErrorMessage = ""
> .ShowInput = True
> .ShowError = False
> End With- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Le #19012951
Merci pour votre réponse mais malheureusement j'ai le même message quand le
code arrive sur la ligne offset...
erreur 1004

Auriez vous une idée ?

Merci


"JB"

Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:= _
"=Offset(Noms,match(A2&""*"",Noms,0)-1,,countif
(Noms,A2&""*""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With

JB


On 30 mar, 11:39, wrote:
Bonjour,

J'ai certainement du ma l m'expliquer.

Ce n'est pas la formule qui me pose problème puisque quand je la rentre en
dur dans ma feuille, il n'y a pas de problème
donc pour votre formule je suis d'accord -->
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

mais comment l'intégrer dans un code vba qui a pour objectif de créer une
liste de validation avec comme liste cette même formule ?

Merci

"JB"
Bonjour,

"=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"

Il y a + simple:
ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#preml...

JBhttp://boisgontierjacques.free.fr/

On 30 mar, 11:02, wrote:



> Bonjour

> Le code qui suit a été généré par une macro que j'ai souhaité inclure
> dans
> une procédure
> malheureusement une erreur 1004 se produit lorsqu'il arrive sur la ligne
> "ÞCALER....)

> Une idée pour m'aider

> Merci

> With Selection.Validation
> .Delete
> .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: > > _
> xlBetween, Formula1:= _
> "ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom;D35&""*""))"
> .IgnoreBlank = True
> .InCellDropdown = True
> .InputTitle = ""
> .ErrorTitle = ""
> .InputMessage = ""
> .ErrorMessage = ""
> .ShowInput = True
> .ShowError = False
> End With- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


JB
Le #19013951
http://cjoint.com/?ebp0qGHYyB

JB


On 30 mar, 14:17, wrote:
Merci pour votre réponse mais malheureusement j'ai le même message qu and le
code arrive sur la ligne offset...
erreur 1004

Auriez vous une idée ?

Merci

"JB"

    Range("A2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
        xlBetween, Formula1:= _
        "=Offset(Noms,match(A2&""*"",Noms,0)-1,,countif
(Noms,A2&""*""))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With

JB

On 30 mar, 11:39, wrote:



> Bonjour,

> J'ai certainement du ma l m'expliquer.

> Ce n'est pas la formule qui me pose problème puisque quand je la rent re en
> dur dans ma feuille, il n'y a pas de problème
> donc pour votre formule je suis d'accord -->
> ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

> mais comment l'intégrer dans un code vba qui a pour objectif de cré er une
> liste de validation avec comme liste cette même formule ?

> Merci

> "JB" >
> Bonjour,

> "=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"

> Il y a + simple:
> ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

>http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#preml...

> JBhttp://boisgontierjacques.free.fr/

> On 30 mar, 11:02, wrote:

> > Bonjour

> > Le code qui suit a été généré par une macro que j'ai souhai té inclure
> > dans
> > une procédure
> > malheureusement une erreur 1004 se produit lorsqu'il arrive sur la li gne
> > "ÞCALER....)

> > Une idée pour m'aider

> > Merci

> > With Selection.Validation
> > .Delete
> > .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator :=
> > _
> > xlBetween, Formula1:= _
> > "ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom;D35&""*"")) "
> > .IgnoreBlank = True
> > .InCellDropdown = True
> > .InputTitle = ""
> > .ErrorTitle = ""
> > .InputMessage = ""
> > .ErrorMessage = ""
> > .ShowInput = True
> > .ShowError = False
> > End With- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Le #19027391
Merci pour cette exemple qui m'a permis de résoudre mon problème.


"JB"
http://cjoint.com/?ebp0qGHYyB

JB


On 30 mar, 14:17, wrote:
Merci pour votre réponse mais malheureusement j'ai le même message quand
le
code arrive sur la ligne offset...
erreur 1004

Auriez vous une idée ?

Merci

"JB"

Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:= _
"=Offset(Noms,match(A2&""*"",Noms,0)-1,,countif
(Noms,A2&""*""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With

JB

On 30 mar, 11:39, wrote:



> Bonjour,

> J'ai certainement du ma l m'expliquer.

> Ce n'est pas la formule qui me pose problème puisque quand je la rentre
> en
> dur dans ma feuille, il n'y a pas de problème
> donc pour votre formule je suis d'accord -->
> ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

> mais comment l'intégrer dans un code vba qui a pour objectif de créer
> une
> liste de validation avec comme liste cette même formule ?

> Merci

> "JB" >
> Bonjour,

> "=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"

> Il y a + simple:
> ÞCALER(Noms;EQUIV(A2&"*";Noms;0)-1;;NB.SI(Noms;A2&"*"))

>http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#preml...

> JBhttp://boisgontierjacques.free.fr/

> On 30 mar, 11:02, wrote:

> > Bonjour

> > Le code qui suit a été généré par une macro que j'ai souhaité inclure
> > dans
> > une procédure
> > malheureusement une erreur 1004 se produit lorsqu'il arrive sur la
> > ligne
> > "ÞCALER....)

> > Une idée pour m'aider

> > Merci

> > With Selection.Validation
> > .Delete
> > .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: > > > _
> > xlBetween, Formula1:= _
> > "ÞCALER(l_nom;EQUIV(D35&""*"";l_nom;0)-1;;NB.SI(l_nom;D35&""*""))"
> > .IgnoreBlank = True
> > .InCellDropdown = True
> > .InputTitle = ""
> > .ErrorTitle = ""
> > .InputMessage = ""
> > .ErrorMessage = ""
> > .ShowInput = True
> > .ShowError = False
> > End With- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme