lier employé et numéro

[marleauc]

Bonjour et bonsoir pour certain,

Voici , j'ai fait une petite apllication avec les nombreux exemples et conseils de plusieurs excelliens de ce site. voici j'aimerais relier l'onglet évènement a la fiche employé correspondantvia le num. de permis. mais je ne vois pas comment?

PS: pourquoi , il ya déja un entré lors de l'ouverture de USF?

 

[marleauc]

Re : lier employé et numéro

salut vous tous

Je sais que Thierry a l'époque avait fait une chose semblable mais je ne trouve pas.

merci de votre aide!

 

[kjin]

Re : lier employé et numéro

Bonsoir,
Question1 : je ne comprends pas la question
Question2 : je ne comprends pas ton questionnement, tu es le concepteur du fichier; maintenant, si tu souhaites que le formulaire soit vierge à l'ouverture, c'est une autre question
A+
kjin

 

[marleauc]

Re : lier employé et numéro

bonsoir kjin ,

je m'excuse tu as raison, ce que j'aimerais c'est que la listview1 de l'userform puisse afficher les évènement du numéro relié a la textbpermis

donc,
Listview1= tous les évènements liée a la valeur de la textBpermis<

merci de ton aide

 

[kjin]

Re : lier employé et numéro

Re,
En PJ ton fichier modifié

Edit : dans le code de la sub "AlimenteTb", modifie la ligne suivante en rajoutant les paramètres en bleu

Set c = .Columns(1).Find(ColTb(3)[COLOR="Blue"][B], , lookat:=xlWhole[/B][/COLOR])

A+
kjin

 

[Banzai64]

Re : lier employé et numéro

Bonjour

Un essai mais les ListView pas ma tasse de café

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

Oups désolé mais j'avais pas rafraichi ni réfléchi

C'est grosso modo la même chose

 

[marleauc]

Re : lier employé et numéro

WOW! un gros merci a vous...

bonne soirée!

thank's again

 

[marleauc]

Re : lier employé et numéro

bonjour vous tous,

Un petite question relié a ce sujet

Si je veux ajouter un deuxieme listeview relié encore au numéro de permis est ce que le code de Alimente TB serait :

Private Sub AlimenteTb()
Dim Lgn As Range, Bcle&, c As Range, adresse$
Set Lgn = PlageBase(IndexBase, 1)
For Bcle = 1 To ColTb.Count
ColTb(Bcle).Text = Lgn(1, Bcle).Value
Next Bcle
LabIndex = "Fiche " & IndexBase & " sur " & PlageBase.Rows.Count
ListView1.ListItems.Clear
With Sheets("evenement")
Set c = .Columns(1).Find(ColTb(3), lookat:=xlWhole)
If Not c Is Nothing Then
adresse = c.Address
Do
With ListView1
.ListItems.Add , , c
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 2)
Set Lgn = PlageBase(IndexBase, 1)
End With
For Bcle = 1 To ColTb.Count
ColTb(Bcle).Text = Lgn(1, Bcle).Value
Next Bcle
LabIndex = "Fiche " & IndexBase & " sur " & PlageBase.Rows.Count
ListView2.ListItems.Clear
With Sheets("assiduite")
Set c = .Columns(1).Find(ColTb(3), lookat:=xlWhole)
If Not c Is Nothing Then
adresse = c.Address

With Sheets("assiduite")
Set c = .Columns(1).Find(ColTb(3), lookat:=xlWhole)
If Not c Is Nothing Then
adresse = c.Address
Set c = .Columns(1).Find(ColTb(3), lookat:=xlWhole)
If Not c Is Nothing Then
adresse = c.Address
Do
With ListView2
.ListItems.Add , , c
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(, 2)

End With

Set c = .Columns(1).FindNext(c)
Loop While Not c Is Nothing And c.Address <> adresse
End If
End If
End With
End If
End With
End Sub

merci de votre aide