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.
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.