probleme de listview

[jeannot68]

Bonjour,

N'ayant jamais utiliser VBA jusqu a maintenant j'ai fait appelle au forum pour mettre en place mon projet.Pour mes listview j'ai récupéré des codes qui marche certe mais s'est pas réellemnet ce que je veux et je n'arrive pas a changer.

Je souhaiterailorsque je clik sur rechercher ou modifier un traceur existant" et apres avoir sélectionné le lieu puis le nom du traceur s'affiche automatiquement les données (onglet base), les dépannages (onglet Dépannage) et les relevés d'intensité qui se trouve dans différents onglet en fonction du lieu (exemple: Boue et clémentine)

Donc dans ma listview 1 je recherche dans l'onglet Dépannage le nom du traceur et le lieu qui est sélectionné dans comboBox 7 et Combobox 1. actuellement ca marche seul souci c est lorsque je cherche un 1er traceur ou il y a eu du dépannage ces informations restent ameme si je selectionne mon traceur qui n a pas eu de dépannage.
Je souhaiterai donc que si auncun dépannage la listview affiche aucun dépannage et soit grisés.

Pour la listeview 2 c'est le meme principe sauf que la je dois chercher dans l'onglet qui correspond a la valeur de ma combobox 7 puis une fois activé delle recherche dans la colonne 1 la valeur de ma combobox1.
Actuellement y a un systeme ou je doit cliker sur les dépnnage pour avoir les inntensités. et je ne sait pas quoi enlevé

Merci de votre attention, a bientot j espere

Mon fichier
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[jp14]

Re : probleme de listview

Bonjour

Ci joint le fichier avec les modifications demandées.

JP

 

[jeannot68]

Re : probleme de listview

salut JP14

Ca marche, mais seul probleme c'est que ma listview 2 se rempli si la listeview 1 est rempli or je souhaitre que la listview 2 se remplisse meme si il ni a pas eu de dépannage
A+

 

[jp14]

Re : probleme de listview

Bonjour

Ci dessous la partie du code à modifier dans la procédure Private Sub ComboBox1_Change()

...................................
If lig = 0 Then
    '
    Call entete(1, Array("Il n'y pas de dépannage pour ce traceur ", 600))
    With ListView1
        .View = 3
    End With
    'Call MsgBox("Il n'y a pas eut de dépannage pour ce traceur", vbInformation, Application.Name)
    [COLOR="Red"]Call crerlistv2(ComboBox7.Value, ComboBox1.Value)[/COLOR]
    Exit Sub
End If
............................

JP

 

[jeannot68]

Re : probleme de listview

salut JP14

super ca marche merci beaucoup. J abuse un peu mais pourrais tu vérifier le bouton modifier si je change des données elles ne sont pas modifié dans la base.

De plus y a t il une astuce pour puvoir modier une photo en appuyant sue r le bouton modifier??

Merci encore

 

[jp14]

Re : probleme de listview

Bonjour

Ci dessous la procédure à modiifer

Private Sub cmdmodifier_Click()
If cmdmodifier.Caption = "Enregistrer" Then
[COLOR="Red"]lig = CLng(ComboBox1.List(ComboBox1.ListIndex, ComboBox1.ColumnCount - 1))[/COLOR]
    Call remplirbdd(£ligne1:=lig, £nomfeuille1:="Base")
......................................

JP