Modifier la formule d'une cellule via VBA

1 pièce(s) jointe(s)

Bonjour à tous,

Je rencontre un problème que je n'arrive pas à résoudre sur excel/VBA.

J'ai un fichier standard, permettant de monitorer le temps consacré à un process, qui est chaque jour complété par des opérateurs. Dans ce fichier les opérateurs doivent renseigner des heures de début et de fin de process dans des cases déjà réglée au format heure. Dans ce fichier l'option "utiliser le calendrier depuis 1904" est validée comme je fais des calculs avec des heures et j'ai besoin qu'Excel soit capable d'afficher des durées négatives (quand on est en avance dans le process).

Mon problème est le suivant : Parfois, alors que le ficher est bien complété, et que dans la cellule c'est en effet une heure qui est affichée au format "hh:mm:ss", quand on clique sur cette cellule, la valeur associée à la cellule présente dans la barre de fonction est "02/01/1904 hh :mm :ss" (voir capture d'écran en pièce jointe). Les données de ce fichier étant exportées vers une base de données afin de faire des études statistiques, ce problème de format fausse par la suite tous mes calculs.

Pièce jointe 400599

Ne sachant pas ce qui provoque cette erreur, je voudrais faire une macro permettant de vérifier la valeur des cellules, et quand celles-ci contiennent "02/01/1904 hh :mm :ss" au lieu de "hh:mm:ss", supprimer « 02/01 »1994 ». Je n’arrive pas à trouver de fonction VBA me permettant d’accéder à la « formule» liée à une cellule.
Dans le cas d’une cellule dont la « formule vaut "02/01/1904 hh :mm :ss" si je fais :

Code:

thisWorkbook.Cells(i ,j).Value

ou

Code:

thisWorkbook.Cells(i ,j).Formula

La valeur sous VBA sera “hh:mm:ss”, et je ne détecterai pas l’anomalie. Avez-vous des idées pour résoudre ou contourner ce problème ?

Merci d’avance

Bonjour,

Ta cellule doit être saisie avec 48:00 et il te suffit de mettre un format "[h]:mm:ss" pour le vérifier.

Ensuite au moment de la saisie il te faut savoir si l'on peut dépasser la journée.

Bonjour,

Tu pourrais éventuellement utiliser une formule dans le genre (date négative en A1 présentée sous la forme ######### donc calendrier 1900) :
Code:

1 2 =SI(A1<0;"-"&TEXTE(ABS(A1);"[h]:mm:ss");TEXTE(ABS(A1);"[h]:mm:ss"))
pour avoir "'visuellement"' les valeurs en négatif seulement, avec la fonction Texte() il est difficile d'effectuer des calculs car justement, elle transforme la valeur en texte !
Tu peux éventuellement utiliser une formule du genre ci-dessous pour avoir à nouveau les valeurs en numérique (formule précédente en A2) :
Code:

1 2 =SI(ESTERREUR(CHERCHE("-";A2));CNUM(A2);CNUM(DROITE(A2;NBCAR(A2)-1))*-1)
mais tout ça ça devient bien compliqué !