Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Besoin d'aide pour une boucle

Bricoltou

XLDnaute Occasionnel
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
 

Pièces jointes

  • Bricoltou.xlsx
    15.7 KB · Affichages: 36

Bricoltou

XLDnaute Occasionnel
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

Si...

XLDnaute Barbatruc
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
 

laetitia90

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…