Bonjour,
Un petit souci certainement pas grand chose mais je séche. Dans une
boucle, je rempli une MshFlexGrid et à chaque passage je fais un test
et aimerai inséré une image selon le résultat de ce test. Mais voila,
pour insérer une image il me faut specifier le N° de colonne (ça c'est
bon) et le N° de ligne. Comment connaitre le numéro de ligne ???
J'ai bien .Rows qui me le donne mais je n'arrive pas à l'utiliser.
Voici mon code.
Do While Not Rst01.EOF
Msh.AddItem Rst01!Id & vbTab & vbTab & Rst01!nom
If Rst01!Enservice = False Then
Msh.Col = 1
Msh.Row = Msh.Rows
Set Msh.CellPicture = LoadPicture(App.Path + "Croix
rouge.gif")
End If
Rst01.MoveNext 'Après remplissage on lit la ligne suivante
Loop
A priori rien d'extraordinaire mais ça bloque sur le N° de ligne, si
quelqu'un a une idée !
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Christophe QUEVAL
Bonjour,
Essayez en ajoutant -1 après Msh.Rows (ainsi : Msh.Row = Msh.Rows - 1)
Bon courage
Christophe
"Mosquitout" a écrit dans le message de news:
Bonjour, Un petit souci certainement pas grand chose mais je séche. Dans une boucle, je rempli une MshFlexGrid et à chaque passage je fais un test et aimerai inséré une image selon le résultat de ce test. Mais voila, pour insérer une image il me faut specifier le N° de colonne (ça c'est bon) et le N° de ligne. Comment connaitre le numéro de ligne ??? J'ai bien .Rows qui me le donne mais je n'arrive pas à l'utiliser. Voici mon code.
Do While Not Rst01.EOF Msh.AddItem Rst01!Id & vbTab & vbTab & Rst01!nom If Rst01!Enservice = False Then Msh.Col = 1 Msh.Row = Msh.Rows Set Msh.CellPicture = LoadPicture(App.Path + "Croix rouge.gif") End If Rst01.MoveNext 'Après remplissage on lit la ligne suivante Loop
A priori rien d'extraordinaire mais ça bloque sur le N° de ligne, si quelqu'un a une idée !
Bonjour,
Essayez en ajoutant -1 après Msh.Rows (ainsi : Msh.Row = Msh.Rows - 1)
Bon courage
Christophe
"Mosquitout" <mosquitout@hotmail.com> a écrit dans le message de
news:7cf98145.0402180952.5d9d7bcf@posting.google.com...
Bonjour,
Un petit souci certainement pas grand chose mais je séche. Dans une
boucle, je rempli une MshFlexGrid et à chaque passage je fais un test
et aimerai inséré une image selon le résultat de ce test. Mais voila,
pour insérer une image il me faut specifier le N° de colonne (ça c'est
bon) et le N° de ligne. Comment connaitre le numéro de ligne ???
J'ai bien .Rows qui me le donne mais je n'arrive pas à l'utiliser.
Voici mon code.
Do While Not Rst01.EOF
Msh.AddItem Rst01!Id & vbTab & vbTab & Rst01!nom
If Rst01!Enservice = False Then
Msh.Col = 1
Msh.Row = Msh.Rows
Set Msh.CellPicture = LoadPicture(App.Path + "Croix
rouge.gif")
End If
Rst01.MoveNext 'Après remplissage on lit la ligne suivante
Loop
A priori rien d'extraordinaire mais ça bloque sur le N° de ligne, si
quelqu'un a une idée !
Essayez en ajoutant -1 après Msh.Rows (ainsi : Msh.Row = Msh.Rows - 1)
Bon courage
Christophe
"Mosquitout" a écrit dans le message de news:
Bonjour, Un petit souci certainement pas grand chose mais je séche. Dans une boucle, je rempli une MshFlexGrid et à chaque passage je fais un test et aimerai inséré une image selon le résultat de ce test. Mais voila, pour insérer une image il me faut specifier le N° de colonne (ça c'est bon) et le N° de ligne. Comment connaitre le numéro de ligne ??? J'ai bien .Rows qui me le donne mais je n'arrive pas à l'utiliser. Voici mon code.
Do While Not Rst01.EOF Msh.AddItem Rst01!Id & vbTab & vbTab & Rst01!nom If Rst01!Enservice = False Then Msh.Col = 1 Msh.Row = Msh.Rows Set Msh.CellPicture = LoadPicture(App.Path + "Croix rouge.gif") End If Rst01.MoveNext 'Après remplissage on lit la ligne suivante Loop
A priori rien d'extraordinaire mais ça bloque sur le N° de ligne, si quelqu'un a une idée !
