Rectangle autour d'une partie de texte

Version imprimable

Bonjour à tous,

mon objectif est de dessiner dans un datagridview un rectangle vert dans une des cellules autour d'un texte recherché.

Pour l'instant je m’entraîne à dessiner ce rectangle autour des 4 caractères à partir du 5ieme dans la colonne 1 ligne 3 (c'est pour vérifier que mon algo de dessin marche bien).

ça donne ce code là dans le PAINT du datagridview:
Code:

1 2 3 4 5 6 7 8 9 Dim Rect1 As Rectangle Dim SizePolice As SizeF SizePolice = e.Graphics.MeasureString(Me.DataGridViewPIPC.Item(1, 3).Value.ToString.Substring(5, 4), Me.DataGridViewPIPC.Item(1, 3).InheritedStyle.Font) Rect1.X = Me.DataGridViewPIPC.GetColumnDisplayRectangle(1, True).X + e.Graphics.MeasureString(Me.DataGridViewPIPC.Item(1, 3).Value.ToString.Substring(0, 5), Me.DataGridViewPIPC.Item(1, 3).InheritedStyle.Font).Width Rect1.Y = Me.DataGridViewPIPC.GetRowDisplayRectangle(3, True).Y + 4 Rect1.Height = SizePolice.Height - 1 Rect1.Width = SizePolice.Width e.Graphics.DrawRectangle(New Pen(Brushes.LightGreen, 2), Rect1)
Ca marche bien quand la police est de style BOLD, mais comme mon DGV contient des lignes en BOLD, REGULAR, ITALIC, je ne comprend pas pourquoi mon rectangle est mal positionné et dimensionné (largeur trop grande de quelques pixel) quand c'est du REGULAR ou ITALIC.

Quelqu'un a-t-il une idée, c'est comme si le e.graphic.measurestring ne fonctionnait correctement qu'avec du BOLD??

bonjour sibama

Il faudrait travailler :
-l'event CellPainting
-le class CharacterRange qui sait obtenir le layoutRect de chaque sous-chaine ...
Le code exemple du class teststring binde au dgv(illistration)

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
26
 
 
 
Public Class TestString
    Public Sub New(ByVal tl As String)
        Title = tl
 
    End Sub
    Public Property Title() As String
 
End Class
Public Class TestStrings
    Inherits List(Of TestString)
    Dim t As TestString
    Public Sub New()
 
 
        For i As Integer = 1 To 10
 
            t = New TestString("Smith Associted and Company Smith Associted and Company" + i.ToString())
 
            Me.Add(t)
        Next
 
    End Sub
End Class

le code du winform avec un dgv dessus:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
Public Class frmDGVPaint
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim l As TestStrings = New TestStrings()
 
        Dim bds As BindingSource = New BindingSource()
        bds.DataSource = l
        Me.dgv.DataSource = bds
    End Sub
    Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles dgv.CellPainting
 
        If Me.dgv.Columns("Title").Index = e.ColumnIndex AndAlso e.RowIndex >= 0 Then
 
 
            If e.Value IsNot Nothing Then
                ' Check for the string  in the cell.
                Dim s As String = CType(e.Value, String)
                Dim fnt As Font = e.CellStyle.Font
 
                'bounds du cell
                Dim layoutRect As RectangleF = New Rectangle(e.CellBounds.X + 1, e.CellBounds.Y + 1, _
                e.CellBounds.Width - 4, e.CellBounds.Height - 4)
 
 
                ' Set character ranges 
                Dim characterRanges As CharacterRange() = _
                {New CharacterRange(0, 4), New CharacterRange(5, 4)}
 
                ' Set string format.
                Dim fmt As New StringFormat(StringFormat.GenericDefault)
                fmt.SetMeasurableCharacterRanges(characterRanges)
 
                ' Measure two ranges in string (obtient les regions de decoupage des sous-chaines).
                Dim strRegions() As Region = e.Graphics.MeasureCharacterRanges(s, _
         fnt, layoutRect, fmt)
                Dim g As Graphics = e.Graphics
 
                'clipper les limites de dessin
                g.Clip = New Region(e.CellBounds)
 
 
                ' Redssine toute la cellule(hard way de l'api).
 
                g.FillRectangle(Brushes.White, e.CellBounds)
                ' je t'epargne ces lignes(voir exemple msdn)
                ' Draw the grid lines (only the right and bottom lines;
                ' DataGridView takes care of the others).
 
 
                ' Draw text
                g.DrawString(CStr(e.Value), e.CellStyle.Font, _
               Brushes.Black, layoutRect.X + 2, layoutRect.Y + 2, _
               fmt)
 
                ' Draw rectangle pour la 1ere s/chaine .
                Dim measureRect1 As RectangleF = _
                strRegions(0).GetBounds(e.Graphics)
                g.DrawRectangle(New Pen(Brushes.Yellow, 1), _
                Rectangle.Round(measureRect1))
 
                ' Draw rectangle pour la 2ere s/chaine(la tienne) .
                Dim measureRect2 As RectangleF = _
                strRegions(1).GetBounds(e.Graphics)
                g.DrawRectangle(New Pen(Color.Red, 1), _
                Rectangle.Round(measureRect2))
 
 
                e.Handled = True
 
            End If
        End If
 
    End Sub
 
 
    Private Sub DataGridView1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles dgv.Paint
        'Dim Rect1 As Rectangle
        'Dim SizePolice As SizeF
 
        'SizePolice = e.Graphics.MeasureString(Me.DataGridViewPIPC.Item(1, 3).Value.ToString.Substring(5, 4), Me.DataGridViewPIPC.Item(1, 3).InheritedStyle.Font)
        'Rect1.X = Me.DataGridViewPIPC.GetColumnDisplayRectangle(1, True).X + e.Graphics.MeasureString(Me.DataGridViewPIPC.Item(1, 3).Value.ToString.Substring(0, 5), Me.DataGridViewPIPC.Item(1, 3).InheritedStyle.Font).Width
        'Rect1.Y = Me.DataGridViewPIPC.GetRowDisplayRectangle(3, True).Y + 4
        'Rect1.Height = SizePolice.Height - 1
        'Rect1.Width = SizePolice.Width
        'e.Graphics.DrawRectangle(New Pen(Brushes.LightGreen, 2), Rect1)
    End Sub
 
 
 
 
 End Class

bon code...

13/06/2013, 00h32
sibama

Bonjour MABROUKI et merci pour ta réponse, désolé pour le temps mis pour te répondre mais j'étais sur un autre problème pour préparer les données pour pouvoir les passer dans le CharacterRange en fonction du contenu de ma textbox de recherche.

3 petites questions (je sais j'abuse):
- est-ce que la classe TestStrins a un intérêt particulier par rapport au contenu de la cellule du DGV convertit en ToString?
- quand je passe ton exemple dans mon DGV, cela encadre bien les zones de texte (en tenant compte du style cette fois-ci) mais le reste du DGV reste noir (quand je dis reste c'est toute la partie qui est "dessinée" après la cellule concernée). Par contre, si je clique sur ces cellules "noir", l'événement Paint doit être activé et le texte de la cellule cliqué réapparaît.
- Quel est l'intéret de passer par le DGV_CellPainting plutôt que dans le DGV_Paint?

Citation:

est-ce que la classe TestStrins a un intérêt particulier par rapport au contenu de la cellule du DGV convertit en ToString?

Non c'est juste un exemple simple pour illustrer un formattage avec CharacterRange......

Citation:

Quel est l'intéret de passer par le DGV_CellPainting plutôt que dans le DGV_Paint?

c'est le moyen "propre" recommande par l'api du dgv
referes toi à ce topic msdn:
How to: Customize the Appearance of Cells in the Windows Forms DataGridView Control

Dans le code communique il y a 2 choses à rectifier :
1/un boggus perso :la ligne ou il y a g.clip est à virer.Car dgv s'en charge en interne.Cette ligne explique le "fameux noir" que tu vois...

2/StringFormat :est utilise pour recuperer les regions,mais alors nous intervenons dans le formatage du dgv...
Il faut dans ce cas imiter jusqu'au bout ce qu'aurait fait dgv pour cela:
-il faut rajouter 2 lignes au niveau du stringformat..
-rectifier le layoutrec (rectangle englobant de drawstring)

code revu:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
Public Class frmDGVPaint
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim l As TestStrings = New TestStrings()
 
        Dim bds As BindingSource = New BindingSource()
        bds.DataSource = l
        Me.dgv.DataSource = bds
    End Sub
    Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles dgv.CellPainting
 
        If Me.dgv.Columns("Title").Index = e.ColumnIndex AndAlso e.RowIndex >= 0 Then
 
 
            If e.Value IsNot Nothing Then
                ' Check for the string  in the cell.
                Dim s As String = CType(e.Value, String)
                Dim fnt As Font = e.CellStyle.Font
 
                'bounds du cell
                Dim layoutRect As RectangleF = New Rectangle(e.CellBounds.X + 1, e.CellBounds.Y + 1, _
                e.CellBounds.Width - 4, e.CellBounds.Height - 4)
 
 
                ' Set character ranges 
                Dim characterRanges As CharacterRange() = _
                {New CharacterRange(0, 4), New CharacterRange(5, 4)}
 
                ' Set string format.
                Dim fmt As New StringFormat(StringFormat.GenericDefault)
                fmt.SetMeasurableCharacterRanges(characterRanges)
                '----------MODIF...........
                'RAJOUT CECI CAR DGV PAR DEFAUT METS DES ELLIPSIS.....
                fmt.Trimming = StringTrimming.EllipsisWord
                fmt.Alignment = StringAlignment.Center
 
                ' Measure two ranges in string (obtient les regions de decoupage des sous-chaines).
                Dim strRegions() As Region = e.Graphics.MeasureCharacterRanges(s, _
         fnt, layoutRect, fmt)
                Dim g As Graphics = e.Graphics
 
                '----------MODIF...........
                ' SUPPRIMER CETTE LIGNE :boggus
                '(dgv clippe les limites dessin de lui meme)
                'g.Clip = New Region(e.CellBounds)
 
 
                ' Redssine toute la cellule(hard way de l'api).
 
                g.FillRectangle(Brushes.White, e.CellBounds)
                ' je t'epargne ces lignes(voir exemple msdn)
                ' Draw the grid lines (only the right and bottom lines;
                ' DataGridView takes care of the others).
 
                '----------MODIF...........
                ' Remplacer layoutRect => LA MISE EN FOMRE EST PRIS CHARGE 
                ' PAR NOS SOINS -centre & ellipsis
                ' Draw text
                g.DrawString(CStr(e.Value), e.CellStyle.Font, _
               Brushes.Black,
               layoutRect, _
               fmt)
 
 
                ' Draw rectangle pour la 1ere s/chaine .
                Dim measureRect1 As RectangleF = _
                strRegions(0).GetBounds(e.Graphics)
                g.DrawRectangle(New Pen(Brushes.Yellow, 1), _
                Rectangle.Round(measureRect1))
 
                ' Draw rectangle pour la 2ere s/chaine(la tienne) .
                Dim measureRect2 As RectangleF = _
                strRegions(1).GetBounds(e.Graphics)
                g.DrawRectangle(New Pen(Color.Red, 1), _
                Rectangle.Round(measureRect2))
 
 
                e.Handled = True
 
            End If
        End If
 
    End Sub

Cette fois cela devrait marcher ...
bon code...

Merci pour tes explications, après adaptation de ton code à mon système de recherche (qui peut rechercher plusieurs mots dans une cellule) et au fait que plutôt que de dessiner un rectangle autour du texte je suis passé à l'option dessiner un rectangle plein sous le texte, j'obtiens le code suivant:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 Private Sub DataGridViewPIPC_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridViewPIPC.CellPainting
 
        ' Gestion des zones de texte recherchées
        If SauvegardeRecherche.CountItem > 0 Then
            ' Vérification si la cellule est celle de la recherche en cours  
            Dim ColonneCellule As Integer = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Colonne
            Dim LigneCellule As Integer = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne
            If ColonneCellule = e.ColumnIndex AndAlso e.RowIndex = LigneCellule Then
                ' Récupération de la police
                Dim MaPolice As Font = e.CellStyle.Font
                ' Limites de la cellule
                Dim MaTailleCellule As RectangleF = New Rectangle(e.CellBounds.X + 1, e.CellBounds.Y + 1, e.CellBounds.Width - 5, e.CellBounds.Height - 6)
                ' Récupération des zones de texte à encadrer
                Dim ZoneDeTexte As CharacterRange() = {New CharacterRange(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(0).IndexDepart, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(0).LongueurZone)}
                For i = 1 To SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).CountZone - 1
                    ReDim Preserve ZoneDeTexte(i)
                    ZoneDeTexte(i) = New CharacterRange(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(i).IndexDepart, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(i).LongueurZone)
                Next
                ' Format de la chaine
                Dim MonFormat As New StringFormat(StringFormat.GenericDefault)
                MonFormat.SetMeasurableCharacterRanges(ZoneDeTexte)
                MonFormat.Trimming = StringTrimming.EllipsisWord
                MonFormat.Alignment = StringAlignment.Near
                ' Obtention des regions de découpage des sous-chaines
                Dim strRegions() As Region = e.Graphics.MeasureCharacterRanges(CStr(e.Value), MaPolice, MaTailleCellule, MonFormat)
                Dim g As Graphics = e.Graphics
                ' Redessine toute la cellule(hard way de l'api).
                g.FillRectangle(Brushes.White, e.CellBounds)
                ' Draw rectangle pour la 1ere s/chaine .
                For i = 0 To SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).CountZone - 1
                    Dim measureRect1 As RectangleF = strRegions(i).GetBounds(e.Graphics)
                    g.FillRectangle(Brushes.LightGreen, strRegions(i).GetBounds(e.Graphics))
                Next
                g.DrawString(CStr(e.Value), e.CellStyle.Font, Brushes.Black, MaTailleCellule, MonFormat)
 
                e.Handled = True
 
            End If
        End If
    End Sub

Ca marche presque bien, il y a juste un problème sur le fait qu'il faut cliquer sur la cellule pour que le dessin apparaisse (ou disparaisse lorsque la recherche suivante est appliquée).

J'ai bien essayé de mettre un

Code:

Me.DataGridViewPIPC.UpdateCellValue(e.ColumnIndex, e.RowIndex)

mais si ça fait bien disparaître l'ancien surlignage sur la recherche précédente, il faut toujours que je clique sur la nouvelle cellule trouvée pour voir mon dessin apparaître (la partie rectangle vert)??...

Tu as une idée? d'autant que ça marche parfaitement si je fais apparaître la cellule recherchée par un scrolling de mon DGV.

Re

Bah,avec ta condition sur ton list SauvegardeRecherche.CountItem > 0 c'est pas suffisant ...
Il faudrait que tu memorise :
- le "compte" de la recherche courante(proprement initialisee...)
- le "compte" de la derniere recherche (qui doit etre maj)
- faire un test pour verifier si "compte" de recherche courante est >0 et s'il differe de la derniere recherche.....avant de peindre

Dans ce genre ,en l'absence de plus d'information :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private lastCount As Integer Private SauvegardeRecherche As List(Of String) Private currentCount As Integer = SauvegardeRecherche.Count Private Sub dgv_CellPainting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles dgv.CellPainting ' Gestion des zones de texte recherchées If currentCount > 0 And currentCount <> lastCount Then 'mettre à jour lastcount lastCount = SauvegardeRecherche.Count ' Vérification si la cellule est celle de la recherche en cours Dim ColonneCellule As Integer = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Colonne Dim LigneCellule As Integer = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne '.................reste du code.... end sub
si tu fais la recherche de l'exterieur c'est plus simple il suffit d'appeler
dgv.UpdateCellValue,celui-ci declenche l'event CellPainting de lui -meme:
Code:

1 2 3 4 Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click Me.dgv.UpdateCellValue(ColonneCellule, LigneCellule) End Sub
bon code.........

Ca y est, ça marche nickel, merci bien MABROUKI.

Pour ce qui est de ma condition sur SauvegardeRecherche.CountItem > 0, en fait ça marche car, via SauvegardeRecherche, je gère déjà les notions de:
- recherches multiples
- gestion de l'ensemble des cellules répondant au critères de recherche
- pointeur permettant de gérer la cellule sur laquelle on pointe
- incrément/décrément du pointeur en gérant le bouclage par les hauts et bas de ma liste de cellules.
C'est parce que j'ai un peu galéré la dessus que j'avais mis 2 jours à répondre à ton premier message.

Encore merci pour le coup de main.

Pour ceux que ça pourrait aider, le code est:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
  Private Sub DataGridViewPIPC_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridViewPIPC.CellPainting
 
        ' Gestion des zones de texte recherchées
        If SauvegardeRecherche.CountItem > 0 Then
            ' Vérification si la cellule est celle de la recherche en cours  
            Dim ColonneCellule As Integer = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Colonne
            Dim LigneCellule As Integer = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne
            If ColonneCellule = e.ColumnIndex AndAlso e.RowIndex = LigneCellule Then
                ' Récupération de la police
                Dim MaPolice As Font = e.CellStyle.Font
                ' Limites de la cellule
                Dim MaTailleCellule As RectangleF = New Rectangle(e.CellBounds.X + 1, e.CellBounds.Y + 2, e.CellBounds.Width - 2, e.CellBounds.Height - 2)
                ' Récupération des zones de texte à encadrer
                Dim ZoneDeTexte As CharacterRange() = {New CharacterRange(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(0).IndexDepart, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(0).LongueurZone)}
                For i = 1 To SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).CountZone - 1
                    ReDim Preserve ZoneDeTexte(i)
                    ZoneDeTexte(i) = New CharacterRange(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(i).IndexDepart, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).ZoneTexte(i).LongueurZone)
                Next
                ' Format de la chaine
                Dim MonFormat As New StringFormat(StringFormat.GenericDefault)
                MonFormat.SetMeasurableCharacterRanges(ZoneDeTexte)
                MonFormat.Trimming = StringTrimming.EllipsisWord
                MonFormat.Alignment = StringAlignment.Near
                ' Obtention des regions de découpage des sous-chaines
                Dim strRegions() As Region = e.Graphics.MeasureCharacterRanges(CStr(e.Value), MaPolice, MaTailleCellule, MonFormat)
                Dim g As Graphics = e.Graphics
                ' Redessine toute la cellule(hard way de l'api).
                g.FillRectangle(Brushes.White, e.CellBounds)
                g.DrawRectangle(New System.Drawing.Pen(Me.DataGridViewPIPC.GridColor, 1), e.CellBounds.X - 1, e.CellBounds.Y - 1, e.CellBounds.Width, e.CellBounds.Height)
                ' Draw rectangle pour la 1ere s/chaine .
                For i = 0 To SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).CountZone - 1
                    Dim measureRect1 As RectangleF = strRegions(i).GetBounds(e.Graphics)
                    g.FillRectangle(Brushes.LightGreen, strRegions(i).GetBounds(e.Graphics))
                Next
                g.DrawString(CStr(e.Value), e.CellStyle.Font, Brushes.Black, MaTailleCellule, MonFormat)
                ' Je ne sais pas pourquoi, mais cette ligne permet de rafraichir l'ancienne cellule surlignée
                Me.DataGridViewPIPC.UpdateCellValue(e.ColumnIndex, e.RowIndex)
 
                e.Handled = True
            End If
        End If
    End Sub

et ce code là pour les boutons suivant/précédant et la textbox

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
  Private Sub ToolStripTextBoxRech_KeyDown(sender As Object, e As KeyEventArgs) Handles ToolStripTextBoxRech.KeyDown
 
        ' Recherche de la touche entrée
        If e.KeyCode = Keys.Enter Then
            ' Recherche dans le DGV dans le sens croissant
            If Me.ToolStripTextBoxRech.Text <> MemoTexteRecherche Then
                SauvegardeRecherche.Initialise()
                RechercherTexte(Me.DataGridViewPIPC, Me.DataGridViewPIPC.Rows.Count, Me.ToolStripTextBoxRech.Text, SauvegardeRecherche)
                MemoTexteRecherche = Me.ToolStripTextBoxRech.Text
            Else
                SauvegardeRecherche.ItemSuivant()
            End If
            ' Suppression du ENTREE pour éviter le bip
            e.SuppressKeyPress = True
            If SauvegardeRecherche.CountItem > 0 Then
                Me.DataGridViewPIPC.FirstDisplayedScrollingRowIndex = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne
                Me.DataGridViewPIPC.UpdateCellValue(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Colonne, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne)
            End If
        End If
 
    End Sub
 
 
    Private Sub ToolStripButtonRechSuiv_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRechSuiv.Click
 
        ' Recherche dans le DGV dans le sens croissant
        If Me.ToolStripTextBoxRech.Text <> MemoTexteRecherche Then
            SauvegardeRecherche.Initialise()
            RechercherTexte(Me.DataGridViewPIPC, Me.DataGridViewPIPC.Rows.Count, Me.ToolStripTextBoxRech.Text, SauvegardeRecherche)
            MemoTexteRecherche = Me.ToolStripTextBoxRech.Text
        Else
            SauvegardeRecherche.ItemSuivant()
        End If
        If SauvegardeRecherche.CountItem > 0 Then
            Me.DataGridViewPIPC.FirstDisplayedScrollingRowIndex = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne
            Me.DataGridViewPIPC.UpdateCellValue(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Colonne, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne)
        End If
 
    End Sub
 
 
    Private Sub ToolStripButtonRechPrev_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRechPrev.Click
 
        ' Recherche dans le DGV dans le sens décroissant
        If Me.ToolStripTextBoxRech.Text <> MemoTexteRecherche Then
            SauvegardeRecherche.Initialise()
            RechercherTexte(Me.DataGridViewPIPC, Me.DataGridViewPIPC.Rows.Count, Me.ToolStripTextBoxRech.Text, SauvegardeRecherche)
            MemoTexteRecherche = Me.ToolStripTextBoxRech.Text
        Else
            SauvegardeRecherche.ItemPrecedent()
        End If
        If SauvegardeRecherche.CountItem > 0 Then
            Me.DataGridViewPIPC.FirstDisplayedScrollingRowIndex = SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne
            Me.DataGridViewPIPC.UpdateCellValue(SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Colonne, SauvegardeRecherche.Item(SauvegardeRecherche.Pointeur).Adresse.Ligne)
        End If
 
    End Sub