Discussion :

[Invité]

Non au final c'est celui avec le n° de colonne :

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
 
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim IndexColonne As Integer
        Dim IndexLigne As Integer
        DataGridView1.ClearSelection()
        IndexColonne = 4
        For IndexLigne = 0 To DataGridView1.Rows.Count - 1
            Try
                If DataGridView1.Item(IndexColonne, IndexLigne).Value = ComboBox1.Text Then
                    DataGridView1.Rows(IndexLigne).Selected = True
                End If
            Catch
            End Try
        Next
    End Sub

Je pense que l'etape de suppression des lignes je le ferais plus tard, je vais refaire des recherches

Dans tout les cas, merci pour ton aide Phil Rob

[Phil Rob]

Re-vérifie tes indices de colonnes du DataGridView, tu as certainement un mauvais indice.
Autre chose, il faut que ton Combo reçoive les mêmes données que dans la colonne PN.
Tiens-moi au courant, je devrais avoir du temps demain.
Bonne nuit

[Invité]

J'ai essayé de changer l'indice avec celui du dgv ou celui de la table access rien a faire. De meme quand je retire le tri dans le combobox ça ne change rien

[Phil Rob]

Dommage que c'est avec le numéro de colonne, j'aurai pu faire plus court encore avec les noms de colonnes ..., mais voici une procédure événementielle de réponse au changement d'index d'un Combo qui suffit à elle seule pour tous les Combos dédiés à ± la même tâche (sélection des lignes ...) :

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
18
19
20
21
22
23
24
Private Sub LesComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged, ComboBox3.SelectedIndexChanged
        Dim IndexColonne As Integer
        Dim IndexLigne As Integer
        DataGridView1.ClearSelection()
 
Select Case sender.name 
Case "ComboBox1"
       IndexColonne = 4
Case "ComboBox2"
       IndexColonne =  ..........
Case "ComboBox3"
       IndexColonne =  .................
' ... ... ...
End Select
 
        For IndexLigne = 0 To DataGridView1.Rows.Count - 1
            Try
                If DataGridView1.Item(IndexColonne, IndexLigne).Value = sender.Text Then   ' !!! changement
                    DataGridView1.Rows(IndexLigne).Selected = True
                End If
            Catch
            End Try
        Next
    End Sub

La ligne d'entête de la Sub est modifiée, il y a l'ajout d'un Select Case et une modification de l'alternative.
Quand tu veux réorganiser ton code, fais signe, j'ai un petit programme didactique qui montre l'exemple.

A bientôt,

[Invité]

c'est genial ca marche et c'est plus court
quand tu parles de reorganiser mon code tu veux dire pour qu'il soit plus simple a lire?