Nous effectuons la division dans toutes les cellules à l'aide d'une macro

Description

Macro pour diviser automatiquement les valeurs dans les cellules par un nombre arbitraire. Cela peut être nécessaire si nous disposons d'un fichier de données dans lequel toutes les valeurs sont spécifiées en centimes et que nous devons traduire les calculs et les données en hryvnias (ou une autre devise).

Bien sûr, vous pouvez utiliser des formules pour convertir des valeurs, mais s'il y a beaucoup de nombres, la conversion de cette manière sera très longue et ennuyeuse.

Voyons comment diviser toutes les cellules sélectionnées par un nombre, par exemple : "100" dans Excel à l'aide d'une macro.

Code VBA pour la macro

Pour cela, ouvrez votre livre, allez sur Visual Basic Editor (Alt+F11), ajouter le module VBA ( Insert - Module ) et copiez-y le texte de cette macro :

Sub Division()
    For Each cell In Selection
        cell.Formula = cell.Value
    Next cell
    
    For Each cell In Selection
        cell.Value = cell.Value / 100
    Next cell
End Sub

Après cela, vous pouvez revenir à Excel. Sélectionnez les cellules nécessaires et exécutez notre macro via le menu Tools - Macro - Macros (Alt+F8) .

Aussi, si vous remplacez dans le code de la macro "100" sur le taux de change, nous obtiendrons alors la valeur dans une autre devise.

De même, vous pouvez effectuer n'importe quelle opération, comme multiplier par n'importe quel nombre.