Triangle de pascal

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 751 fois - Téléchargée 36 fois

Contenu du snippet

E! bin ce code permet d'afficher l'arborecence du developpement d'une équation on le connaît tous sous le nom du fameux "triangle de pascal".
Pour ce faire , c'est simple :
on a tous simplement besoin d'un seul bouton de commande,et d'activer une version d'Excel pour l'affichage des resultats.

Source / Exemple :


private sub cmdPascal_click()
'declarer d'abord l'application Excel
dim xl as Excel.Application
dim iLine,iCol,n as integer
'il suffit d'une "inputBox"pour entrer la valeur du puissance
n=inputBox("TAPEZ VOTRE NOMBRE")
'pour se connecter à Excel
         set xl=newExcel.Application
'pour faire apparaitre la feuille Excel
         xl.visible=true
'pour lactivation du classeur
         xl.workbook(classeur1).open("path & name")
'et en fin pour activer la feuille
         xl.sheets("feuil1").activate
pbPascal.Max=n
for iLine=1 to n
     for icol=1 to n
'selectionner la première cellule
          xl.Range("a"& iLine)=1
           if iLine>1 then
              xl.Range(chr(65+iCol) & iLine)=xl.Range(chr(64+iCol) & iLine-1)+xl.Range(chr(65+iCol) & iLine-1)
           end if
      next iCol
      pbPascal.value=iLine
next iLine
'pour l'affichage du resultat final
xl.visible=true
end sub

Conclusion :


comme c'est mon premier code à envoyer chez la famille code_source ,c'est un peut un truc debutant vas falloir que je face encore
des recherche.J'en suis sûr que ça marche.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.