XL 2021 Traitement dans un tableau

clausen · 2 Juin 2025

Bonjour tout le monde

Je dois faire une correction à cette application pour contrôler la Glycémie.

Ça concerne uniquement en premier lieu au tableau "Aliments" M5 R5

J'aimerais premièrement que les colonnes P Q R se colorent en vert aux mêmes heures que dans la sélection D 6-7-8
ensuite Quand je clique sur un élément de la colonne M la valeur (en fonction de l'heure) soit cumulée dans G10

et que je puisse tout annuler avec RAZ

Actuellement quand je clique il y a des cases qui se colorent en jaune n'importe comment. Au début c'étaient uniquement les cases cliquer et qui se remettaient en fond blanc en même temps que le RAZ

Un peu complique, je ne sais pas trop comment expliquer.

Merci d'avance au spécialiste qui arrivera à me dépanner.

Bonne fin de journée

sylvanu · 7 Juin 2025

clausen à dit:
petit problème avec le calcul dans la cellule G10. Le calcul ne tient pas compte de l'heure Ligne verte

Bonjour,
Le code n'ayant pas été touché dernièrement, ce bug existait depuis longtemps.
Dans le code on faisait [Total] = [Total] + Target.Offset(0, 3) L'offset était constant
J'ai modifié avec : [Total] = [Total] + Target.Offset(0, ColHeure(0))
Et ColHeure est défini avec l'heure par :

VB:

Function ColHeure(x)
' On calcule l'offset à effectuer suivant l'heure pour choisir la valeur en colonne P,Q ou R
H = Hour(Now)
If H <= [P4] Then
    ColHeure = 2
ElseIf H > [P4] And H <= [Q4] Then
    ColHeure = 3
ElseIf H >= [Q4] Then
    ColHeure = 4
End If
End Function

Question : Pourquoi la limite est de 7 alors qu'au dernier post vous vouliez 8.1 ?

sylvanu · 3 Juin 2025

Re,

Quand je type un chiffre dans E6-E7-E8 j'aimerai avoir le résultat selon plan ci-dessous
dans F6-F7-F8 en fonction du positionnement automatique à l'ouverture du tableau
0 si la valeur de E6-E7-E8 est égale ou plus petite que E14
Autrement
Matin "E6*E15/10"
Midi "E7*E16/10"
Soir "E8*E17/10"

Un essai en PJ avec en F6:

VB:

=SI(t_Saisie[[#Cette ligne];[G7]]<$E$14;0;t_Saisie[[#Cette ligne];[G7]]*E15/10)

A tester.

clausen · 3 Juin 2025

sylvanu à dit:
Re,

Un essai en PJ avec en F6:

VB:

=SI(t_Saisie[[#Cette ligne];[G7]]<$E$14;0;t_Saisie[[#Cette ligne];[G7]]*E15/10)

A tester.

clausen · 3 Juin 2025

PJ ????

Je dois essayer quoi. Le fichier Joint a l'air de bien fonctionner. Sauf le tableau des mets qui pose des problèmes en se coupant en deux chaque fois que l'on veut l'utiliser.

Merci

sylvanu · 3 Juin 2025

Re,
J'ai appliqué à la lettre ce que vous demandiez :

Quand je type un chiffre dans E6-E7-E8 j'aimerai avoir le résultat selon plan ci-dessous
dans F6-F7-F8 en fonction du positionnement automatique à l'ouverture du tableau
0 si la valeur de E6-E7-E8 est égale ou plus petite que E14
Autrement
Matin "E6*E15/10"
Midi "E7*E16/10"
Soir "E8*E17/10"

Ex :
E6=10 alors G6=4 car Matin "E6*E15/10"
E7=7 alors G7=0 car car E7<8
E8=20 alors G8=8 car Soir "E8*E17/10"

clausen à dit:
Sauf le tableau des mets qui pose des problèmes en se coupant en deux chaque fois que l'on veut l'utiliser.

C'est simplement que j'ai mis des volets pour garder les titres visibles. En PJ je les ai retiré.

clausen à dit:
Je dois essayer quoi.

Juste vérifier que les résultats sont corrects après essais.

Si c'est tout faux alors expliquez plus clairement.

clausen · 3 Juin 2025

sylvanu à dit:
Re,
J'ai appliqué à la lettre ce que vous demandiez :

Ex :
E6=10 alors G6=4 car Matin "E6*E15/10"
E7=7 alors G7=0 car car E7<8
E8=20 alors G8=8 car Soir "E8*E17/10"

C'est simplement que j'ai mis des volets pour garder les titres visibles. En PJ je les ai retiré.

Juste vérifier que les résultats sont corrects après essais.

Si c'est tout faux alors expliquez plus clairement.

À première vue, tout fonctionne. Je vais faire du test dans la semaine en rentrant des données exactes.

J'ai voulu corriger la limite 8 qui doit donner 0. Je ne sais pas dans quel module corriger. J'ai simplement mis la limite à 8.1.

Bonne soirée

sylvanu · 3 Juin 2025

Re,
C'est ça. C'est la limite que j'utilise dans les formules. ( < E14 )

clausen · 3 Juin 2025

sylvanu à dit:
Re,
C'est ça. C'est la limite que j'utilise dans les formules. ( < E14 )

Comment transformer cette formule pour le chiffre dans E14 +.1

sylvanu · 3 Juin 2025

Vous ne changez rien, vous mettez 8.1 en E14.
Je ne vois pas ce qui vous échappe.

clausen · 5 Juin 2025

Tout fonctionne merveilleusement bien
Encore une fois merci

clausen · 7 Juin 2025

clausen à dit:
Tout fonctionne merveilleusement bien
Encore une fois merci

Hello, j'ai découvert un petit problème avec le calcul dans la cellule G10. Le calcul ne tient pas compte de l'heure Ligne verte).
Je joins mon fichier étant donné que j'ai fait déjà pas mal de saisies.

Merci

sylvanu · 7 Juin 2025

clausen à dit:
petit problème avec le calcul dans la cellule G10. Le calcul ne tient pas compte de l'heure Ligne verte

Bonjour,
Le code n'ayant pas été touché dernièrement, ce bug existait depuis longtemps.
Dans le code on faisait [Total] = [Total] + Target.Offset(0, 3) L'offset était constant
J'ai modifié avec : [Total] = [Total] + Target.Offset(0, ColHeure(0))
Et ColHeure est défini avec l'heure par :

VB:

Function ColHeure(x)
' On calcule l'offset à effectuer suivant l'heure pour choisir la valeur en colonne P,Q ou R
H = Hour(Now)
If H <= [P4] Then
    ColHeure = 2
ElseIf H > [P4] And H <= [Q4] Then
    ColHeure = 3
ElseIf H >= [Q4] Then
    ColHeure = 4
End If
End Function

Question : Pourquoi la limite est de 7 alors qu'au dernier post vous vouliez 8.1 ?

clausen · 7 Juin 2025

sylvanu à dit:
Bonjour,
Le code n'ayant pas été touché dernièrement, ce bug existait depuis longtemps.
Dans le code on faisait [Total] = [Total] + Target.Offset(0, 3) L'offset était constant
J'ai modifié avec : [Total] = [Total] + Target.Offset(0, ColHeure(0))
Et ColHeure est défini avec l'heure par :

VB:

Function ColHeure(x) ' On calcule l'offset à effectuer suivant l'heure pour choisir la valeur en colonne P,Q ou R H = Hour(Now) If H <= [P4] Then ColHeure = 2 ElseIf H > [P4] And H <= [Q4] Then ColHeure = 3 ElseIf H >= [Q4] Then ColHeure = 4 End If End Function

Question : Pourquoi la limite est de 7 alors qu'au dernier post vous vouliez 8.1 ?

Merci Super rapide

C'est le diabétologue qui m'a fixé la limite a 7 et changer le mode de calculer. Tout baigne pour le moment bon weekend prolongé

sylvanu · 7 Juin 2025

Re,
Ne mettez pas en vert votre réponse car c'est le post qui remonte après votre demande pour guider le futur lecteur.
Donc soit vous ne mettez rien, soit le post qui donne la solution.

Discussion 'Préfixe "Résolu" et "Marquer comme solution"'

25 Mars 2019

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 :

Avez vous vu...? - Forums aux questions

Fils "Questions" Suite à la mise à jour de ce 22/12/2020, le forum "Excel" et le forum "Autres Applications" deviennent des forums dédiés aux questions. Cela apporte des nouvelles fonctionnalités bien pratiques que je vais vous faire découvrir ici : Bien que cela ne soit pas visible au...

www.excel-downloads.com

(obsolète suite à la mise à jour du 22/12/2020)
Bonjour,

Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les fils qu'ils ont initiés ont trouvé une réponse qui leur convient.
Cela leur permet de faire savoir qu'ils sont satisfait, qu'ils ne reviendront pas forcément lire les futurs messages et que les répondeurs n'auront donc pas à s'en offusquer.

L'idée n'est pas de demander aux...

clausen · 8 Juin 2025

Petit problème à l'usage. A 14:00 il y a deux lignes

sylvanu · 8 Juin 2025

Bonjour,
Vous êtes impressionnant.
Je vous met un post #28, vous répondez juste en le dupliquant, sans pour cela supprimer ce vert qui ne sert à rien mais qui va guider le futur utilisateur vers un faux post, et vous reposez une question comme si ne rien n'était. 🙁
XLD est un site d'échange, pas un site où on demande sans tenir comptes des autres, y compris les futurs lecteurs. regardez au post #1 :

Une toute dernière PJ. L'erreur était dans "Heure(Maintenant())" qui fait qu'entre 14:00 et 14:59 deux colonnes se reconnaissent. Il suffit de les supprimer et de ne laisser que Maintenant().

XL 2021 Traitement dans un tableau

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency