Pbl sauvegarde MSFlexGrid

Version imprimable

Voir 40 message(s) de cette discussion en une page

13/12/2007, 17h15
ucfoutu
Boànjour,

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

1 2 MsgBox MSFlexGrid1.Rows & " " & MSFlexGrid1.Cols & vbCrLf & _ MSFlexGrid1.FixedCols & " " & MSFlexGrid1.FixedCols
et nous dire ce que tu as à l'affichage ?
13/12/2007, 17h32
LeForestier

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.
13/12/2007, 17h37
ucfoutu

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...
13/12/2007, 17h38
LeForestier

y me vient une idée, où tu à mis la fonction ?
13/12/2007, 18h59
Bib0ucH

j'suis plus au boulot, j'ai pas ma macro, on vois cela demain.
14/12/2007, 02h10
LeForestier

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:

Sheets("UserForm1").MSFlexGrid1.Rows

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

Code:

UserForm1.MSFlexGrid1.Rows

Ca devrait marcher maintenant.:P
A+
14/12/2007, 08h27
Bib0ucH

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

Code:

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

UcFoutu, t'entend quoi par boucle??? Dans le Workbook, dans le UserForm???
14/12/2007, 08h40
Bib0ucH

Alors la sauvegarde fonctionne

Code:

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 8O:(

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:

1 2 3 Private Sub Workbook_Open() End Sub
Entre les lignes tu met le code ci-dessous pour avoir ce résultat
Code:

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...

14/12/2007, 11h47
Bib0ucH

J'ai deja rentré ce code, et ma grid ne se re-rempli pas :s
14/12/2007, 11h51
LeForestier

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

Code:

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:

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:

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"

ajoute comme ci dessous..

Code:

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)

14/12/2007, 12h06
Bib0ucH

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

Code:

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

17/12/2007, 09h48
Bib0ucH

Aucun message dans ma fenêtre "execution"
17/12/2007, 09h58
LeForestier

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

Code:

print UsFrm.MSFlexGrid1.Rows

valider par Enter
et tu dit..
17/12/2007, 10h02
Bib0ucH

reponse

print UsFrm.MSFlexGrid1.Rows
1
17/12/2007, 10h22
LeForestier
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:

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:

print UsFrm.MSFlexGrid1.Cols

et tu dit..
17/12/2007, 10h27
Bib0ucH

print UsFrm.MSFlexGrid1.Cols
5

A quoi cette opération sert-elle?

Voir 40 message(s) de cette discussion en une page