Division automatique d'une colonne par 1000

Résolu/Fermé
PAtrick - 12 sept. 2010 à 18:38
 PAtrick - 12 sept. 2010 à 20:30
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



A voir également:

3 réponses

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
12 sept. 2010 à 19:39
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
1
Merci de votre réponse.
Oui si c'est possible de faire une macro, c'est parfait. Mais je ne sais pas comment faire...

Merci d'avance
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié par eriiic le 12/09/2010 à 20:17
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
1
merci de ton aide
1