Calcul automatisé à tout le fichier

Bonjour,

J'ai un fichier dans lequel j'ai des données brutes de masse en grammes.

Je veux transformer ces données en force en Newtons.

Pour cela, je dois appliquer le calcul suivant à toutes mes données : P = (m/1000) * g

Avec m = masse en grammes et g = 9.81 m/s².

Comment faire pour appliquer cette formule à tout mon fichier de manière automatisée ?

Je joins mon fichier dans lequel je donne un exemple dans l'onglet "Part 1" en colonne C "Exemple" pour une meilleure compréhension.

Bien évidemment, j'ai fait cela à la main pour chaque donnée, mais j'aimerais savoir s'il existe une méthode plus rapide.

Est-ce possible sans VBA ?

Pour info, la colonne A de chaque onglet ne doit pas être modifiée.

Merci d'avance pour vos réponses.

Bonne journée

Bonjour à tous,

Une façon simple :

bonjour à tous,

Une solution avec vba. Modifie toutes les valeurs numériques dans les feuilles dont le nom commence par "Part".

Sub kgtoN()
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name Like "Part*" Then
            dl = ws.UsedRange.Rows.Count
            dc = ws.UsedRange.Columns.Count
            t = ws.Range("A1").Resize(dl, dc)
            For i = 2 To UBound(t)
                For j = 2 To UBound(t, 2)
                On Error Resume Next
                    If Trim(t(i, j)) <> "" Then t(i, j) = t(i, j) * 9.81 / 1000
                Next j
            Next i
            ws.Range("A1").Resize(UBound(t), UBound(t, 2)).Value = t
        End If
    Next ws
End Sub

Bonjour DjiDji59430 et h2so4,

Merci pour vos réponses rapides !

J'ai opté pour la solution avec le collage spécial, c'est facile et ça ne me prendra pas trop de temps à le faire.

Je garde néanmoins l'astuce de h2so4 s'il j'ai plus de données à l'avenir.

Un grand merci à vous deux.

Bonne journée