Calculer la somme croisée d’une cellule Excel

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>

 

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x