Discussion :

[zoumzoum59]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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)
        If cb_ok.Click Then
           Next i
   Application.Calculate
End Sub

Merci de me donner un petit coup de pouce.

[Pierre Fauconnier]

Bonjour

La gestion de l'évènement sur click du bouton ne peut pas être intégrée à la procédure d'initialisation du userform.

En fait, c'est dans le bloc d'évènement du bouton OK que tu dois placer ton code de transfert, avec éventuellement une variable statique pour garder la ligne du transfert précédent.

[zoumzoum59]

merci pour la reponse Pierre.

Mais, est ce faisable en concervant ma boucle for next ou dois je construire ça autrement?

[Pierre Fauconnier]

En fait, si le bouton OK est simplement un "temporisateur, tu devrais plutôt utiliser un msgbox au sein de la boucle.

Peux-tu détailler ce que tu souhaites réaliser?