Recherche dans un msflexgrid et deplacement du resultat en ligne 1

Soyez le premier à donner votre avis sur cette source.

Vue 9 364 fois - Téléchargée 1 893 fois

Description

c'est pour faire une recherche dans un msflexgrid et deplacer le resultat a la premiere ligne car on a beaucoup de ligne c'est probleme de chercher avec la barre de defilement.
voila si ca peut aider quelqu'un

Source / Exemple :


' Placer un MsFlexGrid sur la Form
' Renommer MsFlexGrid en Grid1
' Dans Propriete definir à 100 le nombre de ligne
' et à 2 le nombre de colonne

' declare la vriable NB_Ligne en Public
Public NB_Ligne As Integer

Private Sub Command1_Click()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez votre recherche"
Title = "Recherche par Nom"   ' Définit le titre.
Default = ""   ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
'positionnement à la colonne N°1
Grid1.Col = 1
' Boucle de Recherche
For x = 1 To NB_Ligne - 1
' se positionne sur la ligne du N° de la boucle
Grid1.Row = x
' Test la cellule de la grille par apport au texte recherche
If Grid1.Text = MyValue Then
' on déplace le resultat de la recherche
' dans la premiere ligne
Grid1.RowPosition(Grid1.RowSel) = 1
End If
Next x

Grid1.Row = 1
Grid1.Col = 1
' On modifie la couleur du fond de cellule
Grid1.CellBackColor = &HFFFF80
End Sub

' Placer sur le Form un bouton de command

Private Sub Form_Load()
' Defini le nombre de lignes dans le msFlexGrid
NB_Ligne = Grid1.Rows
' Boucle de Remplissage
For I = 1 To NB_Ligne - 1
'positionnement à la colonne N°1
Grid1.Col = 1
' se positionne sur la ligne du N° de la boucle
Grid1.Row = I
Grid1.Text = "Salut" & I
Next I
End Sub

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.