- Mise en forme conditionnelle pour excel
- C / C++ / C++.NET : Automation de excel entierement en win32 et sous forme de classe - CodeS Source
- Visual Basic / VB.NET : Passage de mise en forme pyramidale à linéaire dans excel - Co
- Manipulations formes sur graphes excel avec vba
- Forme shape dans un grapphique excel en vba pour coloriser une zone quelconque
Afficher une feuille Excel dans une form [Résolu]
Signaler
Ludotnet
cs_lelette
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 28 janvier 2005
cs_lelette
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 juin 2005
A voir également:
- Excel form
- Form excel - Meilleures réponses
- Uneform - Meilleures réponses
- Excel - forme qui change de couleurs (3) en cliquant dessus ✓ - Forum - Visual Basic 6
- VB Excel - Form ✓ - Forum - Visual Basic
- Datagridview vba excel form - Forum - Visual Basic
- Asp.net - créé un fichier excel en dynamique (sous forme de flux) avec asp.net - Codes sources - ASP / ASP.NET (ASP.Net)
- Enregistrement d'un graphique excel sous forme d'image jpg - Codes sources - Visual Basic / VB.NET (Graphique)
10 réponses
Ludotnet
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 28 janvier 2005
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
cs_lelette
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 juin 2005
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
Ludotnet
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 28 janvier 2005
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.
cs_lelette
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 juin 2005
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
Ludotnet
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 28 janvier 2005
Mon problème est la deuxième partie !! Afficher le tableau dans la form !
J'ai cherché ce matin, mais sans succès : les flexgrids n'existent plus, ni les grid. Et je ne sais pas trop me servir des datagrids...
Pourrais tu m'indiquer ta méthode ?
Merci d'avance!!!
J'ai cherché ce matin, mais sans succès : les flexgrids n'existent plus, ni les grid. Et je ne sais pas trop me servir des datagrids...
Pourrais tu m'indiquer ta méthode ?
Merci d'avance!!!
cs_lelette
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 juin 2005
il y a maintenant le contrôle MSFlexGrig, dans Projet tu choisis Composants et tu coches le Microsoft Flexgrid 6.0
lelette
lelette
Ludotnet
- Messages postés
- 5
- Date d'inscription
- jeudi 27 janvier 2005
- Statut
- Membre
- Dernière intervention
- 28 janvier 2005
Au secooours !
Il m'indique que je n'ai pas la licence pour l'utiliser....
Y a-t-il un autre objet qui pourrait convenir ?,
----
!
Il m'indique que je n'ai pas la licence pour l'utiliser....
Y a-t-il un autre objet qui pourrait convenir ?,
----
!
cs_lelette
- Messages postés
- 11
- Date d'inscription
- jeudi 2 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 juin 2005
ok, c'est parfait! je vais essayer!!
lelette
lelette