Réalisation d'un décompte sous excel

Fermé

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014 - 27 mai 2014 à 10:59
Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014 - 28 mai 2014 à 16:27

Bonjour à tous,
Je dois réaliser un programme sous Excel 2007 pour une entreprise et étant novice dans le language Vba j'ai un peu de mal à m'y retrouver !
Je dois réaliser 3 feuilles excel avec dans la première un affichage, dans la deuxième une base de données et dans la troisième une sélection des données grâce à un menu déroulant, jusque là pas de soucis ! Dans la feuille où se trouve l'affichage, il faudrait que j'ajoute un décompte propre à un code d'identification ( sachant qu'il y en a une cinquantaine ) donc j'aurai voulu savoir s'il était possible, si une personne choisi tel code d'identification dans le menu déroulant de la feuille 3, que le décompte correspondant s'affiche dans la feuille 1, dans une cellule bien précise ?
Je sais pas si j'ai été très clair..
Merci d'avance pour vos réponses !

A voir également:

Comment faire un décompte sur excel
Liste déroulante excel - Guide
Formule excel - Guide
Comment aller à la ligne sur excel - Guide
Comment faire un graphique sur excel - Guide
Si et excel - Guide

6 réponses

Réponse 1 / 6

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
Modifié par nightsheart le 27/05/2014 à 11:18

Bonjour à toi Jb6161.
Qu'entends tu par décompte ?
Veux tu partir par exemple de 100 pour chaque identifiant et qu'à chaque fois qu'un des identifiants est sélectionné ca décrémente ?

C'est à dire si A est sélectionné A décrément et B se stoppe et inversement ?

Réponse 4 / 6

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
27 mai 2014 à 14:16

Désolé dans ma tête c'est à peu près clair, mais de l'expliquer aux gens ça l'est beaucoup moins !
Ce programme tournera en permanence oui.
Je suis sur un pc au travail et le fichier ne veut pas s'envoyer, aurais-tu une adresse mail à laquelle je pourrai te l'envoyer ?

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
27 mai 2014 à 14:53

Je t'ai envoyé mon email en MP

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
27 mai 2014 à 15:54

C'est bon, email envoyé

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
27 mai 2014 à 16:20

Bien reçu. :) Pour faire un décompte il te faut une heure d'entrée, c'est à dire à partir de laquelle il faut compter. C'est ce que tu appelles heure de fin de transfert ?

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
27 mai 2014 à 16:27

C'est ça, sauf que la personne qui va remplir ces données ne va pas forcémment le faire le même jour et à la même heure que l'heure de fin de transfert du coup le décompte(=DLC dans la feuille " Base de donées ") ne sera pas le même que dans la base de données vu qu'il faudra prendre en compte l'interval entre lequel le transfert s'est terminé et celui où la personne a rempli les données.

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
27 mai 2014 à 17:40

Oula ^^ Alors attends, je crois que je n'ai pas forcément compris le fichier correctement.
Dans l'onglet "base de données" ce que tu appelles "DLC en heure" correspond à des données fixes ? C'est à dire 9ENTE0002XX toujours = 243h21 ?

Je veux vérifier que j'ai bien compris :

Date de fin de transfert = 26/05/2014
Heure de fin de transfert = 16h00

DLC en heure = 200h

Aujourd'hui à 16h décompte = 200 - 24 = 176 ?

Réponse 5 / 6

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
28 mai 2014 à 10:12

Impossible d'exécuter le sub quand je clique sur " enregistrement " le message d'erreur suivant apparaît : "Erreur d'exécution '70' Permission refusée ".

Sub enregistrement()

nb_ligne = 5

Code = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Ligne = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Cuve = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Date = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Heure = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Lot = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1

Sheets("Base de données").Activate

Range("A4:A15000").Select

num_ligne = Selection.Find(What:=Code, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row

Range("A" & num_ligne).Activate

ActiveCell.Offset(0, 3) = Ligne
ActiveCell.Offset(0, 4) = Cuve
ActiveCell.Offset(0, 5) = Date
ActiveCell.Offset(0, 6) = Heure
ActiveCell.Offset(0, 7) = Lot

End Sub

Quand je fais le débogage, l'erreur se trouve sur la ligne en gras !

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
28 mai 2014 à 10:46

Je n'ai pas d'erreur quand je l'éxécute pour ma part. Mais essaie de changer le nom de la variable "Date" par "Date_jour" :

Date_jour = Range("B" & nb_ligne).Value

ActiveCell.Offset(0, 5) = Date_jour

Réponse 6 / 6

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
28 mai 2014 à 10:52

" Erreur d'execution '91' Variable objet ou variable de bloc with non définie " et cette fois l'erreur proviens d'une autre ligne:

Sub enregistrement()

nb_ligne = 5

Code = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Ligne = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Cuve = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Date = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Heure = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Lot = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1

Sheets("Base de données").Activate

Range("A4:A15000").Select

num_ligne = Selection.Find(What:=Code, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row

Range("A" & num_ligne).Activate

ActiveCell.Offset(0, 3) = Ligne
ActiveCell.Offset(0, 4) = Cuve
ActiveCell.Offset(0, 5) = Date
ActiveCell.Offset(0, 6) = Heure
ActiveCell.Offset(0, 7) = Lot

End Sub

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
28 mai 2014 à 11:08

Remplace tout par :

Sub enregistrement()

Dim celltrouve As Range
Dim code As String

nb_ligne = 5

code = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Ligne = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Cuve = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Date = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Heure = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1
Lot = Range("B" & nb_ligne).Value
nb_ligne = nb_ligne + 1

Sheets("Base de données").Activate

With Sheets("Base de données").Columns("A:A")
Set celltrouve = .Find(code, lookat:=xlWhole)
End With

num_ligne = celltrouve.Row
Range("A" & num_ligne).Activate

ActiveCell.Offset(0, 3) = Ligne
ActiveCell.Offset(0, 4) = Cuve
ActiveCell.Offset(0, 5) = Date
ActiveCell.Offset(0, 6) = Heure
ActiveCell.Offset(0, 7) = Lot

End Sub

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
28 mai 2014 à 11:15

ça fonctionne en remplaçant pas " Date_jour " , c'est moi qui ai fait une erreur !

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
Modifié par nightsheart le 28/05/2014 à 11:32

Cela correspond-il a tes besoins ? Je viens de voir ton mail pour l'afficheur. Je crois avoir saisi ^^

Jb6161 Messages postés 49 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 13 juin 2014
28 mai 2014 à 11:36

Oui, c'est pile ce qu'il me faut merci :), mais j'ai encore pleins de questions ! ^^

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 30
28 mai 2014 à 11:40

Vas-y vas-y mais pour l'affichage du décompte puis-je te changer un la mise en page ?

Discussions similaires

Decompte de jours pour forfait cadre AUTONOME + RTT + CP

Comment faire le décompte d'un chiffre dans Excel?

Créer un compte à rebours dans une cellule

tableau suivi cadre au forfait

TABLEAU 2022 gestion Forfait cadres 218 jours travaillés

Recherche musique avec un décompte

Discussions similaires

Newsletters