Discussion :

[fred014]

bonjour
j'ai un classeur excel qui sert a archiver le courrier départ par un numero chrono.
colonneA numero chrono
colonneB date départ
colonneC nom expéditeur
colonneD type de courrier
colonneE objet du courrier
colonneF destinataire
tout ça se rempli via un userform.
mais je voudrais integrer une recherche soit par le numero soit par la date.
donc dans mon userform j'ai un textbox ou la personne rentre soit le numero chrono ou la date et lorsqu'il clic sur ok , j'aimerai que les éléments rechercher dans la feuille s'inscrive dans les combobox correspondant!!!!
1 pour le numéro chrono
1 pour la date
1 pour le nom
etc.......
si quelqu'un peu m'aider à finaliser mon projet

merci d'avance

[ouskel'n'or]

Tu appelles trois fois cette macro avec la donnée cherchée, le nom du combo et le N° de colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Recherche(Nom, NomCombo, NoCol)
Dim maVal As Variant, c As Variant, NoLigne As Long

    With Worksheets("Feuil1").Range(NoCol & ":" & NoCol)  'plage de recherche
        Set c = .Find(Nom, LookIn:=xlValues)
        If Not c Is Nothing Then 'Si une donnée répondant au nom de Nom...
            Do '... on rentre dans la boucle
                NoLigne = c.row '******* ajouté ********
                UserForm1.Controls(NomCombo).AddItem c
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Row > NoLigne
        End If
    End With
    Set c = Nothing
End Sub

Le code de ton bouton de recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub LeBoutonRecherche_Click()
     Call Recherche("Marcel", 3, "ComBoNom") ' "ComBoNom" : nom du combo entre guillemets
     Call Recherche("12/03/07", 2, "ComBoDate") ' 2 : No de Colonne de la recherche
     Call Recherche("0123456", 1, "ComBoNoChrono") ' "0123456" l'item cherché
End sub

Tu risques d'avoir un pb si la date est mal formatée. Le format de cellule modifie la saisie. Tu peux saisir "1/3/07" et avoir affiché dans la cellule "01 mars 2007". Après saisie dans l'userform, tu devras formater tes dates en VBA pour les insérer dans les cellules, non dans Format de cellule dans Excel, et effectuer tes recherches selon le même format.
Mais c'est une autre question...

[fred014]

Merci beaucoup pour ta réponse
demain j'essai ça et je te tiens au courant si pb
bonne soirée à toi

[ouskel'n'or]

J'ai oublié une ligne dans le code, je l'ai ajoutée, tu corriges