P
pode72
Guest
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
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