Afficher une feuille Excel dans une form [Résolu]
Ludotnet
Membre Dernière intervention
28 janvier 2005
- - Dernière réponse :
cs_lelette
Membre Dernière intervention
2 juin 2005
- 2 juin 2005 à 20:01
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
A voir également:
- Excel getdata
- Comment afficher une feuille excel ✓ - Forum - Visual Basic 6
- Afficher une feuille excel SUR une userform ... ✓ - Forum - Visual Basic
- ASP / ASP.NET : Afficher le contenu d'une feuille excel dans un datagrid - CodeS SourceS - Guide
- Macro-Excel 2003 : Afficher une feuille masquée selon le résultat d'une cellule ✓ - Forum - VB.NET
- Afficher une Combobox sur une feuille excel / Urgent ✓ - Forum - Visual Basic 6
10 réponses
Meilleure réponse
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
C'est bon, j'ai ajouté le composant "Feuille de calcul Microsoft Office 9.0" et ça fonctionne.
Merci pour ton aide.
Ludo tnet
Merci pour ton aide.
Ludo tnet
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
139 internautes nous ont dit merci ce mois-ci
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
Je l'ai fait avec une feuille graphique dans un picturebox :
With ActiveChart
' Copie du graphique dans la picturebox
.ChartArea.Select
.ChartArea.Copy
With Picture1
.Picture = Clipboard.GetData(vbCFBitmap)
.Left = (Form1.ScaleWidth - .Width) / 2
.Top = (Form1.ScaleHeight - .Height) / 2
frame2.Visible = False
DoEvents
.Visible = True
End With
' Détruit la feuille graphique
' MonExcel.DisplayAlerts = False
'.Delete
' MonExcel.DisplayAlerts = True
End With
lelette
With ActiveChart
' Copie du graphique dans la picturebox
.ChartArea.Select
.ChartArea.Copy
With Picture1
.Picture = Clipboard.GetData(vbCFBitmap)
.Left = (Form1.ScaleWidth - .Width) / 2
.Top = (Form1.ScaleHeight - .Height) / 2
frame2.Visible = False
DoEvents
.Visible = True
End With
' Détruit la feuille graphique
' MonExcel.DisplayAlerts = False
'.Delete
' MonExcel.DisplayAlerts = True
End With
lelette
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
Merci de ta réponse.
C'est différent dans ce cas, car je ne peux pas utiliser une picturebox : le Clipboard.GetData ne correspond pas avec des cellules Excel.
Il faut trouver un moyen soit d'insérer une zone "Excel" dans la form, soit de réussir à insérer une grille dans laquelle je pourrais coller chaque valeur de cellule.
C'est différent dans ce cas, car je ne peux pas utiliser une picturebox : le Clipboard.GetData ne correspond pas avec des cellules Excel.
Il faut trouver un moyen soit d'insérer une zone "Excel" dans la form, soit de réussir à insérer une grille dans laquelle je pourrais coller chaque valeur de cellule.
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
il faut transférer les cellules excel dans un tableau TableT(nblignes,nbcolonnes)
en faisant l'inverse de ce qui est fait ci-dessous, et après ce tableau
tu l'affiches comme tu veux dans la form. Il est + rapide de transférer
le tableau directement que cellule/cellule
j'espère que cela marche!! je n'ai fait que l'inverse!
courage
With ActiveSheet
Nomsheet = .Name
.Range(nomCol(NbElementsC - 11) & "1:" & _
nomCol(NbElementsC - 1) & NbLigne).Value = TableT
End With
lelette
en faisant l'inverse de ce qui est fait ci-dessous, et après ce tableau
tu l'affiches comme tu veux dans la form. Il est + rapide de transférer
le tableau directement que cellule/cellule
j'espère que cela marche!! je n'ai fait que l'inverse!
courage
With ActiveSheet
Nomsheet = .Name
.Range(nomCol(NbElementsC - 11) & "1:" & _
nomCol(NbElementsC - 1) & NbLigne).Value = TableT
End With
lelette
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
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.