Discussion :

[SKYSUPERMAN]

Bonjour vous,

Je cherche a un petit coup de main pour mon tableau Excel.

Lorsque je clique sur le bouton "28" j'aimerai qu'il ajoute un 1 dans la colonne respective avec la date.
Ceci servirait du nombre et de l'heure à laquel cela à été fait en cas de .....

Je vous joint une image de mon petit fichier

Merci déjà de votre aide

[EngueEngue]

Admettons que ta colonne 5 (E) soit la colonne packjob et que ton packjob est dans la ligne 7
Tu associes à ton bouton la macro suivante:

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
Dim dernlig as long
With Sheets("KAROLINE")
dernlig=.range("E7").end(xldown).row+1
.range("E" & dernlig) = 1
.range("F" & dernlig) = Date & " " & Time
End with
End sub

[SKYSUPERMAN]

Hello EngueEngue,

Merci beaucoup du coup de main! ça fonctionne!!! :-) mais en partie :-(
J'ai adapté ta macro et éffectivement cela ajoute le "1" et la date!, mais cela ne fonctionne qu'une seul fois!cela ne s'ajoute pas a la prochaine ligne.
Ce que je ne comprends pas non plus: tu parle de

Code :

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

dernlig=.range("E7").end(xldown).row+1

donc il devra

voici les fichier excel, impossible de les envoyer par mail ?

[nibledispo]

Bonsoir,

Ton fichier TENDEM 28 commence à la ligne 10.
Remplace :

Code :

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

1
2
 
dernlig=.range("E7").end(xldown).row+1

par :

Code :

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

1
2
 
dernlig=.range("E10").end(xldown).row+1

et ça fera un miracle.
Cette instruction signifie va à la ligne après la dernière. Elle suppose que le curseur soit préalablement dans une cellule quelconque de la table (cellule active).

Par contre je ne suis pas sur que le code que tu as mis dans module 1 soit optimum. que se passera t-il pour GAETAN et les autres ?

. Soi tu mets le code dans chaque feuille concernée en changeant le nom de la feuille
. soi tu remplaces karoline par activesheet

cordialement,

[EngueEngue]

En effet avec les fichiers c'est plus simple. Pour ce qui est de ton autre question, oui c'est possible de rajouter un compteur dans un autre fichier par macro.

Code :

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

1
2
3
4
5
6
7
8
Sub toto28()
Dim dernlig as long
With activesheet
dernlig=.range("E10").end(xldown).row+1
.range("E" & dernlig) = 1
.range("F" & dernlig) = Date & " " & Time
End with
End sub

[SKYSUPERMAN]

MERCI A TOUT LES DEUX!!!!

mais le problème de l'autre fichier est qu'il me sert a comptabiliser le total.
Et je voudrais arriver a quand on clique dans le premier classeur cela comptabilise en même temps dans calcul tandem (sans le timer juste comptabiliser. Est-ce qu'il est possible d'ajouter une (double )macro au bouton?

Bien à vous