Besoin d'aide pour une boucle

Speel

XLDnaute Occasionnel

• 15 Décembre 2014

• #2

Re : Besoin d'aide pour une boucle

Bonsoir,
Manque pas quelque chose dans ton fichier ?

 

Vote positif 0 Vote négatif

B

Bricoltou

XLDnaute Occasionnel

• 15 Décembre 2014

• #3

Re : Besoin d'aide pour une boucle

Bonsoir Speel , le Forum

Ci joint le fichier test modifié, mauvais enregistrement sur le premier

merci d'avance pour votre aide

Bricoltou

 

Pièces jointes

• Bricoltou.xlsm

  23.2 KB · Affichages: 39
• Bricoltou.xlsm

  23.2 KB · Affichages: 41
• Bricoltou.xlsm

  23.2 KB · Affichages: 42

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 15 Décembre 2014

• #4

Re : Besoin d'aide pour une boucle

Pas réussi mais
regardes ici Les formulaires

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 16 Décembre 2014

• #5

Re : Besoin d'aide pour une boucle

salut

en autres (sans boucle)

Code:

Private Sub UserForm_Initialize()
  C1.List = Range("FA2", [FA65000].End(xlUp)).Value
End Sub
Private Sub C1_Change()
  If C1.ListIndex < 0 Then T1 = "": Exit Sub 
  T1 = Cells([FA:FA].Find(C1).Row, "FB")
End Sub

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 16 Décembre 2014

• #6

Re : Besoin d'aide pour une boucle

bonjour Bricoltou,Speel, Si

une autre facon egalement

Code:

Private Sub UserForm_Initialize()
   C1.List = Feuil1.Range("fa2:fb" & Feuil1.Cells(Rows.Count, "fa").End(3).Row).Value
End Sub
Private Sub c1_Click()
  T1 = C1.List(C1.ListIndex, 1)
End Sub

 

Vote positif 0 Vote négatif

B

Bricoltou

XLDnaute Occasionnel

• 16 Décembre 2014

• #7

Re : Besoin d'aide pour une boucle

Bonsoir Laetitia90, Speel ,SI..., le forum

Merci pour votre aide,toujours très efficace

Bricoltou

 

Vote positif 0 Vote négatif