XL 2021 VBA Ajout d'une valeur en heure dans une cellule

didus · 23 Mai 2024

Bonjour à tous, un peu d'aide serait bienvenue
le contexte
A partir du calcul d'une durée qui donne un résultat en heures minutes et de la saisie dans un endroit aléatoire,
je teste une valeur T ou B pour incrémenter la durée concernée dans une cellule située en haut de la colonne de saisie
tout ceci est ok
c'est au niveau de la somme des valeurs pour ajouter la nouvelle valeur à la valeur de la cellule de cumul que le blocage survient
beaucoup d'essais mais apparemment ça bloque sur les types de données ajoutées

je place en pj le code ainsi que les variables locales, la cellule destinatrice du calcul est en heures minutes et secondes (format heures)
la valeur à ajouter est soit HT soit HU

merci d'avance

Dranreb · 24 Mai 2024

Bonsoir.
C'est quoi ces Left(HD, 5) ?
Ça n'a pas de sens si ce sont des durées en jours affichées dans les cellules via un format d'heure !
Supprimez moi ces variables HE, HG et HU et utilisez directement les HD, HF et HT.
Pour des textes à construire par concaténation utilisez Format(HD, "hh:mm")

Gégé-45550 · 24 Mai 2024

Bonsoir,
HU étant du texte ....
que pensez-vous de ?

VB:

Cells(9, ActiveCell.Column) = Cells(9, ActiveCell.Column) & HU

Cordialement,

TooFatBoy · 24 Mai 2024

Bonjour,

Dranreb à dit:
C'est quoi ces Left(HD, 5) ?
Ça n'a pas de sens si ce sont des durées en jours affichées dans les cellules via un format d'heure !

Ce sont en fait des horaires, qui sont bien au format heure d'Excel.
Donc ça n'a effectivement aucun sens de faire un LEFT(HD,5), et pourtant... ça m'étonne mais ça marche, ça donne l'horaire en heures et minutes, mais au format texte cette fois-ci.

L'utilisation de Format(HD, "hh:mm") serait, à mon avis, tout de même plus logique.

Quant à ton problème, je te propose d'essayer ceci :

VB:

Cells(9, ActiveCell.Column) = Cells(9, ActiveCell.Column) + HT

Juste une remarque : un petit Cancel = True ne serait pas du superflu...

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'
    ' Seules les cellules de l'emploi du temps déclenchent l'événement
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row + 2

    If Target.Column < 4 Then Exit Sub
    If Target.Column > 10 Then Exit Sub

    If Target.Row < 10 Then Exit Sub
    If Target.Row > DernLigne Then Exit Sub

    ' Saisies
    REP = ActiveCell.Value
    ActiveCell.Value = ""
    Cree_Matiere

    Cancel = True

End Sub

didus · 24 Mai 2024

Bonjour à tous et merci pour le temps passé à regarder le code
c'est un tableau du site qui répond en partie à mon besoin et que j'essaie de compléter

didus · 24 Mai 2024

TooFatBoy à dit:
Quant à ton problème, je te propose d'essayer ceci :
VB:
Cells(9, ActiveCell.Column) = Cells(9, ActiveCell.Column) + HT

Déjà essayé, j'avais d'ailleurs cité les deux valeurs HT et HU, ça ne marche pas

didus · 24 Mai 2024

Gégé-45550 à dit:
Bonsoir,
HU étant du texte ....
que pensez-vous de ?
VB:

VB:

Cells(9, ActiveCell.Column) = Cells(9, ActiveCell.Column) & HU

Cordialement,

plus d'erreur en effet mais ça concatène et ne somme pas...
résultat : 001:3501:00

didus · 24 Mai 2024

TooFatBoy à dit:

Juste une remarque : un petit Cancel = True ne serait pas du superflu...
VB:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'
    ' Seules les cellules de l'emploi du temps déclenchent l'événement
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row + 2

    If Target.Column < 4 Then Exit Sub
    If Target.Column > 10 Then Exit Sub

    If Target.Row < 10 Then Exit Sub
    If Target.Row > DernLigne Then Exit Sub

    ' Saisies
    REP = ActiveCell.Value
    ActiveCell.Value = ""
    Cree_Matiere

    Cancel = True

End Sub

Rajouté la ligne de code : cancel= true

didus · 24 Mai 2024

C'est fou d'avoir toutes les données sous la main et de se retrouver bloqué par un formatage de cellule ou un format de donnée...

Dranreb · 24 Mai 2024

Vous être vraisemblablement plutôt bloqué à ce stade par un type de donnée String au lieu de Double ou Date dans la cellule cible. Ressaisissez la.

didus · 24 Mai 2024

test complémentaire qui marche

sans faire de somme:
Cells(9, ActiveCell.Column) = HU
ne fonctionne pas avec = HT
pourtant le format de cellule ne change pas?

Dranreb · 24 Mai 2024

Moi j'utiliserais HT c'est plus propre que de forcer Excel à interpréter un texte selon une règle anglo-saxonne.

didus · 24 Mai 2024

TooFatBoy à dit:
Format(HD, "hh:mm")

en utilisant ce format l'affichage fonctionne également dans la rubrique
mais pour le calcul en cellule "somme" c'est pas mieux

didus · 24 Mai 2024

calcul avec HT, ça progresse, plus d'erreur
mais le résultat est bizarre
cellule initiale 01:05
ajout de 00:50
nouveau résultat : 00:15 au lieu de 01:55

Dranreb · 24 Mai 2024

J'ai dit ajoutez HT, c'est mieux à condition que la Cells(9, ActiveCells.Column) contienne bien déjà une info numérique et non un texte.

XL 2021 VBA Ajout d'une valeur en heure dans une cellule

didus

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Gégé-45550

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

didus

XLDnaute Occasionnel

didus

XLDnaute Occasionnel

didus

XLDnaute Occasionnel

didus

XLDnaute Occasionnel

didus

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

didus

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

didus

XLDnaute Occasionnel

didus

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires