Que puis-je faire?

[un internaute]

Bonjour le forum,
J'ai TOUTES les cellules d'une colonnes formatées en € avec 2 décimales
Les cellules de la colonne vont de I10 à I86
Je paye des actes médicaux de kiné par exemple => exemple 100.58 €
Mais quelques fois ces actes sont pris à 100 %. Donc je tape 100 % mais ça m'oblige à modifier le format des cellule en question (qui sont en €)
Comment puis-je faire pour éviter de modifier à chaque fois?
Peut-etre en MFC?
Merci d'avance pour vos retours

 

[natorp]

Bjr,

Ce qui revient à penser que vous renseignez dans ces cellules la valeur d'un pourcentage d'un acte ?
Et pourquoi pas une colonne intermédiaire qui renseignerait le taux et la colonne en question qui calculerait la bonne valeur ?
Mais sans fichier ??

Cordialement, Gérard

 

[un internaute]

Bonjour natorp,
Dans la même colonne je peux mettre soit : 100 % ou 100.58 € par exemple.
Oui effectivement une autre colonnes mais les macros vont "souffrir"!!!
Oui je sais beaucoup plus facile avec un fichier mais c'est un programme médical et personnel
Merci à toi
Cordialement

 

[cathodique]

Bonjour,

Étant donné que c'est pris en charge à 100%, vous payez 0,00€.

Alors, soit vous saisissez 0 (zéro), soit vous ne mettez rien dans votre cellule.

Je vous suggère de rajouter une colonne observation où vous pourrez annoter que c'est du 100%.

 

[Dugenou]

Bonjour,
Vous pourriez enregistrer une macro (en relatif et dans votre classeur) au moment où vous changez le format de la cellule sélectionnée en %, puis affecter un bouton de la barre d'outil accès rapide à cette macro. Ensuite à chaque fois que vous saisissez un % vous n'avez qu'à cliquer sur ce bouton.
Cordialement

 

[JHA]

Bonjour à tous,

Une MFC ne change pas la valeur de la cellule (100% = 1). ci joint un formt de nombre personnalisé mais il faut modifier le total.

JHA

 

[un internaute]

Bonjour JHA,Je vais tester ton idée. Il n'y a pas de total
Merci

 

[un internaute]

Bonjour le forum
J'ai fait ça avec macro et DoubleClick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim N As Integer, Couleur As Integer, Indice As Integer
Dim X As String, Cel As Range
Dim Tb, TbCoul
Dim Ligne As Long

Partie de macro non visible qui possède des noms de médecins ou kinés

Partie ajoutée et qui fonctionne:
Case 9 ' Colonne I
Target = 1
Target.NumberFormat = "00 %" 'Ligne en commentaire pour mettre en €
'Target.NumberFormat = "#,##0.00 $" 'Ligne en commentaire pour mettre en %
ActiveSheet.Protect
Cancel = True
Exit Sub

Mais comment faire pour qu'à chaque série de 10 séances par exemple on puisse passer du pourcentage en € sans mettre en commentaires l'une ou l'autre ligne
Merci d'avance pour vos retours
Cordialement

 

[13GIBE59]

Bonjour le forum, bonjour un internaute.

Je pense que ton problème ne doit pas être trop compliqué à résoudre.
Ne peux-tu vraiment pas nous envoyer un bout de fichier partiel en changeant les noms ?

A plus.

 

[ODVJ]

Bonjour à tous,

en mélangeant cathodique et JHA, tu peux saisir 0 pour avoir un affichage 100% avec le format personnalisé : _-* # ##0,00 €_-;-* # ##0,00 €_-;"100%"_-;_-@_-

cordialement

 

[un internaute]

Bonjour le forum,
Voici avec un DoubleClick la première partie de la macro pour mettre en % et un autre pour effacer et remettre en €:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long, Cel As Range, Couleur As Integer

If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B9:B" & Rows.Count), Target) Is Nothing Then
Range("A" & Target.Row) = IIf(Target = "", "", Date)
If Target = "" Then
Couleur = Target.Offset(-1, -1).Interior.ColorIndex
Ligne = Target.Row
While Left(Range("A" & Ligne), 5) <> "Série"
Ligne = Ligne - 1
Wend
Set Cel = Range("A3:A8").Find(what:=Range("A" & Ligne), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Couleur = Cel.Interior.ColorIndex
End If

Unprotect
'Target.Interior.ColorIndex = Target.Offset(0, -1).Interior.ColorIndex
With Target.Offset(0, -1).Resize(1, 9)
.ClearContents
.Interior.ColorIndex = Couleur
End With
Protect
End If
ElseIf Not Intersect(Range("I10:I" & Rows.Count), Target) Is Nothing And Target = "" Then
Target.NumberFormat = "#,##0.00 $"
End If
End Sub

Deuxième partie de la macro

Case 9 ' Colonne I
Application.EnableEvents = False
If Target = 1 Then
Target.NumberFormat = "#,##0.00 $"
Target.ClearContents
Else
Target = 1
Target.NumberFormat = "00 %"
End If
Application.EnableEvents = True
ActiveSheet.Protect
Cancel = True
Exit Sub
End Select
Cancel = True

Bonne journée à vous tous
Cordialement