Recherche par ComboBox

Bonjour,

Voici mon projet, je réalise une recherche via un userform. Avec 2 critères via 2 combobox :

Semaine et Responsable.

J'ai réussi à rentrer les valeurs dans les 2 combobox, réussi aussi à afficher les infos pour le critère Responsable.

Mais je ne vois pas comment faire pour la semaine et associer les 2.

Pouvez vous m'aider.

Cdlt.

bonjour,

peux-tu mettre un fichier exemple stp

Re,

Désolé oulbié de le mettre.

Cdlt.

Re,

Une petite idée ? J'en ai vraiment besoin.

Cdlt.

Bonjour,

j'avoue que je n'ai pas tout compris.

Bon pour faire dans l'ordre:

je n'ai pas trouvé le code qui remplis la combo zone_semaine. donc voici celui que je te propose

Sub remplir_combo_semaine()

With Sheets("Planning")

'détermine la dernière ligne utilisé de la colonne A
dercel = .Range("A" & Rows.Count).End(xlUp).Row

    'boucle sur les cellules des la colonne A
    For x = 4 To dercel

        'si la cellule est fusionnée
        If .Range("A" & x).MergeCells = True Then
            nblig = .Range("A" & x).MergeArea.Rows.Count 'met dans une variable le nombre de ligne fusionnée

            If nblig = 1 Then 'si il y a une ligne
                rec.Zone_Semaine.AddItem .Range("A" & x).Value 'je met dans ma combo la valeur de cette cellule

            Else
                x = x + nblig - 1 'sinon je passe à la prochaine cellule
            End If

        End If

    Next x

End With

End Sub

ensuite tu sélectionnes une semaine dans la combo, un responsable dans l'autre et tu appuies su "rechercher". Que doit faire le bouton rechercher?

Re,

Oui c'est ça rvtoulon, quand les 2 combobox sont choisie.

Le bouton recherche, recherche pour ce responsable et la semaine 9 par exemple, il affiche les stagiaires dans la textbox.

Cdlt.

Re,

Remise du fichier à jour.

Cdlt.

Re,

je t'ai mis en piece jointe un fichier qui devrait faire ce que tu souhaites.

dans ce fichier, la combo responsable se remplis en fonction du choix de la combo semaine.

Re,

Je ne vois pas la pièce jointe.

Cdlt.

je l'avais oublié je l'ai mis dans mon post précédent

dsl

Re,

Merci rvtoulon c'est bien ça que je voulais, u l'as juste fais d'une autre façon mais qui me convient.

Encore merci.

Cdlt.

Bonjour rvtoulon,

Je me demandé si c'était possible de faire apparaitre la liste déroulant de la semaine dans l'autre sens.

C'est à dire la elle s'affiche de 2013 à 2014, je voudrais qu'elle s'affiche de 2014 à 2013.

Cdlt.

Bonjour rvtoulon,

Je me re-explique.

Dans la combobox Semaine, les infos s'affiche

Semaine 2 - Janvier 2013

Semaine 3 - Janvier 2013

Semaine 21 - Mai 2014

Semaine 22 - Mai 2014

Serais-ce possible de les afficher comme cela :

Semaine 22 - Mai 2014

Semaine 21 - Mai 2014

Semaine 3 - Janvier 2013

Semaine 2 - Janvier 2013

donc en faite la plus récente semaine s'affiche en premier et la plus ancienne en dernier.

Cdlt.

Bonjour,

désolé de répondre si tard je n'étais pas dispo ces derniers jours.

pour ton souci voici ce que je ferai :

en partant du code que je t'ai donné:

  • au lieu de mettre les semaines trouvées directement dans la combo je les insère dans un tableau ou elles seront de la plus ancienne à la plus récente.
  • il ne me reste plus qu'à boucler sur mon tableau en partant de la fin, donc de la plus récentes et à insérer les donnée dans ma combo.

voici le code testé et fonctionnel:

Sub remplir_combo_semaine()
Dim montab()

With Sheets("Planning")

dercel = .Range("A" & Rows.Count).End(xlUp).Row

i = 0
j = 1

ReDim montab(j) 'je dimensionne mon tableau

    For x = 4 To dercel  'je boucle pour rechercher les semaines

        If .Range("A" & x).MergeCells = True Then
            nblig = .Range("A" & x).MergeArea.Rows.Count

            If nblig = 1 Then

                montab(i) = .Range("A" & x).Value 'je met dans mon tableau la semaine

                j = j + 1
                i = i + 1

                ReDim Preserve montab(j) 'je redimensionne mon tableau en preservant mes données
            Else
                x = x + nblig - 1
            End If

        End If

    Next x

End With

'je boucle sur mon tableau en partant de la fin du tableau
For Z = UBound(montab()) To 0 Step -1

 'si le tableau est rempli je met la donnée dans ma combo semaine
  If Not IsEmpty(montab(Z)) Then rec.Zone_Semaine.AddItem montab(Z)

Next Z
End Sub

Bonjour,

Merci beaucoup.

Cdlt.

Rechercher des sujets similaires à "recherche combobox"