Re : USF et incrémentation
Bonsoir,
J'ai refait un code qui incrémente bien d'une ligne à chaque fois que je lance mon USF. Cependant, les valeurs de toutes les textbox s'affichent dans ma feuille excel alors que je voudrais que seule la valeur de la textbox 6 s'affiche (en colonne J).
Si je remplace .Range("A" & dl1) = TextBox1.Value par TextBox1 = TextBox1.Value,
la valeur de cette textbox ne s'affiche plus mais l'incrémentation ne se fait plus !
Je sais plus quoi faire
!
Voila le code :
Private Sub CommandButton1_Click()
Unload UserForm3
End Sub
Private Sub CommandButton2_Click()
Dim dl1 As Long ' dernière ligne
With Sheets("Feuil7")
dl1 = .Range("a65536").End(xlUp).Row + 1
.Range("A" & dl1) = TextBox1.Value
.Range("B" & dl1) = TextBox2.Value
.Range("C" & dl1) = TextBox3.Value
.Range("D" & dl1) = TextBox4.Value
.Range("E" & dl1) = TextBox5.Value
TextBox6 = (CDbl(TextBox1) - TextBox5) / CDbl(TextBox1) * 100
.Range("F" & dl1) = TextBox6.Value
End With
End Sub