Pbl sauvegarde MSFlexGrid

Version imprimable

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

17/12/2007, 10h35
LeForestier
A voir si réellement tu détecte ton grid et c'est concluant.
maintenand quand tu est sur le stop, tu tape F8, le pointeur avance d'une ligne, tu tape encore F8 et encore F8, tu devrais entré dans la boucle et passer sur les lignes avec Debug.Print, essaye et dit

Edit si pas trop tard.
modifie également
Code:

1 2 3 4 Sheets("Feuil3").Select STOP UsFrm.show
par
Code:

1 2 3 UsFrm.show Sheets("Feuil3").Select STOP
17/12/2007, 10h42
Bib0ucH

Premier "F8"
Mon curseur passe sur la ligne

Code:

Sheets("Feuil3").Select

Deuxieme "F8"

Code:

UsFrm.Show

Troisième "F8"

Code:

Private Sub UserForm_Initialize()

Ici j'initialise toutes mes ComboBox
17/12/2007, 10h44
Bib0ucH

Avec le deplacement de

Code:

UsFrm.Show

meme chose qu'au dessus
17/12/2007, 10h46
Bib0ucH

modif
Premier "F8"
Mon curseur passe sur la ligne

Code:

Sheets("Feuil3").Select

Deuxieme "F8"

Code:

For Ligne = 0 To UsFrm.MSFlexGrid1.Rows - 1

Troisième "F8"

Code:

Private Sub UserForm_Initialize()

Ici j'initialise toutes mes ComboBox
17/12/2007, 11h09
LeForestier

Ca va, j'ai ENFIN compris, met ton classeur sur un poste, éventuellement purger des données confidentielles.
Ce serais trop compliqué de le faire par question/réponse
17/12/2007, 11h10
Bib0ucH

1 pièce(s) jointe(s)

voila pour toi

Bon, ont aurais du faire cela depuis longtemps...
Remplace les macros suivantes..

Code:

1
2
3
Private Sub Workbook_Open()
 
End Sub

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 = 1 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Cols - 1
            Cells(Ligne, Colonne + 1).Value = UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne)
        Next Colonne
    Next Ligne
    Sheets("Feuil1").Select
    Cells(1, 8).Value = UsFrm.MSFlexGrid1.Rows
End Sub

Quand tu ouvre le classeur, le grid est réinitialisé avec 1 ligne de titre et c'est tout...il faut réinitialiser le grid COMME IL ETAIT QUAND TU L'A SAUVER :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub UserForm_Activate()
    Me.DTPicker1.Value = Now
 
    MSFlexGrid1.ColWidth(0) = 1700
    MSFlexGrid1.ColWidth(1) = 1000
    MSFlexGrid1.TextMatrix(0, 1) = "TYPE"
    MSFlexGrid1.ColWidth(2) = 1500
    MSFlexGrid1.TextMatrix(0, 2) = "Numéro"
    MSFlexGrid1.ColWidth(3) = 1000
    MSFlexGrid1.TextMatrix(0, 3) = "Indice"
    MSFlexGrid1.ColWidth(4) = 3000
    MSFlexGrid1.TextMatrix(0, 4) = "Mise à jour par "
Sheets("Feuil3").Select
if Cells(1, 8).Value=0 then exit sub 'pour la 1ére initialisation
UsFrm.MSFlexGrid1.Rows = Cells(1, 8).Value
    For Ligne = 1 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Cols - 1
            UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne, Colonne + 1).Value
            'Debug.Print UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne)
            'Debug.Print Cells(Ligne + 1, Colonne + 1).Value
 
        Next Colonne
    Next Ligne
 
End Sub

Pour que ça fonctionne tu doit réentrer des données et sauver
Tu teste et tu dit... Mais ça devrais fonctionner vu que chez moi ça va.
EDIT:
Attention, j'ai rajouté une ligne IF...

Merci, jai encore une erreur sur cette commande

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CmdChanger_Click()
 
If TxtNew.Value = TxtNew2.Value Then
 
MSFlexGrid1.AddItem Row, 1
 
MSFlexGrid1.TextMatrix(1, 1) = CboxFI.Value
MSFlexGrid1.TextMatrix(1, 2) = TxtRef.Value
MSFlexGrid1.TextMatrix(1, 3) = TxtNew2.Value
MSFlexGrid1.TextMatrix(1, 4) = TxtMAJ.Value
MSFlexGrid1.TextMatrix(1, 0) = DTPicker1.Value
 
Else: MsgBox ("/!\ Attention aux indices /!\")
End If
End Sub

a cette ligne

Code:

MSFlexGrid1.AddItem Row, 1

Edit :Erreur '30002'
La grille ne contient pas cette ligne

17/12/2007, 12h07
Bib0ucH

Manquais ta ligne

Code:

if Cells(1, 8).Value=0 then exit sub 'pour la 1ére initialisation

OK, mais ça n'a plus rien à voir avec le problème précédant

Code:

MsgBox ("/!\ Attention aux indices /!\")

Pas de parenthèse

Code:

MsgBox "/!\ Attention aux indices /!\"

Je regarde l'autre
remplacer (pas tester)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CmdChanger_Click()
 
If TxtNew.Value = TxtNew2.Value Then
 
MSFlexGrid1.AddItem CboxFI.Value & vbTab & TxtRef.Value & vbTab & TxtNew2.Value _
& vbTab & TxtMAJ.Value & vbTab & DTPicker1.Value, 1
 
'MSFlexGrid1.TextMatrix(1, 1) = CboxFI.Value
'MSFlexGrid1.TextMatrix(1, 2) = TxtRef.Value
'MSFlexGrid1.TextMatrix(1, 3) = TxtNew2.Value
'MSFlexGrid1.TextMatrix(1, 4) = TxtMAJ.Value
'MSFlexGrid1.TextMatrix(1, 0) = DTPicker1.Value
 
Else: MsgBox "/!\ Attention aux indices /!\"
End If
End Sub

17/12/2007, 12h12
Bib0ucH

Mon grid comporte toujours une seule ligne à la réouverture, et les information de la feuil3 sont remplacées par les nouvelles et non pas ajoutées aux nouvelles
17/12/2007, 12h36
LeForestier
Oui... Il a fallu le temps et ca me brulais la vue...
dans MemoGrid remplacer
Code:

1 2 3 Sheets("Feuil1").Select 'par Sheets("Feuil3").Select

la selection de la feuil1 etait voulu, j'ai modifier

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 = 1 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Cols - 1
            Cells(Ligne, Colonne + 1).Value = UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne)
        Next Colonne
    Next Ligne
    Sheets("Feuil1").Select
    Cells(1, 8).Value = UsFrm.MSFlexGrid1.Rows
End Sub

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 = 1 To UsFrm.MSFlexGrid1.Rows - 1
        For Colonne = 0 To UsFrm.MSFlexGrid1.Cols - 1
            Cells(Ligne, Colonne + 1).Value = UsFrm.MSFlexGrid1.TextMatrix(Ligne, Colonne)
        Next Colonne
        Next Ligne
    Cells(1, 8).Value = UsFrm.MSFlexGrid1.Rows
    Sheets("Feuil1").Select
End Sub

Ca a l'air de marcher comme ça

17/12/2007, 13h11
Bib0ucH

Un grand merci pour ton aide, je n'aurai jamais trouver tout seul.

Merci a toi

Cdlt
Vince

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