saisie et resultat dans une même cellule

A

andré

Guest

• 9 Août 2004

• #2

Salut micky,

Outils / Options / Modification / Cocher Décimale fixe - Place : 2

Ceci ne fonctionne pas pour 790.50 qui restera toujours 790.50 !

Ândré.

 

Vote positif 0 Vote négatif

M

micky

Guest

• 9 Août 2004

• #3

merci bcp André

 

Vote positif 0 Vote négatif

M

micky

Guest

• 9 Août 2004

• #4

Re André et tout le monde,
j'aimerais au fait que cette option de décimale fixe ne soit valable que sur certaines cellules de la feuille, est ce possible??
mercii

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 9 Août 2004

• #5

Bonjour

je te propose une petite solution VBA. Dans l'exemple cela ne divise par 100 que les cellules de la colonne A. A adapter pour tes besoins.

Private Sub Worksheet_Change(ByVal Target As Range)

Static maBool As Boolean

If Not Intersect(Target, Range("A:A")) Is Nothing Then
  If maBool = False Then
    maBool = True
    Target.Value = Target.Value / 100
  Else: maBool = False
  End If
End If

End Sub


Bonne journée

Pascal

 

Vote positif 0 Vote négatif

A

andré

Guest

• 9 Août 2004

• #6

Resalut,

Non, ceci s'applique à toute la feuille.

A titre d'information, il y a moyen de diviser par 1000 et d'arrondir le nombre par le format de la cellule, donc uniquement pour les cellules formatées de la sorte, en tapant un espace derrière le format.

75 235.58 devient donc 75

Je ne connais pas de solution pour une division arrondie par 100, si ce n'est par un collage spécial division !

Ândré.

 

Vote positif 0 Vote négatif

M

micky

Guest

• 9 Août 2004

• #7

merci Pascal , je la teste de suite

 

Vote positif 0 Vote négatif

M

micky

Guest

• 9 Août 2004

• #8

merci André, je vais tester la macro de Pasal

 

Vote positif 0 Vote négatif

M

micky

Guest

• 9 Août 2004

• #9

Re Pascal,
Ta macro fonctionne bien quand je saisis directement dans les cellules D8 et D9 mais voilà j'ai une macro avant qui quand je selectionne l'option button 1 (mm) il m'indique 790 pour D8 et D9 ou 4400 si je selectionne l'option button 2(dioptries) mais là ta macro ne fonctionne plus->débogage sur la ligne : Target.Value = Target.Value / 100
Tu sais ce qu'il faut faire?
mercii

 

Pièces jointes

• programme.zip

  38.8 KB · Affichages: 33
• programme.zip

  38.8 KB · Affichages: 36
• programme.zip

  38.8 KB · Affichages: 39

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 9 Août 2004

• #10

Re

Voici ton fichier légèrement modifié

Bon courage

Pascal

 

Pièces jointes

• programme.zip

  38.5 KB · Affichages: 38
• programme.zip

  38.5 KB · Affichages: 42
• programme.zip

  38.5 KB · Affichages: 40

Vote positif 0 Vote négatif

M

micky

Guest

• 9 Août 2004

• #11

merci, ca marche niquel )

 

Vote positif 0 Vote négatif