Bonjour,
Je fais face à un petit soucis sur VBA, en effet j'essaye de tirer à partir d'une date que je rentre dans un userform, l'âge de la personne en fonction de la date d'aujourd'hui. Pour cela j'utilise la formule ci-dessous, je vous joins aussi mon fichier sur lequel je travaille. Le userform utilisé est le 3 et l'onglet c'est "year". Merci d'avance pour votre aide.
Private Sub CommandButton1_Click()
Dim dernièreLigne As Integer
dernièreLigne = Cells(65536, 1).End(xlUp).Row + 1
Dim i As Integer
For i = 2 To dernièreLigne Step 1
If TextBox1 <> "" Then
Cells(i, 1) = TextBox1
End If
If Cells(i, 1) = TextBox1 Then
Cells(i, 2) = (Date - CDate(TextBox1) / 365)
End If
Next
Unload Me
End Sub
Je fais face à un petit soucis sur VBA, en effet j'essaye de tirer à partir d'une date que je rentre dans un userform, l'âge de la personne en fonction de la date d'aujourd'hui. Pour cela j'utilise la formule ci-dessous, je vous joins aussi mon fichier sur lequel je travaille. Le userform utilisé est le 3 et l'onglet c'est "year". Merci d'avance pour votre aide.
Private Sub CommandButton1_Click()
Dim dernièreLigne As Integer
dernièreLigne = Cells(65536, 1).End(xlUp).Row + 1
Dim i As Integer
For i = 2 To dernièreLigne Step 1
If TextBox1 <> "" Then
Cells(i, 1) = TextBox1
End If
If Cells(i, 1) = TextBox1 Then
Cells(i, 2) = (Date - CDate(TextBox1) / 365)
End If
Next
Unload Me
End Sub
