Besoin d'aide pour une boucle

[Bricoltou]

Bonsoir le Forum

J'ai besoin de faire une boucle avec deux colonnes .

Quelqu'un peux t-il me venir en aide .

Les explications sont dans le fichier ci joint

Merci d'avance pour votre aide .

Bricoltou

 

[Speel]

Re : Besoin d'aide pour une boucle

Bonsoir,
Manque pas quelque chose dans ton fichier ?

 

[Bricoltou]

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

 

[Speel]

Re : Besoin d'aide pour une boucle

Pas réussi mais
regardes ici Les formulaires

 

[Si...]

Re : Besoin d'aide pour une boucle

salut

en autres (sans boucle)

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

 

[laetitia90]

Re : Besoin d'aide pour une boucle

bonjour Bricoltou,Speel, Si

une autre facon egalement

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

 

[Bricoltou]

Re : Besoin d'aide pour une boucle

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

Merci pour votre aide,toujours très efficace

Bricoltou