Discussion :

[ju75011]

Bonjour à tous,

J'ai un fichier Excel dont certaines cases contiennent des chiffres négatifs au format "200-". Je souhaiterai transformer via une macro ces nombres au format négatif d'Excel soit "- 200".

Je cherche un code pour exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Si cellule contient signe "-" alors supprime le et ajoute le signe "-" au début

Merci d'avance pour votre aide !

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub macroplcemoins()
Dim v As Range
Dim y As Variant
Set v = ActiveWindow.RangeSelection
For Each y In v
MsgBox (Val(Left(y, Len(y) - 1)) * -1)
If Right(y, 1) = "-" Then y.Value = Val(Left(y, Len(y) - 1)) * -1
Next y
 
End Sub

[cafeine]

Hello,

allez, je me fends aussi de ma petite solution ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each c In Range("A1:M50").Cells
    If c.Value Like "*-" And Not (c.HasFormula) Then
        c.Value = -1 * CDbl(Replace(c.Value, "-", vbNullString))
    End If
Next c

[ju75011]

Merci à tous pour vos réponses

D'abord, désolé de ne pas avoir précisé mon sujet, je le ferai la prochaine fois.

La solution de caféine fonctionne parfaitement.

Autre demande :

Via ma macro j'ai modifié le format des nombres en "comptabilité" avec 2 en nombre de décimales soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("C:H").Select
Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"

Effectivement, la modification se fait (quand je vérifie dans les propriétés sous Excel c'est parfait) mais ça ne prend pas en compte l'affichage de ce format. Les centimes par exemple ne s'alignent pas.

Merci d'avance !

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("C:H").NumberFormat = "#,##0.00"

A+

NB - Je ne comprends pas

Les centimes par exemple ne s'alignent pas.

[ju75011]

Explication :

Format "Comptabilité" dans les propriétés, donc la macro a bien fait son boulot, mais à l'affichage il n'a pas un format "Comptabilité" :



Voilà un format comptabilité :

[ouskel'n'or]

Essaie d'ajouter cette ligne après numberFormat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Columns("E:E").HorizontalAlignment = xlRight

mais vérifie que les nombres ne soient pas considérés comme du texte (en faisant la somme)
A+

[ju75011]

Merci pour ta réponse

J'y ai pensé aussi mais ce n'est pas un alignement à droite c'est un alignement spécial du format "comptabilité".

[ouskel'n'or]

En utilisant le même code que toi, toute ma feuille s'est mise au format comptabilité.

Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"

Tu as quelle version d'Excel ?
Edit
Tu mets bien le format après le remplacement de 456- par -456 ?

[ju75011]

Excel 2000


et oui je mets bien le format apres le remlpacement du signe moins.

Mais moi aussi ma feuille se met bien au format comptabilité sauf que l'affichage de celui-ci ne s'applique.

Si tu veux tester, mets ta feuille au format comptabilité via une macro puis double clique sur une cellule et valide sans rien modifier

tu remarquera que l'affichage change

[illight]

Juste une question : quand c'est pas au format compatibilité, si tu clique dans la cellule et que tu fais Entrée, ça se met pas au bon format par la suite ?

[ouskel'n'or]

Tu as raison, Il,

J'avais ça dans 97

et c'est précisément ce que souligne également ju75011

Bon, j'ai tester avec VBA 97
Deux réponses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub remplirLaPlage()
For I = 1 To 20
    Cells(I, 2) = (1000 * Rnd) + 1
    Cells(I, 2).NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
Next
End Sub

Le format ne s'applique pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub remplirLaPlage()
For I = 1 To 20
    Cells(I, 2) = (1000 * Rnd) + 1
Next
Columns("B:B").NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
End Sub

Le format s'applique (!?!)
Tu testes ?
A+

[illight]

Heuu ça me le fait au boulot, et j'ai le pack office 2000

Sinon, pour avoir la bonne valeur, suffit juste de créer une valeur temporaire où tu met la valeur de la cellule, et tu remet dans la cellule, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ValTemp = cells(1,1).value
cells(1,1).value = valtemp

C'est barbare mais chez moi ya que comme ça que je retrouve mes valeurs

[ju75011]

Bonjour à tous,

Merci pour vos réponses, chez moi vos solutions ne donnent rien

Si vous avez une autre idée je suis preneur, je continue à chercher de mon coté

merci d'avance !

[AlainTech]

Je viens de tester sur un Excel 2003 ce code (basé sur celui de cafeine):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim c As Range
For Each c In Range("A1:A2").Cells
  c.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
  If c.Value Like "*-" And Not (c.HasFormula) Then
    c.Value = -1 * CDbl(Replace(c.Value, "-", vbNullString))
  End If
Next c

et le format est bien appliqué.

Si ce n'est pas résolu demain, j'essayerai sur un 2000.

[ouskel'n'or]

Il y a des moments où je dis vraiment n'importe quoi
La grippe, ça te fout un homme en l'air comme qui rigole
Je fais le ménage