Avec cette astuce, vous pouvez calculer la somme croisée d’une cellule. Créez un tableau comme celui de la et tapez n’importe quelle donnée numérique dans les cellules A1:A5.

Pour calculer la somme croisée d’une cellule :

1. Appuyez sur <Alt+F11> pour ouvrir Visual Basic Editor.
2. Dans le menu Insertion, cliquez sur Module.
3. Tapez la fonction suivante :

Function CroiseCellule(Area As Range)
Dim i As Integer
Dim rng As Range
For Each rng In Area
For i = 1 To Len(rng.Value)
CroiseCellule = CroiseCellule + CInt (Mid(rng.Value, i, 1))
Next i
Next rng
End Function

4. Fermez l’éditeur VBA en appuyant sur <Alt+Q>.
5. Sélectionnez les cellules B1:B5 et tapez la formule =CroiseCellule(A1).
6. Appuyez sur <Ctrl+Entrée>