Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 198 fois - Téléchargée 37 fois
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
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.