Récupération du nombre de ligne non vide pour crée un plage à copier

Bonjour à tous,

voici mon petit soucis,

J'aimerai envoyer une formule dans la colonne D de ma feuil1, par rapport au nombre de personne en colonne A

J'arrive bien à récupérer le nombre de personne inscrite en colonne A dans unTextBox,

Et je me sert du Textbox pour crée ma plage à copié.

Mon soucis, est que ma dernière ligne, le code n'est pas envoyé

Merci d'avance pour votre aide

ToF

Bonjour, dans ton code ci-dessous :

Private Sub CommandButton1_Click()
Dim tata As Double, toto As String
   toto = ("=B2-C2")
   tata = Range("a1").End(xlDown).Row
   TextBox1 = Application.CountA(Range("A2:A" & tata))
   Sheets("Feuil1").Range(("D2:D" & TextBox1)) = toto

End Sub

Tu récupères la dernière ligne occupée dans la colonne A dans la variable tata.

Puis tu comptes le nombre de valeurs entre A2 et A&tata. Forcément, ça fait une ligne de moins vu que tu ne comptes pas l'entête.

Pourquoi passer par une textbox qui plus est ?

Bref, tu peux changer ça :

Sheets("Feuil1").Range(("D2:D" & TextBox1 +1)) = toto

Ça devrait fonctionner.

Bonjour JoyeuxNoel,

Merci ça marche nickel, et merci pour l'explication.

Pour le textbox, oui tu as raison, je vais regarder pour faire sans lui.

ToF

Si tu enlèves ton textbox, ça devrait donner ça :

Private Sub CommandButton1_Click()
   Sheets("Feuil1").Range(("D2:D" & Range("a1").End(xlDown).Row)) = ("=B2-C2")
End Sub

Tu peux passer le passage par le userform.