XL 2010 Userform, recherche et extraction

cp4

XLDnaute Barbatruc

• 15 Décembre 2018

• #2

Bonjour,

Pour la première partie, alimenter combo à tester.

VB:

Private Sub UserForm_Initialize()
   Dim J As Long, I As Integer
   Set Sh = Sheets("param")
   ComboBox1.Clear
   ComboBox2.Clear
   With Me.ComboBox1
      For J = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row
         .AddItem Sh.Range("A" & J)
      Next J
   End With
   With Me.ComboBox2
      For J = 2 To Sh.Range("B" & Rows.Count).End(xlUp).Row
         .AddItem Sh.Range("B" & J)
      Next J
   End With
End Sub

 

Vote positif 0 Vote négatif

H

harry226h

Guest

• 15 Décembre 2018

• #3

Merci, ceci macrche.
Une idée pour la seconde parties?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Décembre 2018

• #4

Bonjour @harry226h, @cp4,

Voir le fichier joint...

 

Pièces jointes

• harry226h- TEST RESUME- v1.xlsm

  49 KB · Affichages: 35

Vote positif 0 Vote négatif

H

harry226h

Guest

• 15 Décembre 2018

• #5

Bonjour a tous et merci pour le temp accordé
Ma pomme je teste ca et je vous tiens informer

 

Vote positif 0 Vote négatif

H

harry226h

Guest

• 15 Décembre 2018

• #6

Waou🙂
Mapomme je suis épaté. Ca marche du tonnerre. Exactement ce que je cherchais. J'essai de l'adapter sur mon fichier en esperant y arriver seul et je vous tiens au courant.
Grand merci a tous

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 15 Décembre 2018

• #7

harry226h à dit:

Waou🙂
Mapomme je suis épaté. Ca marche du tonnerre. Exactement ce que je cherchais. J'essai de l'adapter sur mon fichier en esperant y arriver seul et je vous tiens au courant.
Grand merci a tous

Cliquez pour agrandir...

Je sais tu vas revenir à la charge pour le format des dates.
@mapomme : 😉 moi aussi tu m'épates à chacune de tes interventions.

 

Vote positif 0 Vote négatif