IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA-E] problème de taille de fichier .xls (lié à Set flexgrid.Cellpicture?)


Sujet :

Macros et VBA Excel

  1. #1
    Membre éprouvé
    Avatar de bandit boy
    Profil pro
    Inscrit en
    Février 2006
    Messages
    916
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 916
    Points : 1 007
    Points
    1 007
    Par défaut [VBA-E] problème de taille de fichier .xls (lié à Set flexgrid.Cellpicture?)
    bonjour tout le monde,
    J'utilise une flexgrid dans laquelle je souhaite simuler des checkbox a chaque cellule (j'utilise deux images simulant une case cochée ou non (insipré de la FAQ ))dont voici une partie du code (qui me semble etre a l'origine du problème) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
     
    Private Sub grdTraitMesures_Click()
        Dim i As Integer, j As Integer
        If (grdTraitMesures.MouseRow > 0) And (grdTraitMesures.MouseCol > 0) Then
            If grdTraitMesures.CellPicture = imgNonCochee.Picture Then
                Set grdTraitMesures.CellPicture = imgCochee.Picture
            Else
                Set grdTraitMesures.CellPicture = imgNonCochee.Picture
            End If
        End If
        If (grdTraitMesures.MouseRow = 0) And (grdTraitMesures.MouseCol > 0) Then
            grdTraitMesures.Col = grdTraitMesures.MouseCol
            For i = 1 To grdTraitMesures.Rows - 1
                grdTraitMesures.Row = i
                Set grdTraitMesures.CellPicture = imgCochee.Picture
            Next i
        End If
    End Sub
    Ce programme fonctionne correctement.
    Cependant après avoir fait quelques essais (cochages et décochages en cliquant sur les cellules de ma flexgrid), si j'enregistre a nouveau mon fichier , je me retrouve avec un fichier pesant plusieurs mégas contre une petite centaine de ko auparavant!!!!
    Je soupconne une mauvaise utilisation de set mais je n'ai rien trouvé de mieux pour l'instant...
    Quelqu'un a t'il une piste a me proposer??
    merci d'avance

  2. #2
    Membre éprouvé
    Avatar de bandit boy
    Profil pro
    Inscrit en
    Février 2006
    Messages
    916
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 916
    Points : 1 007
    Points
    1 007
    Par défaut
    Après plusieurs recherches j'ai trouvé la solution. Je la soumets donc au forum si jamais d'autres personnes seront confrontées au même problème (ou ont une explication plus technique (d'ailleurs jsui preneur ) !

    Le code en lui même n'est nullement à remettre en cause!!
    Il semblerait que VBA ne fasse pas régulièrement le "ménage" dans ses commandes "internes" ( débogage, compilation...) et j'ai remarqué lorsque j'enregistrais juste après une compilation sous excel et en ayant VBA qui tournait en arrière plan, mes fichiers grossissaient (voir meme doublaient a chaque enregistrement!!)

    Donc méfiance quand VBA tourne en fond...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA Excel] Recupérer le répertoire du fichier .xls courrant
    Par greg2 dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 16/02/2015, 17h58
  2. [VBA - Excel] Problème d'ouverture de fichier
    Par seiryujay dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/12/2006, 10h55
  3. Réponses: 4
    Dernier message: 08/09/2006, 11h21
  4. Réponses: 6
    Dernier message: 19/06/2006, 12h15
  5. [langage] Problème de taille de fichier à mettre dans
    Par And_the_problem_is dans le forum Langage
    Réponses: 10
    Dernier message: 13/08/2002, 09h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo