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

anthoYS · Aujourd'hui à 09:06

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 · Aujourd'hui à 09:58

anthoYS à dit:
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 :

VB:

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...

danielco · Aujourd'hui à 09:58

anthoYS à dit:
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 :

VB:

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 · Aujourd'hui à 10:05

Merci, je tenterai ça ...

anthoYS · Aujourd'hui à 10:11

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

Exemple rajouter le colonne 5 et 7 (voir capture)

danielco · Aujourd'hui à 10:16

VB:

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 · Aujourd'hui à 10:18

danielco à dit:

VB:

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 · Aujourd'hui à 10:22

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 · Aujourd'hui à 10:30

anthoYS à dit:
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 · Aujourd'hui à 10:52

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

anthoYS · Aujourd'hui à 10:53

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

VB:

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 · Aujourd'hui à 10:54

et celui-ci en dessous :

VB:

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 · Aujourd'hui à 10:59

Supprime tout et met à la place :

VB:

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 · Aujourd'hui à 11:01

danielco à dit:

Supprime tout et met à la place :

VB:

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 · Aujourd'hui à 11:03

Merci beaucoup une fois de plus :=)

anthoYS · Aujourd'hui à 11:16

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

Bonne fin de journée !

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

anthoYS

XLDnaute Barbatruc

Pièces jointes

danielco

danielco

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

danielco

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

danielco

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

danielco

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency