textbox vide

[pode72]

Bonjour à tous,
DAns le cadre de mon stage, je dois réaliser un tableur excel qui permet de rajouter plusieurs dossier sur une page. Pour cela, j'ai réalisé un userform qui contient 164 Textbox et qui se copie sur un ligne quand on clique sur bouton. Cependant, du fait qu'il y ait 164 textbox, cela prend énormément de temps dc je voudrais faire en sorte que la macro ne copie que les textbox remplies mais je ne sais pas comment faire.
Voici le code que j'ai actuellement.

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
derlign = .Range("A65000").End(xlUp).Row + 1
For I = 1 To 164
.Cells(derlign, I) = Controls("Textbox" & I)
Next
End With
End Sub

 

[Guest]

Re : textbox vide

Bonjour,

For I = 1 To 164
 If Trim(Controls("Textbox" & I).Text)<>"" then 
       .Cells(derlign, I) = Controls("Textbox" & I)
 End IF
Next

A+

 

[Papou-net]

Re : textbox vide

Bonjour pode72, Hasco

Peut-être aussi en suspendant le rafraîchissement d'écran ?

Ex :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("Feuil1")
derlign = .Range("A65000").End(xlUp).Row + 1
For I = 1 To 164
.Cells(derlign, I) = Controls("Textbox" & I)
Next
Application.ScreenUpdating = True
End With
End Sub

Espérant avoir aidé.

Cordialement.

 

[pode72]

Re : textbox vide

Merci beaucoup.
Bonne continuation