Datagrid récupérer celulle

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:

---

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:

---

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!

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:

---

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"

Bonjour ProgElecT,
Merci de répondre aussi vite

Avec

Code:

---

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

Arf...

Code:

---

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 ?

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?

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

Code:

---

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

---