Liste déroulante en cascade Prb

Le
Thierry
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.


- Le second est celui qui correspond à la liste déroulante déduite de la
première liste je dois mettre cette formule : Cells(j, Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j, Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ..

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JP25
Le #4572421
Bonjour,
J'ai travaillé sur un exemple pour ton pb
lien ci dessous
Correspond t'il toujour à ton post du 28/05 ?
JP25
http://cjoint.com/?fDsL7NGQNn

"Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.


- Le second est celui qui correspond à la liste déroulante déduite de la
première liste je dois mettre cette formule : Cells(j, Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol - 1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Thierry
Le #4572411
Non ce n'est pas le même problème car la j'ai les formules
je telecharge ton fichier
merci

"JP25" %
Bonjour,
J'ai travaillé sur un exemple pour ton pb
lien ci dessous
Correspond t'il toujour à ton post du 28/05 ?
JP25
http://cjoint.com/?fDsL7NGQNn

"Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule
suivante que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes
déroulantes'!$A$1;;NBVAL('Paramètres Listes déroulantes'!$A$1:'Paramètres
Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.


- Le second est celui qui correspond à la liste déroulante déduite de
la première liste je dois mettre cette formule : Cells(j,
Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol - 1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 18:11:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 18:13:16
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


JB
Le #4572391
Bonjour,

Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:="=choix1"

http://boisgontierjacques.free.fr/fichiers/jb-DonneesValidationVBA.xls
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/jb-listescasca de.xls

JB


On 30 mai, 17:52, "Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule s uivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL('P aramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante dédui te de la
première liste je dois mettre cette formule : Cells(j, Col).Validation. Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix 2;;EQU­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j, Pco l -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Thierry
Le #4572371
Oui maintenant ça marche mieux, j'ai la liste déroulante mais vide alors que
j'ai deux noms

"JB"
Bonjour,

Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:="=choix1"

http://boisgontierjacques.free.fr/fichiers/jb-DonneesValidationVBA.xls
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/jb-listescascade.xls

JB


On 30 mai, 17:52, "Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante déduite de
la
première liste je dois mettre cette formule : Cells(j, Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQU­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 18:35:45
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 18:44:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

JB
Le #4570811
La définition du nom me semble curieuse:

La liste est en A1:Z1?

Choix1 ÞCALER($A$1;;;;NBVAL($A$1:$H$1))

JB

On 30 mai, 17:52, "Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule s uivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL('P aramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante dédui te de la
première liste je dois mettre cette formule : Cells(j, Col).Validation. Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix 2;;EQU­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j, Pco l -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Thierry
Le #4570771
Théoriquement c'est toute la ligne 1 de paramètres listes déroulante (mais
actuellement je n'en ai que 2) . Quand je teste la formule dans excel il me
retourne #Valeur!


"JB"
La définition du nom me semble curieuse:

La liste est en A1:Z1?

Choix1 ÞCALER($A$1;;;;NBVAL($A$1:$H$1))

JB

On 30 mai, 17:52, "Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante déduite de
la
première liste je dois mettre cette formule : Cells(j, Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQU­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:18:03
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:25:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

JB
Le #4570721
Ce que j'ai compris:

http://cjoint.com/?fEtSOzljws

JB

On 30 mai, 19:25, "Thierry"
Théoriquement c'est toute la ligne 1 de paramètres listes déroulant e (mais
actuellement je n'en ai que 2) . Quand je teste la formule dans excel il me
retourne #Valeur!

"JB"
La définition du nom me semble curieuse:

La liste est en A1:Z1?

Choix1 ÞCALER($A$1;;;;NBVAL($A$1:$H$1))

JB

On 30 mai, 17:52, "Thierry"




Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes déroulantes'!$A$1;;NBVAL( 'Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante déd uite de
la
première liste je dois mettre cette formule : Cells(j, Col).Validatio n.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(cho ix2;;EQU­­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:18:03
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:25:10
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

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



Thierry
Le #4570321
je n'y arrive pas et je ne comprends rien

Si tu veux jeter un oeil : http://cjoint.com/?fFiszkD35O

les listes se trouvent dans la feuille liste, le resultat doit se trouver
dans la feuille janvier. Le code VBA se trouve dans Modules BarreCRA Sub
Majcollab() dans la donnée choix1.

Le mot de passe pour le classeur et le code vba = Roto

lorsque je veux faire la formule pas à pas avec excel il me donne : =
Decaler(Listes!A1;;;;NBVAL(Listes!1:1)) Mais j'ai toujours l'erreur


"JB"
Ce que j'ai compris:

http://cjoint.com/?fEtSOzljws

JB

On 30 mai, 19:25, "Thierry"
Théoriquement c'est toute la ligne 1 de paramètres listes déroulante (mais
actuellement je n'en ai que 2) . Quand je teste la formule dans excel il
me
retourne #Valeur!

"JB"
La définition du nom me semble curieuse:

La liste est en A1:Z1?

Choix1 ÞCALER($A$1;;;;NBVAL($A$1:$H$1))

JB

On 30 mai, 17:52, "Thierry"




Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule
suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes
déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante déduite de
la
première liste je dois mettre cette formule : Cells(j,
Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQU­­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol &
"-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:18:03
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:25:10
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

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





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 07:21:54
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 08:22:50
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


JB
Le #4570231
Bonjour,

Voici des listes en cascade sans VBA.
Pourquoi VBA?

http://cjoint.com/?fFjnb7Y6Vg

JB
On 31 mai, 08:22, "Thierry"
je n'y arrive pas et je ne comprends rien

Si tu veux jeter un oeil :http://cjoint.com/?fFiszkD35O

les listes se trouvent dans la feuille liste, le resultat doit se trouver
dans la feuille janvier. Le code VBA se trouve dans Modules BarreCRA Sub
Majcollab() dans la donnée choix1.

Le mot de passe pour le classeur et le code vba = Roto

lorsque je veux faire la formule pas à pas avec excel il me donne : =
Decaler(Listes!A1;;;;NBVAL(Listes!1:1)) Mais j'ai toujours l'erreur

"JB"
Ce que j'ai compris:

http://cjoint.com/?fEtSOzljws

JB

On 30 mai, 19:25, "Thierry"




Théoriquement c'est toute la ligne 1 de paramètres listes déroula nte (mais
actuellement je n'en ai que 2) . Quand je teste la formule dans excel il
me
retourne #Valeur!

"JB"
La définition du nom me semble curieuse:

La liste est en A1:Z1?

Choix1 ÞCALER($A$1;;;;NBVAL($A$1:$H$1))

JB

On 30 mai, 17:52, "Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formu le
suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes
déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante d éduite de
la
première liste je dois mettre cette formule : Cells(j,
Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(c hoix2;;EQU­­­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol &
"-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:18:03
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:25:10
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

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


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 07:21:54
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 08:22:50
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

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




Thierry
Le #4570061
Je prefere tout coder en VBA.

Je dois avoir un problème sur mes feuilles cela m'arrive souvant et je suis
obliger à chaque fois de tout recommencer.

La ce n'est pas qu'un problème VBA puisque meme en formule j'ai en retour le
problème de valeur


"JB"
Bonjour,

Voici des listes en cascade sans VBA.
Pourquoi VBA?

http://cjoint.com/?fFjnb7Y6Vg

JB
On 31 mai, 08:22, "Thierry"
je n'y arrive pas et je ne comprends rien

Si tu veux jeter un oeil :http://cjoint.com/?fFiszkD35O

les listes se trouvent dans la feuille liste, le resultat doit se trouver
dans la feuille janvier. Le code VBA se trouve dans Modules BarreCRA Sub
Majcollab() dans la donnée choix1.

Le mot de passe pour le classeur et le code vba = Roto

lorsque je veux faire la formule pas à pas avec excel il me donne : > Decaler(Listes!A1;;;;NBVAL(Listes!1:1)) Mais j'ai toujours l'erreur

"JB"
Ce que j'ai compris:

http://cjoint.com/?fEtSOzljws

JB

On 30 mai, 19:25, "Thierry"




Théoriquement c'est toute la ligne 1 de paramètres listes déroulante
(mais
actuellement je n'en ai que 2) . Quand je teste la formule dans excel il
me
retourne #Valeur!

"JB"
La définition du nom me semble curieuse:

La liste est en A1:Z1?

Choix1 ÞCALER($A$1;;;;NBVAL($A$1:$H$1))

JB

On 30 mai, 17:52, "Thierry"
Bonjour,

J'ai deux problèmes :

-Le premier est celui la : je dois initialiser ma première liste
déroulante qui contient les noms, qui se trouvent dans la feuille
'Paramètres Listes déroulantes'. Pour cela j'ai trouvé la formule
suivante
que j'appelle choix1 (Pour l'instant je n'ai que 2 noms)

choix1 = "ÞCALER('Paramètres Listes
déroulantes'!$A$1;;NBVAL('Paramètres
Listes déroulantes'!$A$1:'Paramètres Listes déroulantes'!$Z$1))"

Puis je fais : Cells(j, (Pcol - 1)).Validation.Add xlValidateList,
Formula1:=choix1

Le resultat dans la cellule est N/A, je ne comprends pas.

- Le second est celui qui correspond à la liste déroulante déduite
de
la
première liste je dois mettre cette formule : Cells(j,
Col).Validation.Add
xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(B2;choix1;0)-1;NBVAL(DECALER(choix2;;EQU­­­IV(B2;choix1;0)-1))-1)".
Pour que cela marche chez moi je dois remplacer B2 la valeur Cells(j,
Pcol -
1). J'ai fait cela :

Cells(j, Col).Validation.Add xlValidateList,
Formula1:="ÞCALER(choix2;1;EQUIV(Cells(" & j & ", " & Pcol & "-
1);choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(Cells(" & j & ", " & Pcol &
"-
1);choix1;0)-1))-1)"

ca ne marche pas non plus.

n'étant pas très fort de ce côté la ...........

:)

Merci
--
Ne pas répondre à l'adresse anti-spam.

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 17:52:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:18:03
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 30/05/2007 19:25:10
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

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


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 07:21:54
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 08:22:50
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

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





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 10:11:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000746-0, 30/05/2007
Analyse le : 31/05/2007 10:14:57
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



Publicité
Poster une réponse
Anonyme