Discussion :

[Destroyeur76]

Bonjour,

Je me retrouve devant un problème pour mon Project de BTS. J’ai commencé à utiliser Excel et à apprendre sur le tas à m’en servir il y a deux semaines. Si vous trouver une solution à mon problème je vous en remercierais.
Mise en situation :
Je souhaite maitre la différence entre deux dates (résultat en jour) dans mon tableau et en le reliant a un bouton. Je souhaiterais aussi faire en sorte que tous les temps marqué dans la colonne E s’additionnent automatiquement dans la colonne F. Et enfin je voudrais savoir comment faire pour convertir les temps en heure (exemple : 1H30 1H50) pour la colonne E.

Je place ci-joint mon fichier afin que vous vous faite une idée.

Je vous remercie de votre attention.

Cordialement

[MarcelG]

Bonjour Destroyeur,

Pas de pièce jointe ouverte en début de discussion.
Peut-être pourrais-tu essayer d'utiliser les fonctions natives de date d'Excel, avant d'envisager un développement par VBA.

Reviens si nécessaire avec une capture d'écran en commentant le résultat que tu souhaites voir apparaître.

A plus tard.

[Destroyeur76]

Je te remercie Marcel,
mais avec ce que tu ma donner je ne peut pas me permettre de faire de boucle.
Mise en situation :
La date de début de trouve en B3.
La date de fin se trouve en E3.
De la feuil!6
Je shouaite que le résultat aille dans la cellule C3 de la feuil!8.
Mais que si l'on change les date dans B3,E3 de la feuil!6 alor le résultat passe ensuite dans la cellule C4 de la feuil!8.
Et que cette étape se fasse a l'infinit.
Et bien sur les r2sultat obptenue dans la colonne C de la feuil!8 reste meme sit les dates de la feuil!6 change.

Je te remerci de ton attention.

[MarcelG]

Salut Destroyeur,

Je ne sais pas ce que tu entends par "résultat". C'est la raison pour laquelle je t'ai propsé de retourner une copie d'écran.
Quoi qu'il en soit.
Une date renvoie un nombre.
Si le résultat est la différence de 2 dates, alors celui-ci sera la différence des cellules B3 et E3.
Ainsi, tu pourrais gérer l'évènement Change de ta feuille initiale, en testant par exemple la ligne 3 de l'objet Range Target.
Le code chercherait la 1ère cellule vide de la feuille de destination et y reporterait ce résultat.

Peut-être pourrais-tu ébaucher un code dans ce sens.

Au demeurant, n'hésite pas à revenir.

[Destroyeur76]

Merci Marcel pour ce commentaire.

Je souhaiterais te montrer les ligne de code afilié a mon tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Text
 
Sub Valide()
    Dim DerVal As Long
    Set f1 = Sheets("Feuil6")
    Set f2 = Sheets("Feuil8")
    Application.ScreenUpdating = False
    Derligf2 = f2.[B100000].End(xlUp).Row
    If Derligf2 < 3 Then Derligf2 = 2
    f2.Cells(Derligf2 + 1, "E") = f1.[E8] + f1.[E9] + f1.[E10] + f1.[E11]
    f2.Cells(Derligf2 + 1, "B") = f1.[E3]
    f2.Cells(Derligf2 + 1, "A") = f1.[B3]
    f2.Range(Derligf2 + 1, "C") = f1.[DateDiff](("d"), Range("B3"), Range("E3"))
End Sub

J'ai essayé pour la date de rajouter la dernière ligne de code. Mais étant un novice de niveau 0 dans excel, j'ai du m'inspirer de ce qu'un developpeur m'avait deja donner et de ce que j'ai trouver sur internet.
PS: Je ne sais pas pourquoi mais la ligne : f2.Range(Derligf2 + 1, "C") = f1.[DateDiff](("d"), Range("B3"), Range("E3")) se met en fluo et je ne comprend pas ce qu'il cloche par rapport a ce que j'ai trouver sur internet.

Merci de ton aide

[ARTURO83]

Bonjour,

Remplacez la dernière ligne par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    f2.Cells(Derligf2 + 1, "C") = f2.Cells(Derligf2 + 1, "B") - f2.Cells(Derligf2 + 1, "A")

Cdlt