Problème dans mon tableau Excel, je ne trouve pas les macros VBA adapté.

Version imprimable

09/04/2019, 10h05
Destroyeur76

1 pièce(s) jointe(s)

Problème dans mon tableau Excel, je ne trouve pas les macros VBA adapté.

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
09/04/2019, 10h19
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.
09/04/2019, 10h35
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.
09/04/2019, 10h57
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.

Merci Marcel pour ce commentaire.

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

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

09/04/2019, 11h25
ARTURO83

Bonjour,

Remplacez la dernière ligne par

Code:

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

Cdlt
09/04/2019, 12h02
Destroyeur76

Bonjour ARTURO83,

Je te remercie sincérement de ton aide.
Ta solution marche parfaitement.

Je souhaiterais te demander un autre conseil.
Saurait tu comment faire pour que tout les resultats de la colonne E s'additionnes et se mette dans la colonne F , pareil relier par un bouton , je te remercie.

cordialement Destroyeur76

Voilà

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
    Set Q = f1.Columns("E").Find("QUANTITE", LookIn:=xlValues)
    Set Som = f1.Range("E8:E" & Q.Row - 1)
    f2.Cells(Derligf2 + 1, "E") = Application.WorksheetFunction.Sum(Som)
    f2.Cells(Derligf2 + 1, "B") = f1.[E3]
    f2.Cells(Derligf2 + 1, "A") = f1.[B3]
    f2.Cells(Derligf2 + 1, "C") = f2.Cells(Derligf2 + 1, "B") - f2.Cells(Derligf2 + 1, "A")
End Sub

Cdlt

09/04/2019, 14h05
Destroyeur76

Merci ARTURO83,

Mais le code ne me permet pas d'aditionner tout les résultat présent dans la colonne E feuil!8 pour mettre le résultat de cette adition dans la colonne F feuil!8

Merci de votres aide.
09/04/2019, 14h20
ARTURO83

pour mettre le résultat de cette addition dans la colonne F feuil!8 dans une seule cellule alors!

exemple en F3 feuil8, mettre la formule

Code:

=SOMME(INDIRECT("E3:E"&NBVAL(E:E)+2))