Incrémentation sur plusieurs feuilles ?

[Scaph]

Bonjour à tous,

suite à la consultation de cet Excel.. ent ! forum J'aimerais réaliser un projet qui consisterait à incrémenter une feuille de rapport journalier ou s'incrémenterais automatiquement
- le nom de la feuille sur l'onglet (ça marche)
- le nom de l'onglet dans le tableau (ça marche)
- la date dans le tableau
- le cumul des heures journalière
j'ai réussi avec une macro (avec l'aide du forum évidemment !) à faire les deux première opérations avec la touche ctrl+o mais je sèche pour le reste.
Je joint le classeur, si vous pouvez m'aider sur ces points merci
cordialement
scaph

 

[hbenalia]

Re : Incrémentation sur plusieurs feuilles ?

Bonjour le forum;

Pour la date j'ai ajouté une ligne à ton code VBA et qui serait:

Sub trifeuille()
Dim x As Long
Dim y As Long
y = Sheets.Count
Sheets("1000").Copy After:=Sheets(y)
x = Sheets.Count
ActiveSheet.Name = "100" & x - 1
Range("A13") = Range("A13") + x - 1
Range("A14:F14").Select
End Sub

Mais pour le cumul je ne sais pas dans quelle cellule tu veut le mettre... Et n'oublies pas que chaque nouvelle feuille est une copie de la précédente (normalement elle devrait être presque toute vierge)...

J'espère avoir plus de précisions...

Cordialement

 

[hbenalia]

Re : Incrémentation sur plusieurs feuilles ?

Bonjour à tous,

Un essai avec le code suivant:

Sub trifeuille()
Dim x As Long
Dim y As Long
y = Sheets.Count
Sheets("1000").Copy After:=Sheets(y)
x = Sheets.Count
ActiveSheet.Name = "100" & x - 1
Range("A13") = Range("A13") + x - 1
Range("c16:c31").ClearContents
Range("C34").Select
ActiveCell = Sheets(y).Cells(33, 3) + Sheets(y).Cells(34, 3)
Range("A14:F14").Select
End Sub

Les lignes ajoutées dans ton code sont en caractères gras...

Espérant que le code répondra à ta demande...

Cordialement

 

[Scaph]

Re : Incrémentation sur plusieurs feuilles ?

Bonjour à tous,

Un essai avec le code suivant:

Sub trifeuille()
Dim x As Long
Dim y As Long
y = Sheets.Count
Sheets("1000").Copy After:=Sheets(y)
x = Sheets.Count
ActiveSheet.Name = "100" & x - 1
Range("A13") = Range("A13") + x - 1
Range("c16:c31").ClearContents
Range("C34").Select
ActiveCell = Sheets(y).Cells(33, 3) + Sheets(y).Cells(34, 3)
Range("A14:F14").Select
End Sub

Les lignes ajoutées dans ton code sont en caractères gras...

Espérant que le code répondra à ta demande...

Cordialement

Bonjour Hbenalia,
Tout d'abord merci pour le code qui fonctionne très bien, pour ce qui est de l'incrémentation des heures journalières, j'aurais aimé que les heures de la première feuille s'ajoutent aux heures de la deuxième journée et ainsi de suite pour avoir sur chaque feuille la somme des heures du jour + la somme de toutes les autres feuilles précédentes.
Cordialement
SCAPH

 

[hbenalia]

Re : Incrémentation sur plusieurs feuilles ?

Bonjour le forum, bonjour Scaph

Pour l'incrémentation des heures, normalement, c'est réglé avec le cumul qui s'ajoute dans chaque nouvelle journée à partir des sommes des heures/j et du cumul de la journée précédente (nouvelle feuille)...

La ligne: Range("c16:c31").ClearContents efface le contenu de la plage C16:C31 de la nouvelle feuille (pour faire de nouvelles saisies) et la ligne : ActiveCell = Sheets(y).Cells(33, 3) + Sheets(y).Cells(34, 3) remplacela cellule du cumul de la nouvelle journée par la somme du cumul de la journée précédente et les heures/j de cette journée... En tout cas c'est ce que j'ai compris du problème... En pièce jointe j'ai ajouté le code à ton fichier qui travaille ce principe...

Sinon tu me donnera un extrait (en exemple) de ce que tu veut vraiment et j'essayerai de faire le necéssaire...


Cordialement...