Pbl sauvegarde MSFlexGrid

**ucfoutu** · 13/12/2007, 17h15

Boànjour,

peux-tu s'il te plait insérer ceci juste avant ta double boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox MSFlexGrid1.Rows & "  " & MSFlexGrid1.Cols & vbCrLf & _
  MSFlexGrid1.FixedCols & "  " & MSFlexGrid1.FixedCols

et nous dire ce que tu as à l'affichage ?

**LeForestier** · 13/12/2007, 17h32

Bonsoir UcFoutu, merci de venir à notre secour,
Mais TextMatrix() agit aussi bien sur les colonnes et lignes que sur les fixes,
Il y à quelque chose que notre ami n'explique pas.

**ucfoutu** · 13/12/2007, 17h37

Je pense tout simplement qu'il ne pointe pas vers une grille existante ou chargée...

on va y aller pas à pas... et on va finir par voir où le bât blesse...

Je vous laisserai ensuite à votre discussion, car je connais mal Excel...

**LeForestier** · 13/12/2007, 17h38

y me vient une idée, où tu à mis la fonction ?

**Bib0ucH** · 13/12/2007, 18h59

j'suis plus au boulot, j'ai pas ma macro, on vois cela demain.

**LeForestier** · 14/12/2007, 02h10

Ont ne pense pas toujours à expliquer jusque la dernière virgule, dans mon poste précédant j'ai dit Remplace par le nom de la UserForme et je parie que tu a mis...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("UserForm1").MSFlexGrid1.Rows

mais tu doit mettre partout avant MSFlexGrid1...(bien entendu si ta Userform à le nom UserForm1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    UserForm1.MSFlexGrid1.Rows

Ca devrait marcher maintenant.

A+

**Bib0ucH** · 14/12/2007, 08h27

ça marche mieux comme ça mais jai une autre erreur a la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value

UcFoutu, t'entend quoi par boucle??? Dans le Workbook, dans le UserForm???

**Bib0ucH** · 14/12/2007, 08h40

Alors la sauvegarde fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value

seulement mon FlexGrid n'est pas re-rempli avec les valeurs sauvegarders, il faudrait donc que j'importe les donner du tableau Excel dans mon FlexGrid.Hélas mes compétences ne me le permettent pas

**LeForestier** · 14/12/2007, 11h42

Tu as vérifié que les données sont bien sur la Feuil3 ?
Pour recharger les données dans le grid cela se passe dans le Workbook_Open() que tu doitr adapter comme l'autre fonction.
Voyons si tu l'a bien mis où il fallai.
Dans l'IDE et l'explorateur de feuille tu a le nom des feuilles et en dessous tu a ThisWorkbook > Double clic dessus > dans la feuille qui s'ouvre il y a 2 combos dans le haut, dans celui de gauche tu selectionne WorkBook, la feuille se rempli avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
 
End Sub

Entre les lignes tu met le code ci-dessous pour avoir ce résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
    Sheets("Feuil3").Select
    For Ligne = 0 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Cols - 1
            UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value
        Next Colonne
    Next Ligne
 
End Sub

Tu dit...

**Bib0ucH** · 14/12/2007, 11h47

J'ai deja rentré ce code, et ma grid ne se re-rempli pas :s

**LeForestier** · 14/12/2007, 11h51

Suis les renseignements donné Svp, tu ne les as surement pas mis à la bonne place

**Bib0ucH** · 14/12/2007, 11h58

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Activate()
UsFrm.Show
End Sub
 
Private Sub Workbook_Open()
 
Sheets("Feuil3").Select
    For Ligne = 0 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Rows - 1
            UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value
        Next Colonne
    Next Ligne
End Sub

Voila ce que j'ai dans "Thisworkbook"

et ceci est une partie du code de mon UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub MemoGrid()
'A envoyer avant de mémoriser le classeur..
Dim Ligne As Integer, Colonne As Integer
    Sheets("Feuil3").Select
    For Ligne = 0 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Rows - 1
            Cells(Ligne + 1, Colonne + 1).Value = UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne)
        Next Colonne
    Next Ligne
'pour cacher la "feuil3"
    Sheets("Feuil1").Select
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CmdSave_Click()
    Call MemoGrid
    ChDir "U:\JABIL\Methodes\CMS\MACRO"
    ActiveWorkbook.SaveAs Filename:= _
        "U:\JABIL\Methodes\CMS\MACRO\Macro Fiche Instruction.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Edit : ET mes donnés sont bien sur la "feuil3"

**LeForestier** · 14/12/2007, 12h04

ajoute comme ci dessous..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
 
Sheets("Feuil3").Select
STOP
    For Ligne = 0 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Rows - 1
            UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value
        Next Colonne
    Next Ligne
End Sub

Tu sauve et tu réouvre le classeur, dit-moi si ça s'arrète sur le stop (surligné en jaune)

**Bib0ucH** · 14/12/2007, 12h06

Oui en effet ça s'arrete

J'ai fini le boulot, je vois ça lundi
encore merci pr l'aide, il ne doit pas manqué grand chose

**LeForestier** · 14/12/2007, 12h15

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
Private Sub Workbook_Open()
 
Sheets("Feuil3").Select
STOP
 
UsFrm.show
 
    For Ligne = 0 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Rows - 1
            UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value
 
            debug.Print UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne)
            debug.print Cells(Ligne + 1, Colonne + 1).Value
 
        Next Colonne
    Next Ligne
End Sub

Modifie comme ca, tu sauve et tu réouvre le classeur
bon, quand tu est sur le stop, tu tape F8.. F8...F8.. etc et regarde dans la fenêtre 'Exécution' si les données sont les bonnes

**Bib0ucH** · 17/12/2007, 09h48

Aucun message dans ma fenêtre "execution"

**LeForestier** · 17/12/2007, 09h58

quand tu est sur le stop, tape dans la fenêtre exécution..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print UsFrm.MSFlexGrid1.Rows

valider par Enter
et tu dit..

**Bib0ucH** · 17/12/2007, 10h02

reponse

print UsFrm.MSFlexGrid1.Rows
1

**LeForestier** · 17/12/2007, 10h22

donc il n'y a que 2 lignes ?
Et je ne sais pas comment cette erreur n'a pas été détectée plus tôt, change la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Colonne = 0 To UsFrm.MSFlexGrid1.Rows - 1
'par
For Colonne = 0 To UsFrm.MSFlexGrid1.Cols - 1

Ensuite quand tu est sur le stop tu tape dans Exécution..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print UsFrm.MSFlexGrid1.Cols

et tu dit..

**Bib0ucH** · 17/12/2007, 10h27

print UsFrm.MSFlexGrid1.Cols
5

A quoi cette opération sert-elle?

Pbl sauvegarde MSFlexGrid

Macros et VBA Excel

Discussions similaires

Partager

Partager