Private Sub Valider_Click() Dim superficie, superficie2 As Single Range("B2").Value = Largeur.Value Range("C2").Value = Longueur.Value superficie = CSng((Largeur.Value * Longueur.Value) / 1000000) superficie2 = CSng(superficie - ((superficie * 10) / 100)) valeur = Replace(superficie2, ",", ".") Range("G1").Formula = "=" & valeur & " - SUMPRODUCT(R[5]C[-2]:R[44]C[-2],R[5]C:R[44]C)" UserForm1.Hide End Sub
En revanche le résultat dans mon tableau est toujours avec une virgule ???
Private Sub Valider_Click() Dim superficie, superficie2 As Single Range("B2").Value = Largeur.Value Range("C2").Value = Longueur.Value superficie = CSng((Largeur.Value * Longueur.Value) / 1000000) superficie2 = CSng(superficie - ((superficie * 10) / 100)) Range("G1").Formula = "=" & superficie2 & " - SUMPRODUCT(R[5]C[-2]:R[44]C[-2],R[5]C[-1]:R[44]C[-1])" End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRange("G1").Formula = "=" & superficie2 & " - SUMPRODUCT(R[5]C[-2]:R[44]C[-2],R[5]C[-1]:R[44]C[-1])"