Salut a tous et joyeux noël,
 
J'ai cette erreur dans ce code:
Private Sub TxtDiamètre_Change()
With FeuilledesaisieCTA
 
    .TxtSurface.value = (TxtDiamètre.value * TxtDiamètre.value) * 3.1416 / 4 / 1000000
End With
End Sub
 
Quelqu'un peut il m'aider ??
Merci
Bon réveillon à tous!!!!!

Problème résolu