Réalisation d'un décompte sous excel Fermé

Question

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 !

nightsheart · Answer

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 ?

Jb6161 · Answer

Pas vraiment, je vais essayer de te donner un exemple.
La personne choisie le code suivant dans le menu déroulant : 9SOLU002.. ( ca correspond à des produits déstinés à la réalisation de médicaments et ils ont donc des dates de péremptions qui vont être définies en heures ). Evidemment chaque produit n'a pas la même date limite de péremption, donc si ce produit a par exemple 90h35, il faudrait que le décompte parte de 90h35 et arrive à 0h.

Je t'ai mi des captures pour que tu puisses voir à quoi ça ressemble !
Merci

nightsheart · Answer

J'ai tout de même vraiment du mal à voir ce que tu veux. Ne pourrais-tu déposer ton exemple en fichier excel ?

En entrant le code 9SOLU002 dans la feuille 3, il est possible d'afficher le décompte souhaité dans la feuille 1. 
Cependant, ce programme va-t-il tourné en permanence ? 
Veux tu un décompte qui se met à jour en temps réel ?

Jb6161 · Answer

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 ?

Jb6161 · Answer

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 !

Jb6161 · Answer

" 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

Réalisation d'un décompte sous excel

6 réponses

Discussions similaires