Comment multiplier toutes les cellules d'une plage par une constante
Souhaitez-vous vous assurer que toutes les constantes d'une plage sont multipliées par un facteur ? Vous pouvez y parvenir en utilisant intelligemment la fonction EDIT - INSERT CONTENT.
C'est plus facile si vous utilisez la macro suivante :
Utiliser le sous-facteur ()
Dim Cell As Range
Dim valeur d'entrée As Long
Valeur d'entrée = InputBox ("Veuillez saisir le facteur (par exemple 100)")
Pour chaque cellule de la sélection
Si non (Cell.HasFormula) Alors
Cell.Formula = "=" & Cell.Value & "*" & Val (valeur d'entrée)
Fin si
Cellule suivante
Fin du sous-marin
Dans la première étape, sélectionnez une plage de cellules dans un tableau. La figure suivante montre un exemple de zone en surbrillance.
Appelez ensuite la macro. Excel demande maintenant dans une fenêtre le facteur que vous souhaitez utiliser. La figure suivante montre cette fenêtre :
Confirmez la définition du facteur avec le bouton OK.
Excel parcourt maintenant toutes les cellules de la sélection. Seules les cellules dans lesquelles il n'y a pas de formule sont modifiées. Ils sont multipliés par le facteur entré. Excel entre la nouvelle valeur sous forme de formule dans la cellule. La figure suivante montre à quoi peut ressembler le résultat :
Si vous souhaitez saisir les nombres sous forme de constantes, remplacez la ligne "Cell.Formula" par l'expression suivante :
Cell.Value = Cell.Value * Val (valeur d'entrée)
En entrant un facteur inférieur à un, vous pouvez également diviser les cellules par une constante.
Conversion d'une formule en constante à l'aide d'une macro : comment convertir un calcul à l'aide de VBA en valeur absolue
Vous souhaitez convertir les cellules d'une plage en valeurs absolues. Vous pouvez le faire de manière interactive en copiant la zone, puis en la collant en tant que valeurs. La commande appropriée s'appelle "Edition - Collage spécial" dans Excel jusqu'à la version 2003 et "Démarrer - Collage - Collage spécial" dans Excel à partir de la version 2007.
Si vous souhaitez convertir des cellules individuelles dans une macro, le code de programme suivant vous aidera :
SubValueConvert ()
Avec ActiveSheet.Range ("a1")
.Formule = .Valeur
Terminer par
Fin du sous-marin
La macro convertit le contenu actuel de la cellule A1 dans la table active en une valeur absolue.
