Code VBA valeur absolue

[Pol]

Bonsoir à tous,

Quelqu'un aurait-il la gentillesse de me communiquer le code vba pour mettre en valeur absolue la plage de cellule active ?

Merci par avance,

 

[Papou-net]

Re : Code VBA valeur absolue

Bonsoir Pol,

S'il s'agit de convertir des cellules dans une plage sélectionnée, voici un exemple de code:

For Each cel In Selection
  cel.Value = CInt(cel.Value)
Next

Cordialement.

 

[Pol]

Re : Code VBA valeur absolue

Bonsoir Merci papou-net mais la macro semble remplir les cellules vides par une zero alors que je souhaite remplacer les cellules négatives par des cellules positives,

si 4 en A1 et -4 en A2 je souhaite obtenir après exécution de la macro 4 en A1 et 4 en A2,

merci pour ton aide

 

[Compte Supprimé 979]

Re : Code VBA valeur absolue

Bonjour le fil

"CInt" n'a jamais été pour retournée une valeur absolue, mais une valeur entière
"Abs" en revanche, oui

For Each cel In Selection
  cel.Value = Abs(cel.Value)
Next

A+