Bonjour,
dans un userform, j'ai un TextBox4 contenant une valeur qui s'incrémente au fur et à mesure de l'ajout de lignes de données dans mon tableau.
Ca marche bien avec cette petite procédure qui me calcule le nombre de lignes (le -1 pour ne pas compter l'entête en A1) :
Sub TotalLigne()
Dim nbcells As Integer
nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("A:A")) - 1
Menu.TextBox4.Value = nbcells
End Sub
Quand je rajoute une ligne, j'incrémente de 1 pour avoir le nouveau total dans le userform.
Ca marche.
En revanche, je laisse la possibilité de fermer le userform par la croix et de le rappeler par F1 :
Sub Raccourci()
Application.OnKey "{F1}", "Rac"
End Sub
Sub Rac()
Menu.Show False
End Sub
Ca marche bien aussi sauf que quand je fais F1, le calcul Menu.TextBox4.Value=nbcells ne s'effectue pas, mon textbox est donc vide.
Merci de votre aide éventuelle
dans un userform, j'ai un TextBox4 contenant une valeur qui s'incrémente au fur et à mesure de l'ajout de lignes de données dans mon tableau.
Ca marche bien avec cette petite procédure qui me calcule le nombre de lignes (le -1 pour ne pas compter l'entête en A1) :
Sub TotalLigne()
Dim nbcells As Integer
nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("A:A")) - 1
Menu.TextBox4.Value = nbcells
End Sub
Quand je rajoute une ligne, j'incrémente de 1 pour avoir le nouveau total dans le userform.
Ca marche.
En revanche, je laisse la possibilité de fermer le userform par la croix et de le rappeler par F1 :
Sub Raccourci()
Application.OnKey "{F1}", "Rac"
End Sub
Sub Rac()
Menu.Show False
End Sub
Ca marche bien aussi sauf que quand je fais F1, le calcul Menu.TextBox4.Value=nbcells ne s'effectue pas, mon textbox est donc vide.
Merci de votre aide éventuelle