Sujet Précédent Sujet Suivant

Multi liste sur listBox avec des données variables

Fermé
astreal - 30 mai 2014 à 09:44
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 30 mai 2014 à 11:51
Bonjour,



J'ai des listes de personnel de plusieurs services (donc variable). Dans une listebox précédente on sélectionne le service. Ce programme doit me permettre de faire apparaître dans ma listbox le personnel du service afin de pourvoir sélectionner celui qui m'intéresse. Il faut ensuite que sont numéro apparaisse dans une case à part. Cela va m'aider pour la suite... Mais c'est là que je bug, j'ai toujours un 10 qui apparais. Pourriez-vous m'aider?

Voici le programme (c'est pas le plus simple , je ne suis que débutante): 

Private Sub Listtypologie_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Range("z1") = "94" Then
    
    Listtypologie.Clear
    Listtypologie.AddItem Range("cb2")
    Listtypologie.AddItem Range("cb3")
    Listtypologie.AddItem Range("cb4")
    Listtypologie.AddItem Range("cb5")
    Listtypologie.AddItem Range("cb6")
    Listtypologie.AddItem Range("cb7")
    Listtypologie.AddItem Range("cb8")
    Listtypologie.AddItem Range("cb9")
    Listtypologie.AddItem Range("cb10")
    Listtypologie.AddItem Range("cb11")
  End If
  
If Range("z1") = "95" Then
    
    Listtypologie.Clear
    Listtypologie.AddItem Range("ce2")
    Listtypologie.AddItem Range("ce3")
    Listtypologie.AddItem Range("ce4")
    Listtypologie.AddItem Range("ce5")
    Listtypologie.AddItem Range("ce6")
    Listtypologie.AddItem Range("ce7")
    Listtypologie.AddItem Range("ce8")
    Listtypologie.AddItem Range("ce9")
    Listtypologie.AddItem Range("ce10")
    Listtypologie.AddItem Range("ce11")
    Listtypologie.AddItem Range("ce12")
    Listtypologie.AddItem Range("ce13")
    Listtypologie.AddItem Range("ce14")
    Listtypologie.AddItem Range("ce15")
    Listtypologie.AddItem Range("ce16")
   
End If
If Range("z1") = "96" Then
    
    Listtypologie.Clear
    Listtypologie.AddItem Range("cf2")
    Listtypologie.AddItem Range("cf3")
    Listtypologie.AddItem Range("cf4")
    Listtypologie.AddItem Range("cf5")
    Listtypologie.AddItem Range("cf6")
    Listtypologie.AddItem Range("cf7")
    Listtypologie.AddItem Range("cf8")
    Listtypologie.AddItem Range("cf9")
    Listtypologie.AddItem Range("cf10")
    Listtypologie.AddItem Range("cf11")
    Listtypologie.AddItem Range("cf12")
    
  End If
 If Range("z1") = "97" Then
    
    Listtypologie.Clear
    Listtypologie.AddItem Range("cd2")
    Listtypologie.AddItem Range("cd3")
    Listtypologie.AddItem Range("cd4")
    Listtypologie.AddItem Range("cd5")
    Listtypologie.AddItem Range("cd6")
    Listtypologie.AddItem Range("cd7")
    Listtypologie.AddItem Range("cd8")
    Listtypologie.AddItem Range("cd9")
    Listtypologie.AddItem Range("cd10")
    Listtypologie.AddItem Range("cd11")
    Listtypologie.AddItem Range("cd12")
     Listtypologie.AddItem Range("cd13")
      Listtypologie.AddItem Range("cd14")
     Listtypologie.AddItem Range("cd15")
      Listtypologie.AddItem Range("cd16")
     Listtypologie.AddItem Range("cd17")
     Listtypologie.AddItem Range("cd18")
      Listtypologie.AddItem Range("cd19")
   
End If
If Range("z1") = "176" Then
    
    Listtypologie.Clear
    Listtypologie.AddItem Range("cc2")
    Listtypologie.AddItem Range("cc3")
    Listtypologie.AddItem Range("cc4")
    Listtypologie.AddItem Range("cc5")
    Listtypologie.AddItem Range("cc6")
    Listtypologie.AddItem Range("cc7")
    Listtypologie.AddItem Range("cc8")
    Listtypologie.AddItem Range("cc9")
    Listtypologie.AddItem Range("cc10")
    Listtypologie.AddItem Range("cc11")
    Listtypologie.AddItem Range("cc12")
   
 End If
If Range("z1") = "177" Then
    
    Listtypologie.Clear
    Listtypologie.AddItem Range("ca2")
    Listtypologie.AddItem Range("ca3")
    Listtypologie.AddItem Range("ca4")
    Listtypologie.AddItem Range("ca5")
    Listtypologie.AddItem Range("ca6")
    Listtypologie.AddItem Range("ca7")
    Listtypologie.AddItem Range("ca8")
    Listtypologie.AddItem Range("ca9")
    Listtypologie.AddItem Range("ca10")
    Listtypologie.AddItem Range("ca11")
    Listtypologie.AddItem Range("ca12")
    Listtypologie.AddItem Range("ca13")
    End If
    
End Sub

Private Sub CommandButton1_Click()
Message = "Voulez vous vraiment supprimer les données de ce technicien?"
rep = MsgBox(Message, vbQuestion + vbYesNo, "Confirmation")
If rep = vbNo Then
Load UserForm5
End If
If rep = vbYes Then

Range("cg1").ClearContents


If listboxListtypologieValue <> Range("ca2") Then
Range("cg1") = 1
If listboxListtypologieValue <> Range("cb2") Then
Range("cg1") = 1
If listboxListtypologieValue <> Range("cc2") Then
Range("cg1") = 1
If listboxListtypologieValue <> Range("cc2") Then
Range("cg1") = 1
If listboxListtypologieValue <> Range("cd2") Then
Range("cg1") = 1
If listboxListtypologieValue <> Range("ce2") Then
Range("cg1") = 1
If listboxListtypologieValue <> Range("cf2") Then
Range("cg1") = 1


If listboxListtypologieValue <> Range("ca3") Then
Range("cg1") = 2
If listboxListtypologieValue <> Range("cb3") Then
Range("cg1") = 2
If listboxListtypologieValue <> Range("cc3") Then
Range("cg1") = 2
If listboxListtypologieValue <> Range("cc3") Then
Range("cg1") = 2
If listboxListtypologieValue <> Range("cd3") Then
Range("cg1") = 2
If listboxListtypologieValue <> Range("ce3") Then
Range("cg1") = 2
If listboxListtypologieValue <> Range("cf3") Then
Range("cg1") = 2

If listboxListtypologieValue <> Range("ca4") Then
Range("cg1") = 3
If listboxListtypologieValue <> Range("cb4") Then
Range("cg1") = 3
If listboxListtypologieValue <> Range("cc4") Then
Range("cg1") = 3
If listboxListtypologieValue <> Range("cc4") Then
Range("cg1") = 3
If listboxListtypologieValue <> Range("cd4") Then
Range("cg1") = 3
If listboxListtypologieValue <> Range("ce4") Then
Range("cg1") = 3
If listboxListtypologieValue <> Range("cf4") Then
Range("cg1") = 3

If listboxListtypologieValue <> Range("ca5") Then
Range("cg1") = 4
If listboxListtypologieValue <> Range("cb5") Then
Range("cg1") = 4
If listboxListtypologieValue <> Range("cc5") Then
Range("cg1") = 4
If listboxListtypologieValue <> Range("cc5") Then
Range("cg1") = 4
If listboxListtypologieValue <> Range("cd5") Then
Range("cg1") = 4
If listboxListtypologieValue <> Range("ce5") Then
Range("cg1") = 4
If listboxListtypologieValue <> Range("cf5") Then
Range("cg1") = 4

If listboxListtypologieValue <> Range("ca6") Then
Range("cg1") = 5
If listboxListtypologieValue <> Range("cb6") Then
Range("cg1") = 5
If listboxListtypologieValue <> Range("cc6") Then
Range("cg1") = 5
If listboxListtypologieValue <> Range("cc6") Then
Range("cg1") = 5
If listboxListtypologieValue <> Range("cd6") Then
Range("cg1") = 5
If listboxListtypologieValue <> Range("ce6") Then
Range("cg1") = 5
If listboxListtypologieValue <> Range("cf6") Then
Range("cg1") = 5

If listboxListtypologieValue <> Range("ca7") Then
Range("cg1") = 6
If listboxListtypologieValue <> Range("cb7") Then
Range("cg1") = 6
If listboxListtypologieValue <> Range("cc7") Then
Range("cg1") = 6
If listboxListtypologieValue <> Range("cc7") Then
Range("cg1") = 6
If listboxListtypologieValue <> Range("cd7") Then
Range("cg1") = 6
If listboxListtypologieValue <> Range("ce7") Then
Range("cg1") = 6
If listboxListtypologieValue <> Range("cf7") Then
Range("cg1") = 6

If listboxListtypologieValue <> Range("ca8") Then
Range("cg1") = 7
If listboxListtypologieValue <> Range("cb8") Then
Range("cg1") = 7
If listboxListtypologieValue <> Range("cc8") Then
Range("cg1") = 7
If listboxListtypologieValue <> Range("cc8") Then
Range("cg1") = 7
If listboxListtypologieValue <> Range("cd8") Then
Range("cg1") = 7
If listboxListtypologieValue <> Range("ce8") Then
Range("cg1") = 7
If listboxListtypologieValue <> Range("cf8") Then
Range("cg1") = 7

If listboxListtypologieValue <> Range("ca9") Then
Range("cg1") = 8
If listboxListtypologieValue <> Range("cb9") Then
Range("cg1") = 8
If listboxListtypologieValue <> Range("cc9") Then
Range("cg1") = 8
If listboxListtypologieValue <> Range("cc9") Then
Range("cg1") = 8
If listboxListtypologieValue <> Range("cd9") Then
Range("cg1") = 8
If listboxListtypologieValue <> Range("ce9") Then
Range("cg1") = 8
If listboxListtypologieValue <> Range("cf9") Then
Range("cg1") = 8

If listboxListtypologieValue <> Range("ca10") Then
Range("cg1") = 9
If listboxListtypologieValue <> Range("cb10") Then
Range("cg1") = 9
If listboxListtypologieValue <> Range("cc10") Then
Range("cg1") = 9
If listboxListtypologieValue <> Range("cc10") Then
Range("cg1") = 9
If listboxListtypologieValue <> Range("cd10") Then
Range("cg1") = 9
If listboxListtypologieValue <> Range("ce10") Then
Range("cg1") = 9
If listboxListtypologieValue <> Range("cf10") Then
Range("cg1") = 9

If listboxListtypologieValue <> Range("ca11") Then
Range("cg1") = 10
If listboxListtypologieValue <> Range("cb11") Then
Range("cg1") = 10
If listboxListtypologieValue <> Range("cc11") Then
Range("cg1") = 10
If listboxListtypologieValue <> Range("cc11") Then
Range("cg1") = 10
If listboxListtypologieValue <> Range("cd11") Then
Range("cg1") = 10
If listboxListtypologieValue <> Range("ce11") Then
Range("cg1") = 10
If listboxListtypologieValue <> Range("cf11") Then
Range("cg1") = 10

If listboxListtypologieValue <> Range("ca12") Then
Range("cg1") = 11
If listboxListtypologieValue <> Range("cc12") Then
Range("cg1") = 11
If listboxListtypologieValue <> Range("cc12") Then
Range("cg1") = 11
If listboxListtypologieValue <> Range("cd12") Then
Range("cg1") = 11
If listboxListtypologieValue <> Range("ce12") Then
Range("cg1") = 11
If listboxListtypologieValue <> Range("cf12") Then
Range("cg1") = 11

If listboxListtypologieValue <> Range("ca13") Then
Range("cg1") = 12
If listboxListtypologieValue <> Range("cd13") Then
Range("cg1") = 12
If listboxListtypologieValue <> Range("ce13") Then
Range("cg1") = 12

If listboxListtypologieValue <> Range("cd14") Then
Range("cg1") = 13
If listboxListtypologieValue <> Range("ce14") Then
Range("cg1") = 13

If listboxListtypologieValue <> Range("cd15") Then
Range("cg1") = 14
If listboxListtypologieValue <> Range("ce15") Then
Range("cg1") = 14

If listboxListtypologieValue <> Range("cd16") Then
Range("cg1") = 15
If listboxListtypologieValue <> Range("ce16") Then
Range("cg1") = 15

If listboxListtypologieValue <> Range("cd17") Then
Range("cg1") = 16

If listboxListtypologieValue <> Range("cd18") Then
Range("cg1") = 17

If listboxListtypologieValue <> Range("cd19") Then
Range("cg1") = 18


End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Unload UserForm5
End Sub

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 30/05/2014 à 11:52
Bonjour,

tu pourrais peut-^tre simplifier l'affectation d'une valeur à la cellule rg1

à adapter à ton contexte (macro écrite sur petite maquette chez moi) 
Sub xxx()
cherche = "blabla12"
If Application.CountIf(Range("C2:F21"), cherche) + 0 Then GoTo erreur
For Each cellule In Range("C2:F21")
     If cellule = cherche Then Exit For
Next
Range("G1") = cellule.Row - 1
Exit Sub
erreur:
MsgBox cherche & " inconnu", vbCritical
End Sub


Michel
0

Discussions similaires

Recherche multi exp dans pokémon heart gold
tom -
Estebalignon -

6 réponses
Annuaire inversé liste rouge
caro2lille -
gwendolyne72 -

13 réponses
liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses
Formule magique excel??????
sexy_miss -
Raymond PENTIER -

13 réponses
Rechercher un numéro sur liste rouge
pierr-89 -
KARDAN -

4 réponses