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
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
"=DECALER....)
Une idée pour m'aider
Merci
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op, Operator:=
_
xlBetween, Formula1:= _
"=DECALER(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
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
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
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
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
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" a écrit dans le message de news:
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 -
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 -->
=DECALER(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" <boisgont...@hotmail.com> a écrit dans le message de news:
e1a40080-26a2-495a-834d-494888723...@h5g2000yqh.googlegroups.com...
Bonjour,
"=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"
Il y a + simple:
=DECALER(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, <stef@nospam> 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
> "=DECALER....)
> Une idée pour m'aider
> Merci
> With Selection.Validation
> .Delete
> .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: =
> _
> xlBetween, Formula1:= _
> "=DECALER(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 -
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" a écrit dans le message de news:
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 -
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" a écrit dans le message de news:
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
e1a40080-26a2-495a-834d-494888723...@h5g2000yqh.googlegroups.com...
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, <stef@nospam> 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 -
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" a écrit dans le message de news:
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 -
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" a écrit dans le message de news:
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" a écrit dans le message de news:
>
> 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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1689ee5d-f60d-434d-83bb-0f7dc8a5a...@o11g2000yql.googlegroups.com...
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, <stef@nospam> 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 -->
> =DECALER(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" <boisgont...@hotmail.com> a écrit dans le message de news:
> e1a40080-26a2-495a-834d-494888723...@h5g2000yqh.googlegroups.com...
> Bonjour,
> "=Offset(l_nom,Match(D35&""*"",l_nom;0)-1,,CountIf(l_nom,D35&""*""))"
> Il y a + simple:
> =DECALER(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, <stef@nospam> 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
> > "=DECALER....)
> > Une idée pour m'aider
> > Merci
> > With Selection.Validation
> > .Delete
> > .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator :=
> > _
> > xlBetween, Formula1:= _
> > "=DECALER(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 -
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" a écrit dans le message de news:
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" a écrit dans le message de news:
>
> 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 -
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" a écrit dans le message de news:
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" a écrit dans le message de news:
>
> 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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1689ee5d-f60d-434d-83bb-0f7dc8a5a...@o11g2000yql.googlegroups.com...
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, <stef@nospam> 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" <boisgont...@hotmail.com> a écrit dans le message de news:
> e1a40080-26a2-495a-834d-494888723...@h5g2000yqh.googlegroups.com...
> 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, <stef@nospam> 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 -
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" a écrit dans le message de news:
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" a écrit dans le message de news:
>
> 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 -