userform: cherche sur deux collonne

[zine pef]

Bonjour,
Je cherche depuis des heures mais je ne parviens pas à trouver une solution.

Je veux faire une recherche sur la Feuil1
je souhaite faire une recherche d'un numéro de l'année saisie
merci ;

 

[phlaurent55]

Re : userform: cherche sur deux collonne

Bonjour zine,

ton fichier en retour

à+
Philippe

 

[zine pef]

Re : userform: cherche sur deux collonne

Merçi Mr phlaurent55 ,pour votre code
je ne veux pas des doublant ds l'année.
et dans votre code il ya d'erreur quelque fois
regard l'image

 

[phlaurent55]

Re : userform: cherche sur deux collonne

Re,

il suffit de remplacer le code existant par celui-ci

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Or TextBox4.Value = "" Then
Exit Sub
End If
For i = 2 To Range("A65535").End(xlUp).Row
For j = 2 To Range("B65535").End(xlUp).Row
If Cells(j, 2).Value = TextBox1.Value * 1 And Cells(j, 1).Value = TextBox4.Value * 1 Then
TextBox2.Value = Cells(j, 3).Value
TextBox3.Value = Cells(j, 4).Value
End If
Next j
Next i
End Sub

désolé pour l'erreur, maintenant ça fonctionne
mais le faire sans doublons dans la colonne A 😡😡😡

à+
Philippe

 

[phlaurent55]

Re : userform: cherche sur deux collonne

Re,

je ne veux pas des doublant ds l'année.

Demande résolue, voir fichier joint

à+

 

[zine pef]

Re : userform: cherche sur deux collonne

maitenant fonctionne tres bien Mr Philippe
un grand merçi

est ce que en peu changer textebox4 pour l'anéee par un combobox pour faciliter l'utilisation

A+
àbientot

 

[zine pef]

Re : userform: cherche sur deux collonne

up ;j'attand toujour votre aide

 

[phlaurent55]

Re : userform: cherche sur deux collonne

Re,

up ;j'attand toujour votre aide

PATIENCE !!!! j'ai aussi d'autres occupations et d'autres problèmes

voir fichier joint
pour modifier les années , il faut le faire en feuille 2

à+
Philippe

 

[zine pef]

Re : userform: cherche sur deux collonne

Merçi Phillipe ;
j'ai trouvé ce code pour combo les année dans la meme feuil1

Private Sub UserForm_Initialize()
For Each c In Range([A2], [A65000].End(xlUp))
If c <> "" Then Me.ComboBox1.AddItem c
Next c
End Sub

il marche b1
que dit vous pour ce code

 

[phlaurent55]

Re : userform: cherche sur deux collonne

re,

c'est une approche différente pour arriver au même résultat

à+
Philippe

 

[zine pef]

Re : userform: cherche sur deux collonne

re,
mais il petite erreur ,quand je click du boutton(clique ici) la liste combo est vide
et au contraire si dans la feuille edit de code F5 le combo est rempli d'année
SVP ou est le probleme?

 

[phlaurent55]

Re : userform: cherche sur deux collonne

Re,

mais il petite erreur ,quand je click du boutton(clique ici) la liste combo est vide

ce n'est pas une erreur mais un oubli

avec le fichier que j'ai mis à la réponse #8, remplace la code de la feuille par ceci:

Private Sub CommandButton1_Click()
  UserForm1.ComboBox1.List = Sheets("Feuil2").Range("A1:A13").Value
  [COLOR=blue][B]UserForm1.ComboBox1.ListIndex = 3[/B][/COLOR]
UserForm1.Show
End Sub

à+
Philippe

 

[zine pef]

Re : userform: cherche sur deux collonne

Merçi Mr Philippe pour la suite

une chose click dans ma tete
j'ai remplacé l'année 2009,2010,2011 par 2009-2010 ,2010-2011,...
et le probleme N°13 incompatibiliter de type c'est l'année change text

et le code s'arrette sur
If Cells(j, 2).Value = TextBox1.Value * 1 And Cells(j, 1).Value = ComboBox1.Value * 1 Then
comment changer numérique au texte
merçi

 

[zine pef]

Re : userform: cherche sur deux collonne

Mr Philippe c'est résolu
un petit mot devant combox CStr(comboxbox)
la faire est réglé merci pour votre aide
A+