Boucle avec condition sur bouton ok

[treza88]

Bonjour à tous,

Je suis en train de créer une userform qui reprend dans des textbox les lignes d'un tableau dans excel et je voudrais valider le passage de ligne en ligne en clickant sur le bouton ok de la userform.
Mais je ne vois pas comment utiliser la condition sur le bouton ok.
Le code que je souhaiterais faire doit resembler a quelque chose comme le code en dessous.

 Private Sub UserForm_Initialize()
Dim i As Integer
   For i = 5 To Range("D65536").End(xlUp).Row
      tb_ref.Value = Cells(i, 3).Value
      tb_desi.Value = Cells(i, 4).Value
      tb_nb.Value = Cells(i, 5).Value
      tb_long.Value = Cells(i, 7).Value
      tb_larg.Value = Cells(i, 8).Value
      tb_ep.Value = Cells(i, 9).Value
      tb_nb_mb.Value = (Cells(i, 5).Value / Cells(i, 6).Value)
        [COLOR=red]If cb_ok.Click Then
            Next i
[/COLOR]   Application.Calculate
End Sub

Merci de me donner un petit coup de pouce.

 

[Guest]

Re : Boucle avec condition sur bouton ok

Bonjour,

Cela peut se faire comme ceci:

En tête de module déclarer une Variable

Dim Ligne As Long

Dans le module du userform Créer une procédure:

Private sub ChargerFiche()
      tb_ref.Value = Cells(Ligne, 3).Value
      tb_desi.Value = Cells(Ligne, 4).Value
      tb_nb.Value = Cells(Ligne, 5).Value
      tb_long.Value = Cells(Ligne, 7).Value
      tb_larg.Value = Cells(Ligne, 8).Value
      tb_ep.Value = Cells(Ligne, 9).Value
      tb_nb_mb.Value = (Cells(Ligne, 5).Value / Cells(Ligne, 6).Value)
End sub

ensuite

 Private Sub UserForm_Initialize()
    Ligne = 5
    ChargerFiche
End Sub

Dans la procédure Click du bouton

Private Sub cb_ok_Click()
   Ligne=Ligne+1
   If Ligne < Range("D65536").End(xlUp).Row Then ChargerFiche
End sub

C'est une démarche possible, à toi d'adapter.

A+

 

[treza88]

Re : Boucle avec condition sur bouton ok

Merci Hasco

Ca correspond tout a fait a ce que je cherchais