userform: cherche sur deux collonne

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Avril 2011

• #2

Re : userform: cherche sur deux collonne

Bonjour zine,

ton fichier en retour

à+
Philippe

 

Pièces jointes

• 111.xls

  48 KB · Affichages: 56
• 111.xls

  48 KB · Affichages: 55
• 111.xls

  48 KB · Affichages: 61

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 13 Avril 2011

• #3

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Avril 2011

• #4

Re : userform: cherche sur deux collonne

Re,

il suffit de remplacer le code existant par celui-ci

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Avril 2011

• #5

Re : userform: cherche sur deux collonne

Re,

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

Cliquez pour agrandir...

Demande résolue, voir fichier joint

à+

 

Pièces jointes

• 111.xls

  54.5 KB · Affichages: 49
• 111.xls

  54.5 KB · Affichages: 49
• 111.xls

  54.5 KB · Affichages: 50

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 14 Avril 2011

• #6

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

 

Dernière édition: 14 Avril 2011

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 14 Avril 2011

• #7

Re : userform: cherche sur deux collonne

up ;j'attand toujour votre aide

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Avril 2011

• #8

Re : userform: cherche sur deux collonne

Re,

zine pef à dit:

up ;j'attand toujour votre aide

Cliquez pour agrandir...

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

 

Pièces jointes

• 111.xls

  55.5 KB · Affichages: 53
• 111.xls

  55.5 KB · Affichages: 58
• 111.xls

  55.5 KB · Affichages: 59

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 14 Avril 2011

• #9

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Avril 2011

• #10

Re : userform: cherche sur deux collonne

re,

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

à+
Philippe

 

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 14 Avril 2011

• #11

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?

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Avril 2011

• #12

Re : userform: cherche sur deux collonne

Re,

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

Cliquez pour agrandir...

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:

Code:

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

 

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 15 Avril 2011

• #13

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

 

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 15 Avril 2011

• #14

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+

 

Vote positif 0 Vote négatif