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

[didus]

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]

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]

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

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

Cordialement,

 

[TooFatBoy]

Bonjour,

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 :

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

---

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

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]

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]

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]

Bonsoir,
HU étant du texte ....
que pensez-vous de ?
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]

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

Rajouté la ligne de code : cancel= true

 

[didus]

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]

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]

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]

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

 

[didus]

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]

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]

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.