triangle de pascal

[john]

bonjour a tous, je me demandais comment je pourrais créer un programme sous excel qui mettrait en place les termes d'un triangle de Pascal dans les cellules d'une feuille de calcul. Je sais le faire sans programme dans excel, mais mon but est de réaliser un programme en vba en utilisant des FOR, cells( , ), sub() .....

Si qqn pouvait m'aider se serait me rendre un grand service.
merci d'avance pour votre aide

 

[justine]

bonsoir
j'aimerais t'aider mais il faut me rappeler ce qu'est le fameux triangle

 

[john]

le triangle de pascal c'est ce qui te donne les exposant de fontions du type : (a+b)^3 ou (a+b)^4 etc... pour pouvoir développer. Le triangle ressemble à cela :
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1

(par exemple, pour trouver chaque ligne suivante, il faut ajouter le chiffre de gauche avec le chiffre au dessus de celui ci a droite.)

 

[andré]

Salut,

Un petit essai en pièce jointe.

Une seule formule à copier vers la droite, puis la ligne vers le bas.

Â+ [file name=TriangleDePascal.zip size=4130]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TriangleDePascal.zip[/file]

 

[andré]

Resalut,

Mon exemple est mauvais : la première colonne ne peut pas s'incrémenter.

Voici une version corrigée.

Donc copier la 1 de la première colonne vers le bas, sans l'incrémenter, puis le solde de la ligne vers la droite et vers la bas.

Â+ [file name=TriangleDePascalV1.zip size=4095]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TriangleDePascalV1.zip[/file]

 

[john]

bonjour,
non ce n'est pas ce ke je veux, comme je lé stipulé je sais le faire avec la fonction SI. Je veus le faire en fonction VBA!

merci bcp kan même

 

[andré]

Resalut,

Il te suffit d'enregistrer la formule sous une macro !

Â+

 

[john]

re bonjour andré,
oui mais justement, je n'arrive pas a créer ce module.
si tu pouvais me mettre sur la voie...

merci

 

[Ti_]

Essaie avec ça :


Sub TriangleDePascal(Target As Range, ByVal Ordre%) 'Ti
Dim Lgn%, Col%
ReDim Nb(1 To Ordre, 1 To Ordre)
For Lgn = 1 To Ordre
Nb(Lgn, 1) = 1
For Col = 2 To Lgn
Nb(Lgn, Col) = Nb(Lgn - 1, Col - 1) + Nb(Lgn - 1, Col)
Next Col
Next Lgn
Target.Resize(Ordre, Ordre).Value = Nb
End Sub

Sub Test()
TriangleDePascal Feuil1.Range('A3'), 15
End Sub


mais tu ne serais pas en train de nous faire faire tes TP par hasard ?

Tiens, je ne sais pas si c'est dû à la mise en forme du code, mais sur la ligne ReDim Nb(1 To Ordre, 1 To Ordre), le e de Ordre est séparé du reste, ce qui ne manquera pas de provoquer une erreur quand tu colleras ce code. Pourtant à l'édition, tout est parfait...

Ah oui d'accord, je viens de tester un copier/coller. Bon ben c'est illisible ce truc du code formaté, alors je laisse tomber la belle mise en forme et je remets le texte brut...

Message édité par: Ti_, à: 03/12/2005 20:58

 

[john]

on, c juste ke je débute dans excel, g réussi a faire ce triangle avec les fonction somme mais en vba, voila ou j'en suis, je viens d'arriver a le faire mais comment cette fois supprimer les 'O' ??

merci

 

[john]

désolé jallais oublié voila mon code source :

Sub pascal()
ActiveWindow.DisplayZeros = True
Range('A3').Select
ActiveCell.FormulaR1C1 = '1'
Range('A3:A13').Select
Selection.FillDown
Range('B4').Select
ActiveCell.FormulaR1C1 = '=R[-1]C[-1]+R[-1]C'
Range('B4').Select
Selection.AutoFill Destination:=Range('B4:B13'), Type:=xlFillDefault
Range('B4:B13').Select
Selection.AutoFill Destination:=Range('B4:K13'), Type:=xlFillDefault
Range('B4:K13').Select
Range('A2').Select

End Sub

 

[Eric C]

Bonjour le forum
Bonjour john, bonjour Ândré & bonjour _Ti

Sous VBA avant ton End Sub, tu peux ajouter :
ActiveWindow.DisplayZeros = False
ou
Dans Menu/Outils/options tu décoches Valeurs Zéro.

Bon dimanhe à toutes & à tous 😉