Bonjour le Forum,
Je suis en train de créer un tableau pour aider à la planification du personnel en fonction des vols du jour.
On reçoit chaque matin un fichier avec les vols du jour. Celui-ci et transférer et traiter par mon tableau.
Durant la journée, l'utilisateur doit changer principalement les heures, porte ainsi que le nombre de PAX.
C’est pour modifier ces données que j’ai créé un Userform nommé Gest_Vol. Les macros commande provienne d’un modèle du site : http://boisgontierjacques.free.fr/ que j’ai repris et essayé d’adapter à mes besoin. Mais malheureusement, après plusieurs jours de recherche je bloque.
Dès que je veux effectuer une recherche, j’ai un message d’erreur suivant : erreur d’exécution ‘9’, l’indice n’appartient pas à sélection.
Private Sub TextBox6_Change()
If Me.TextBox6 <> "" Then
mots = Split(Trim(Me.TextBox6), " ")
Tbl = choix
For I = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(I), True, vbTextCompare)
Next I
n = 0: Dim b()
For I = LBound(Tbl) To UBound(Tbl)
a = Split(Tbl(I), "|")
n = n + 1: ReDim Preserve b(1 To Ncol + 1, 1 To n)
For k = 1 To Ncol
b(k, I + 1) = a(k - 1)
If k >= 2 And k <= 2 Then b(k, I + 1) = Format(b(k, I + 1), "0000")
Next k
b(k, I + 1) = a(k - 1)
Next I
If n > 0 Then
ReDim Preserve b(1 To Ncol + 1, 1 To n + 1)
Me.ListBox1.List = Application.Transpose(b)
Me.ListBox1.RemoveItem n
End If
Else
Gest_Vol_Initialize
End If
End Sub
Je vous joint le fichier.
Nb. Je débute dans la création des UserForm
Un grand merci par avance