Planning heures

[luco]

Bonjour le Forum,

Novice dans Excel j’ai trouvé ce site très intéressant mais je n’y comprends pas tous, j’aimerai de l’aide pour automatiser un ce classeur. Ou quelques conseils pour avoir un classeur efficace et propre
Les buts :
Créer une feuille par nom comme la feuille type avec les données correspondent à chacun (50 personnes)
Avoir une feuille récapitulative du solde

Merci pour vos idées et conseille
[file name=Heures_20060315113506.zip size=34857]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Heures_20060315113506.zip[/file]

 

[porcinet82]

Salut Luco,

Avec le code suivant ca devrait faire ce que tu souhaites, seule contrainte, aucune verification n'est réalisée concernant le nom des feuilles (si elles existent deja ou non)

Sub copie_feuille()
Dim i As Byte, k As Byte, m As Byte, p As Byte

Application.Goto Sheets('feuil1').Range('A1')
For i = 5 To Range('a65536').End(xlUp).Row
    nb_feuil = Sheets.Count
    Sheets('type').Copy After:=Sheets(nb_feuil)
    Sheets(nb_feuil + 1).Name = Sheets('feuil1').Cells(i, 1).Value
    With Sheets(nb_feuil + 1)
        For k = 1 To 4
            .Cells(k, 2).Value = Sheets('feuil1').Cells(i, k + 2).Value
        Next k
        For m = 1 To 4
            .Cells(m, 6).Value = Sheets('feuil1').Cells(i, m + 6).Value
        Next m
        For p = 1 To 5
            .Cells(p, 16).Value = Sheets('feuil1').Cells(i, p + 10).Value
        Next p
        .Cells(7, 2).Value = Sheets('feuil1').Cells(i, 1).Value
        .Cells(8, 2).Value = Sheets('feuil1').Cells(i, 2).Value
    End With
Next i
End Sub

Tiens moi au courant.

@+

 

[jp14]

Bonjour luco, Porcinet82

En complément de la réponse de Porcinet82 ci dessous du code pour vérifier si le nom existe

'verification du nom de fichier

For Each Sh In Worksheets
If Sh.Name = Sheets('feuil1')Cells(i, 1).Value Then
Msg = ' le fichier existe déja'
Style = vbYes + vbCritical
' Affiche le message pour validation.
Reponse2 = MsgBox(Msg, Style,Title1)
erreur = 1
exit for
End If
Next Sh

If erreur = 1 then ' traitement de l'erreur



JP

Message édité par: jp14, à: 15/03/2006 12:54

 

[luco]

Merci Porcinet pour ta réponse mais comme je suis vraiment novice je ne sais ou placer se code j'utilise excel seulement avec des formules. Je vais prendre des cours car je vois que l'on peux faire énormément de chose avec excel.
J'ai quand même essayer et j'ai une erreur de compilation et de syntaxe.
Je joint le fichier avec ton code.

Merci d'avance
[file name=Heures2.zip size=40703]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Heures2.zip[/file]

 

[Luco]

Bonjour à tous.

Quelqu'un peut me dire ou faire des formations Excel, si les cd de formation sur ce site sont bien pour un débutant comme moi. Pour mon niveau je connais quelques formules, les graphiques, je commence seulement le tableau dynamique.

 

[jp14]

Bonjour

Ci joint le fichier avec la macro qui fonctionne parfaitement (problème au niveau du copier-coller et de l'emplacement). [file name=Heures2_20060315134905.zip size=43884]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Heures2_20060315134905.zip[/file]

Message édité par: jp14, à: 15/03/2006 13:49

 

[luco]

Merci pour cette aide

Il me reste plus qu'a prendre des cours

Et encore bravo pour le site