Sub racenecarre() Dim plagecell As Range Dim i As Integer For Each plagecell In Selection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = Sqr(plagecell) Else End If Next plagecell End Sub
Pour calculer la racine carrée sans appliquer de formule, vous pouvez utiliser ce code. Il vérifiera simplement toutes les cellules sélectionnées et convertira les nombres en leur racine carrée.