Soyez le premier à donner votre avis sur cette source.
Vue 9 512 fois - Téléchargée 1 917 fois
' 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
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.