Discussion :

[tafou85]

Bonjour,

Voilà je souhaiterai faire une macro pour feignant^^

J'ai un fichier cadenceur (ci-joint)

J'aimerai que lorsque j'ai fait mon réglage sur le tableau "Jour-J ou Jour J+1" le calcul de la cadence se mette automatiquement dans la colonne HR (B) dans la première case vide disponible

J'ai quelques notions mais là je sais pas comment faire...

Nota: Macro pour Jour J et Jour J+1 indépendante Svp.

[rjamin]

Bonjour,
Pourriez vous SVP mettre dans le tableau ce que l'on doit obtenir comme résultat, car ce n'est pas facile (pour moi en tout cas) de deviner ce que l'on doit avoir. Aussi bien en Jour J qu'en Jour J+1
Merci.

[tafou85]

Oui effectivement quand on est dedans on ne s'en rend pas compte.

Les tableaux servent à calculer le nb de produits réalisable à la journée, la cadence (00;45 pour Jour J) est le temps pour réaliser le produits, on peut donc observer qu'on ne fera que 10 produits, mais on peut aussi changer la cadence ce qui évidemment change le nb de produits effectués dans une journée de travail.

Je souhaiterai que les horaires de chaque "top" soient reportées, dans le premier onglet.

Explication dans le fichier, je ne sais pas si c'est encore clair

Nota : si je fais 10 produits j'ai 10 top, si j'en fais 15 j'en ai 15 etc...

[rjamin]

Re,
Je ne comprends toujours pas ce que l'on doit calculer et où ce calcul doit-il être placé?

[tafou85]

Bonjour,

Désolé un peu de retard

Pour ce qui est du calcul en lui même vous n'avez pas à vous en inquiéter.

La zone où se trouve le calcul en question est dans l'onglet Calcul, de C9 à C34.

Je fais pour ma part un calcul qui détermine un certain nb de ligne avec une horaire. (qui se modifie dans la limite C9:C34). 2 choses :
1- J'aimerai qu'une sélection automatique s'effectue dans cette zone sur les cellules ayant un résultat différent de ""
2- Une fois cette sélection faite, qu'elle soit copiée et collée dans l'onglet cadence dans la colonne B, à la suite de ce qui existe déjà.

j'espère avoir été plus clair.

Cdt

[EngueEngue]

Si tu veux juste copier les horaires en bleu..

Code :

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

1
2
3
4
5
6
7
8
9
Sub copiehoraires()
Dim i As Long, dernlig As Long
dernlig = Sheets("Cadence").Range("B" & Rows.Count).End(xlUp).Row
i = 9
While Sheets("Calcul").Cells(i, 3) <> ""
    Sheets("Cadence").Cells(dernlig + i - 8, 2) = Sheets("Calcul").Cells(i, 3).Value
    i = i + 1
Wend
End Sub

Tu cliques sur le bouton et ça te remplit tes horaires.. Si tu veux y rajouter autre chose.. fais savoir