XL 2019 [suivi de glycémie] convertir directement une valeur dans une cellule même, possible ?

[anthoYS]

Bonjour


Exemple je saisi en B2, 5,95 (mmol/L), ça devra afficher 1,07 g/L... en format personnalisé....
Où bien il faut plusieurs cellules, là je sais faire, mais je préfère avoir les valeurs en grammes par Litre plutôt qu'en mmol/L.
Et quand j'ai la valeur, elle sera en mmol/L...

Peut-on saisir cette valeur et la convertir même avec un bouton à côté... Ou un double clic en fin de ligne concernée...


Merci :=)

 

[danielco]

Bonjour


Exemple je saisi en B2, 5,95 (mmol/L), ça devra afficher 1,07 g/L... en format personnalisé....
Où bien il faut plusieurs cellules, là je sais faire, mais je préfère avoir les valeurs en grammes par Litre plutôt qu'en mmol/L.
Et quand j'ai la valeur, elle sera en mmol/L...

Peut-on saisir cette valeur et la convertir même avec un bouton à côté... Ou un double clic en fin de ligne concernée...


Merci :=)

Bonjour,

Ajoute :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Value <> "" And IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.18
    Application.EnableEvents = True
  End If
End Sub

Dans le module de la feuille.

Daniel

 

[anthoYS]

Merci, je tenterai ça ...

 

[anthoYS]

Merci ça marche, et comment le faire pour d'autres colonnes ?

Exemple rajouter le colonne 5 et 7 (voir capture)

 

[danielco]

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 7) And _
    Target.Value <> "" And IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.18
    Application.EnableEvents = True
  End If
End Sub

Daniel

 

[anthoYS]

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 7) And _
    Target.Value <> "" And IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.18
    Application.EnableEvents = True
  End If
End Sub

Daniel

Merci beaucoup :=)

 

[anthoYS]

Quand je saisi j'ai le message d'erreur "nom ambigu détecté" puis je clique Ok et ça converti la valeur de mmol/L et g/L.
C'est normal ?

 

[danielco]

Quand je saisi j'ai le message d'erreur "nom ambigu détecté" puis je clique Ok et ça converti la valeur de mmol/L et g/L.
C'est normal ?

Non, il faut remplacer la la macro précédente par celle-ci.
Daniel

 

[anthoYS]

Même avec le nouveau, témoin ici :

 

[anthoYS]

la feuille comporte déjà ce code, donc elle compile plusieurs code VB (dont ces deux là) :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Annule le menu contextuel par défaut
    Cancel = True

    ' Vérifie si le clic droit est dans la colonne F (ou toute autre colonne)
    If Not Intersect(Target, Me.Columns("F")) Is Nothing Then
        ' Supprime le commentaire existant (si nécessaire)
        If Not Target.Comment Is Nothing Then
            Target.Comment.Delete
        End If

        ' Ajoute un nouveau commentaire vide prêt à être saisi
        Target.AddComment ""
        Target.Comment.Visible = True
        Target.Comment.Shape.Select
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Masque tous les commentaires (sauf si on est en train d'en éditer un)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

 

[anthoYS]

et celui-ci en dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 7) And _
    Target.Value <> "" And IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.18
    Application.EnableEvents = True
  End If
End Sub

 

[danielco]

Supprime tout et met à la place :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Annule le menu contextuel par défaut
    Cancel = True

    ' Vérifie si le clic droit est dans la colonne F (ou toute autre colonne)
    If Not Intersect(Target, Me.Columns("F")) Is Nothing Then
        ' Supprime le commentaire existant (si nécessaire)
        If Not Target.Comment Is Nothing Then
            Target.Comment.Delete
        End If

        ' Ajoute un nouveau commentaire vide prêt à être saisi
        Target.AddComment ""
        Target.Comment.Visible = True
        Target.Comment.Shape.Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 7) And _
    Target.Value <> "" And IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.18
    Application.EnableEvents = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Masque tous les commentaires (sauf si on est en train d'en éditer un)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Daniel

 

[anthoYS]

Supprime tout et met à la place :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Annule le menu contextuel par défaut
    Cancel = True

    ' Vérifie si le clic droit est dans la colonne F (ou toute autre colonne)
    If Not Intersect(Target, Me.Columns("F")) Is Nothing Then
        ' Supprime le commentaire existant (si nécessaire)
        If Not Target.Comment Is Nothing Then
            Target.Comment.Delete
        End If

        ' Ajoute un nouveau commentaire vide prêt à être saisi
        Target.AddComment ""
        Target.Comment.Visible = True
        Target.Comment.Shape.Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 7) And _
    Target.Value <> "" And IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = Target.Value * 0.18
    Application.EnableEvents = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Masque tous les commentaires (sauf si on est en train d'en éditer un)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Daniel

C'est où que ça bloquait ?

 

[anthoYS]

Merci beaucoup une fois de plus :=)

 

[anthoYS]

Ok, l'ordre sans doute de compilation...

Bonne fin de journée !