Discussion :

[gnain]

Bonjour,
J'aimerais que en cliquant sur une cellule du datagrid faire changer la valeur de la cellule
si la cellule que je click est à 1 qu'elle devienne à 0, si 0 qu'elle devienne à 1

donc j'ai essayé dans even click

Code :

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

1
2
3
4
5
6
7
Private Sub DataGrid1_Click()
    If DataGrid1.Columns(1) = 0 Then
       DataGrid1.Columns(1) = 1
    Else
        DataGrid1.Columns(1) = 0
    End If
End Sub

DataGrid1.Columns(1) va chercher la cellule active et non celle qui est cliqué.

j'ai essayé dans even RowColChange

Code :

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

1
2
3
4
5
6
7
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If DataGrid1.Columns(1) = 0 Then
       DataGrid1.Columns(1) = 1
    Else
        DataGrid1.Columns(1) = 0
    End If
End Sub

ça fonctionne mais si tu click et reclick sur la même cellule ça ne fonctionne pas.

ma question est quel even il faut prendre, ou quel code employé?

Merci!

[ProgElecT]

Salut

Dans l’évènement Click, utiliser la propriété .Row et Col (non pas Rows ni Cols, qui est le nombre de ligne et le nombre de colonne du DartaGrid)

Code :

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

1
2
3
4
5
6
7
Private Sub DataGrid1_Click()
    If DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "0" Then
       DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "1"
    Else
       DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "0"
    End If
End Sub

N'ayant pas VB6 sous la main et que je ne me fie qu'à ma mémoire, j'ai un doute sur la place du Col et Row,
il ce pourrait que cela soit plutôt,
DataGrid1.TextMatrixt (DataGrid1.Row, DataGrid1.Col) = "0"
que
DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "0"

[gnain]

Bonjour ProgElecT,
Merci de répondre aussi vite

Avec

Code :

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

1
2
3
4
5
6
7
Private Sub DataGrid1_Click()
    If DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "0" Then
       DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "1"
    Else
       DataGrid1.TextMatrixt (DataGrid1.Col, DataGrid1.Row) = "0"
    End If
End Sub

Erreur de compilation
Méthode ou membre de données introuvable
sur TextMatrixt

[ProgElecT]

Arf...

Code :

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

1
2
3
4
5
6
7
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If DataGrid1.Text= "0" Then
       DataGrid1.Text = "1"
    Else
       DataGrid1.Text = "0"
    End If
End Sub

Étant donné que DataGrid1.Text renvoie la cellule active ............ bon ?

[gnain]

oui RowColChange fonctionne comme je l'ai dit dans mon premier poste.
Le problème de RowColChange est que si je click une 2e fois sur la même cellule
ça ne fonctionne pas car je n'ai pas changé de ligne ni de colonne.

que faire?

[gnain]

En ajoutant DataGrid1.Col = 0 dans event DataGrid1_RowColChange ça fonctionne vue que mon changement est dans la colonne 1

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If DataGrid1.Columns(1) = 0 Then
       DataGrid1.Columns(1) = 1
    Else
        DataGrid1.Columns(1) = 0
    End If
 
     DataGrid1.Col = 0
 
End Sub