Bonjour le forum
je suis en train de bloqué sur mon projet, j'ai sur un usf une listbox je vouderais en double clic dessus elle active un deuxième usf et sur le dexieme usf alors j'ai mis le code suivant sur le boutton du usf 1 l'activation fonction par contre les controleur ne sont renseigner voila mon code si quelqu'un pourra me filé un coup de mains svp:
voila mes declaration
merci
je suis en train de bloqué sur mon projet, j'ai sur un usf une listbox je vouderais en double clic dessus elle active un deuxième usf et sur le dexieme usf alors j'ai mis le code suivant sur le boutton du usf 1 l'activation fonction par contre les controleur ne sont renseigner voila mon code si quelqu'un pourra me filé un coup de mains svp:
Code:
Dim x As Long
If trav.ListIndex = -1 Then
If signa = 0 Then
csigna = True
For x = 2 To finf11
If Feuil11.Cells(x, 21) = "" Then signa = x
Next
Else
With depTraitements
.hott = xHôtel(nohote)
.trav = xSignalement(signa)
End With
depTraitements.Show
End If
Code:
'Signalements
Public signa As Long
Public nosigna As Long
Public csigna As Boolean
'dysfonctionnement
Public nodysfonct As String
Public dysfonct As Long
Public cdysfonct As Boolean
'aucun prestatairePublic hote As Long
Public nohote As Integer
Public nohotte As Long
Code:
Public Function xHôtel(mm As Integer)
If mm = 0 Then xHôtel = "": Exit Function
xHôtel = Feuil2.Cells(trans.Cells(mm, 1), 2)
End Function
