Bug ouverture UF

Bonjour le forum,

En cours d'essai de construction d'un fichier, j'ai un soucis (BUG) à l'ouverture de l'U_ListAgent que je n'arrive pas à trouver la cause et le ressoudre.

C'est pour ça que je me raproche de vous afin d'avoir un peu d'aide si possible, svp merci.

le Bug se produit ici :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
' Recupe le Numero de ligne
Lig = Val(ListView1.SelectedItem)
    For C = 1 To 3
        Controls("TextBox" & C).Value = Sh.Cells(Lig, C)
    Next
Button2.Visible = True
Button3.Visible = True
End Sub

serait'il possible également de mettre la liste des agents par ordre alphabétique lors d'un ajout ou d'une modif ?

Merci par avance

Cordialement

pompaero

12tdb-sport.xlsm (353.28 Ko)

Bonjour,

il suffit de supprimer le "type" défini par l'utilisateur...

Au lieu de :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Mettre :

Private Sub ListView1_Click()

Pour le classement alphabétique il y a des astuces ici ou bien sur le site de BJ : http://boisgontierjacques.free.fr/pages_site/Tris.htm

@ bientôt

LouReeD

Boujour LouReeD,

Je te remercie de ton soutien, efficacité et rapidité. Ca marche nickel, je vais pouvoir poursuivre mon ficier. et pour le classement alphabétique merci du lien. je vais voir ça.

A bientot

Cdt

pompaero

bonjour

a eviter Private Sub ListView1_Click()

ton code est bon

mes tu a oublier de valider le msconctl.ocx

A+

Maurice

Bonjour

retour de ton fichier & activation de la listview

A+

Maurice

16tdb-sport.xlsm (353.69 Ko)

Bonsoir archer !

Merci de me donner des informations sur ceci :

bonjour

a eviter Private Sub ListView1_Click()

ton code est bon

mes tu a oublier de valider le msconctl.ocx

Pourquoi ne pas utiliser le "Click"

valider le msconctl.ocx?!

Merci par avance.

@ bientôt

LouReeD

Bonjour LouReeD

quant tu charge la listview

Click sur une ligne vide

A+

Maurice

OK !

Réponse décochée aussi vite que votre réponse !

Sinon en allant plus en avant, les lignes vides des ListView sont fonctionnelles... OK.

Contrairement aux ListBox...

Mais un "On Error Resume Next" ?! Ca marche, non ?

Et la validation du .ocx, si l'utilisateur futur ne l'a pas validé chez lui ? A moins que ce soit interne à l'application ?

@ bientôt

LouReeD

Bonjour archer, LouReeD

Merci pour ton fichier en retour.

Je ne comprends pas le principe d'avoir oublier de valider le msconctl.ocx !?

Peux tu m'expliquer stp ?

Cdt

pompaero

Bonjour archer, le forum

Pas de retour !!

J'aimerai bien avoir le principe de manière à pouvoir valider le msconctl.ocx !? ça serait cool et j'apprendrai quelque chose de nouveau.

Merci de votre compréhension.

Cdt

pompaero

bonjour

voila une réponse a toi de jouer

'MSCOMCTL.OCX = Listview

'MSCOMCT2.OCX = DTPicker

' on doit les trouver dans les 2 repertoire

'C:\Windows\SysWOW64

'C:\windows\System32

' on les active dans Outils/références

' on les trouve dans le System32

A+

Maurice

Bonjour et merci,

Si la ListView fonctionne c'est qu'il n'y a rien d'autre à faire que de l'insérer dans le USF je présume ?

@ bientôt

LouReeD

Bonjour

pour ListView1_ItemClick il faut activer la Listview

A+

Maurice

OK, merci pour les informations !

@ bientôt

LouReeD

Bonjour

voila une astuce pour 2 date si tu a DTPicker

A+

Maurice

6tdb-sport.xlsm (356.12 Ko)

Bonjour archer

Merci pour les petites astuces, c'est vrai que cela me parle car il y a quelques années en arrière j'avais installé 'MSCOMCT2.OCX = DTPicker (pour pouvoir travailler avec DTPicker) mais depuis j'ai changé de PC et ne veux plus l'installer car à chaque changement d'excel il faut réinstaller et réinstaller !! cela deviens compliquer.

Je vais essayer de retrouver l'endroit pour cocher ce fameux (SP6).

Quand j'ouvre la partie VBE dans outils/référnece il n'y a rien.

Bonne soirée

Cdt

pompaero

Rechercher des sujets similaires à "bug ouverture"