sur l'excellent site de Disciplus, une macro a=20
particuli=E8rement attir=E9e mon oeil =E0 cette adresse=20
(http://www.excelabo.net/xl/tcd.php, ruibrique TCD sans=20
calcul)). Globalement, comme l'indique mon objet, elle=20
sert =E0 croiser/d=E9croiser des listes/tableaux, ce qui=20
ajoute une fonction =E0 EBTools. Bon, je me fais un TCD avec=20
un nom et 2 sommes. Quand je veux croiser les infos, je=20
lance la macro "Liste vers Tableau" et je tombe la dessus :
Erreur de compilation : Erreur de syntaxe
Private Sub Recurse(ByVal B1 As Long, ByVal H1 As Long)
(cette ligne se met en jaune)
Dim B2 As Long
Dim H2 As Long
B2 =3D B1
H2 =3D H1
Elt =3D Arr(Idx((B1 + H1) 2), 1) (cette ligne se met en=20
rouge)
QQu'un saurait me sortir de la svp, cela sort compl=E8tement=20
de mes comp=E9tences.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
docm
Bonjour Emmanuelll
Je crois que cette ligne devrait contenir le signe - devant le 2. Elt = Arr(Idx((B1 + H1) - 2), 1)
Sous toutes réserves cependant.
"Emmanuelll" wrote in message news:2924501c4650e$58a45a10$ Bonjour,
sur l'excellent site de Disciplus, une macro a particulièrement attirée mon oeil à cette adresse (http://www.excelabo.net/xl/tcd.php, ruibrique TCD sans calcul)). Globalement, comme l'indique mon objet, elle sert à croiser/décroiser des listes/tableaux, ce qui ajoute une fonction à EBTools. Bon, je me fais un TCD avec un nom et 2 sommes. Quand je veux croiser les infos, je lance la macro "Liste vers Tableau" et je tombe la dessus :
Erreur de compilation : Erreur de syntaxe
Private Sub Recurse(ByVal B1 As Long, ByVal H1 As Long) (cette ligne se met en jaune) Dim B2 As Long Dim H2 As Long B2 = B1 H2 = H1 Elt = Arr(Idx((B1 + H1) 2), 1) (cette ligne se met en rouge)
QQu'un saurait me sortir de la svp, cela sort complètement de mes compétences.
D'avance merci, Emmanuelll
Bonjour Emmanuelll
Je crois que cette ligne devrait contenir le signe - devant le 2.
Elt = Arr(Idx((B1 + H1) - 2), 1)
Sous toutes réserves cependant.
"Emmanuelll" <anonymous@discussions.microsoft.com> wrote in message
news:2924501c4650e$58a45a10$a501280a@phx.gbl...
Bonjour,
sur l'excellent site de Disciplus, une macro a
particulièrement attirée mon oeil à cette adresse
(http://www.excelabo.net/xl/tcd.php, ruibrique TCD sans
calcul)). Globalement, comme l'indique mon objet, elle
sert à croiser/décroiser des listes/tableaux, ce qui
ajoute une fonction à EBTools. Bon, je me fais un TCD avec
un nom et 2 sommes. Quand je veux croiser les infos, je
lance la macro "Liste vers Tableau" et je tombe la dessus :
Erreur de compilation : Erreur de syntaxe
Private Sub Recurse(ByVal B1 As Long, ByVal H1 As Long)
(cette ligne se met en jaune)
Dim B2 As Long
Dim H2 As Long
B2 = B1
H2 = H1
Elt = Arr(Idx((B1 + H1) 2), 1) (cette ligne se met en
rouge)
QQu'un saurait me sortir de la svp, cela sort complètement
de mes compétences.
Je crois que cette ligne devrait contenir le signe - devant le 2. Elt = Arr(Idx((B1 + H1) - 2), 1)
Sous toutes réserves cependant.
"Emmanuelll" wrote in message news:2924501c4650e$58a45a10$ Bonjour,
sur l'excellent site de Disciplus, une macro a particulièrement attirée mon oeil à cette adresse (http://www.excelabo.net/xl/tcd.php, ruibrique TCD sans calcul)). Globalement, comme l'indique mon objet, elle sert à croiser/décroiser des listes/tableaux, ce qui ajoute une fonction à EBTools. Bon, je me fais un TCD avec un nom et 2 sommes. Quand je veux croiser les infos, je lance la macro "Liste vers Tableau" et je tombe la dessus :
Erreur de compilation : Erreur de syntaxe
Private Sub Recurse(ByVal B1 As Long, ByVal H1 As Long) (cette ligne se met en jaune) Dim B2 As Long Dim H2 As Long B2 = B1 H2 = H1 Elt = Arr(Idx((B1 + H1) 2), 1) (cette ligne se met en rouge)
QQu'un saurait me sortir de la svp, cela sort complètement de mes compétences.
