Division automatique d'une colonne par 1000 Résolu/Fermé

Question

Bonjour, 

Je dois souvent diviser des nombres par 1000. De manière générale, j'utilise le menu collage spécial mais cela prend du temps. 
Ainsi, je souhaite créer un raccourci dans la barre supérieure d'excel afin de pouvoir diviser automatiquement par 1000 des cellules de mon choix? 

Merci de votre aide



Configuration: Windows Vista / Internet Explorer 7.0

eriiic · Answer

Bonjour,

Tu veux réellement diviser par 1000 ?
Si oui et que collage-spécial te lasse ça sera en vba.

Sinon, si c'est pour l'affichage et que tu peux garder tes valeur tu peux te faire un format personnalisé : une espace après le format divise par 1000 (2 espaces par 1000000, etc)
Tu peux aussi ajouter l'unité dans le format, exemple :
0 " k€"

Si tu préféres une macro précise-le dans le prochain post

eric

eriiic · Answer

Re, 

Une macro à mettre dans la feuille ou dans un module : 
Sub div1000() 
    Dim c As Range 
    If MsgBox("Division par 1000 des cellules de la sélection ?", vbYesNo + vbExclamation, "ATTENTION") = vbYes Then 
        For Each c In Selection 
            If IsNumeric(c) Then c = c / 1000 
        Next c 
    End If 
End Sub 


Sur le même modèle tu peux en faire une qui multiplie par 1000 en cas d'accident. 
Sur une macro il n'y a pas d'annulation par excel. 

eric

PAtrick · Answer

merci de ton aide

Division automatique d'une colonne par 1000

3 réponses

Discussions similaires