Macro
Résolu/Fermé
caryan16
Messages postés
7
Date d'inscription
dimanche 17 juin 2012
Statut
Membre
Dernière intervention
19 janvier 2013
-
17 juin 2012 à 10:43
caryan16 Messages postés 7 Date d'inscription dimanche 17 juin 2012 Statut Membre Dernière intervention 19 janvier 2013 - 19 juin 2012 à 06:16
caryan16 Messages postés 7 Date d'inscription dimanche 17 juin 2012 Statut Membre Dernière intervention 19 janvier 2013 - 19 juin 2012 à 06:16
A voir également:
- Macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Tri automatique excel sans macro ✓ - Forum Excel
4 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 079
17 juin 2012 à 10:54
17 juin 2012 à 10:54
Salut,
tu es hors ligne, réduit ta plage
Sub essai()
Set Plage = Range("B1:B1000")
FormatNumerique = "# ##0"
Total = 0
For Each cellule In Plage
If cellule.NumberFormat = FormatNumerique Then
End If
If IsNumeric(cellule) Then
cellule.Value = cellule.Value / 1000 & "K€"
End If
Next cellule
End Sub
tu es hors ligne, réduit ta plage
Sub essai()
Set Plage = Range("B1:B1000")
FormatNumerique = "# ##0"
Total = 0
For Each cellule In Plage
If cellule.NumberFormat = FormatNumerique Then
End If
If IsNumeric(cellule) Then
cellule.Value = cellule.Value / 1000 & "K€"
End If
Next cellule
End Sub
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 079
17 juin 2012 à 11:23
17 juin 2012 à 11:23
Re,
Tiens simplement comme cela, affectera automatiquement le format de la première cellule à la dernière non vide de la colonne
Sub essai()
Range(Range("B1"), Range("B1000").End(xlUp)).NumberFormat = "#,##0 K€"
End Sub
Tiens simplement comme cela, affectera automatiquement le format de la première cellule à la dernière non vide de la colonne
Sub essai()
Range(Range("B1"), Range("B1000").End(xlUp)).NumberFormat = "#,##0 K€"
End Sub
caryan16
Messages postés
7
Date d'inscription
dimanche 17 juin 2012
Statut
Membre
Dernière intervention
19 janvier 2013
17 juin 2012 à 11:51
17 juin 2012 à 11:51
J'ai toujours mes décimales !!! là je suis un peu pommé. Merci beaucoup.
eriiic
Messages postés
24571
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 mai 2024
7 216
Modifié par eriiic le 17/06/2012 à 12:21
Modifié par eriiic le 17/06/2012 à 12:21
Bonjour,
Si c'est juste pour l'affichage tu n'as pas besoin de macro.
Dans un format personnalisé ajouter un espace après le format voulu divise par 1000.
Donc avec en format personnalisé :
# ##0 " k"€
143528 s'affichera 144 k€ (avec l'arrondi au plus proche)
La cellule conserve sa valeur 143528 pour les calculs ultérieurs.
eric
Si c'est juste pour l'affichage tu n'as pas besoin de macro.
Dans un format personnalisé ajouter un espace après le format voulu divise par 1000.
Donc avec en format personnalisé :
# ##0 " k"€
143528 s'affichera 144 k€ (avec l'arrondi au plus proche)
La cellule conserve sa valeur 143528 pour les calculs ultérieurs.
eric
caryan16
Messages postés
7
Date d'inscription
dimanche 17 juin 2012
Statut
Membre
Dernière intervention
19 janvier 2013
19 juin 2012 à 06:16
19 juin 2012 à 06:16
Merci beaucoup, j'ai réussi.
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 079
17 juin 2012 à 15:04
17 juin 2012 à 15:04
Re,
Et si ta colonne était en format texte des fois ?
il est possible de la convertir simplement manuellement ou en complétant le code
Sub essai()
For n = 1 To Range("B65536").End(xlUp).Row
If Range("B" & n) <> "" Then Range("B" & n) = Range("B" & n) * 1
Next n
Range(Range("B1"), Range("B1000").End(xlUp)).NumberFormat = "#,##0 K€"
End Sub
Et si ta colonne était en format texte des fois ?
il est possible de la convertir simplement manuellement ou en complétant le code
Sub essai()
For n = 1 To Range("B65536").End(xlUp).Row
If Range("B" & n) <> "" Then Range("B" & n) = Range("B" & n) * 1
Next n
Range(Range("B1"), Range("B1000").End(xlUp)).NumberFormat = "#,##0 K€"
End Sub
caryan16
Messages postés
7
Date d'inscription
dimanche 17 juin 2012
Statut
Membre
Dernière intervention
19 janvier 2013
19 juin 2012 à 06:15
19 juin 2012 à 06:15
Merci beaucoup, j'ai réussi. A bientôt
17 juin 2012 à 11:17
17 juin 2012 à 11:59
Encore merci beaucoup....