• Initiateur de la discussion Initiateur de la discussion luco
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

luco

Guest
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]
 

Pièces jointes

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)

Code:
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.

@+
 
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
 
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]
 

Pièces jointes

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.
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
Réponses
14
Affichages
1 K
Claude38
C
G
  • Question Question
Réponses
3
Affichages
1 K
grin d'or
G
M
Réponses
1
Affichages
2 K
Mathou
M
V
Réponses
5
Affichages
3 K
M
Réponses
0
Affichages
803
mc eric
M
B
  • Question Question
Réponses
6
Affichages
2 K
B
Réponses
2
Affichages
2 K
Réponses
7
Affichages
1 K
N
Réponses
17
Affichages
2 K
Réponses
8
Affichages
1 K
C
Réponses
3
Affichages
15 K
Christophe
C
Réponses
1
Affichages
2 K
A
Réponses
7
Affichages
1 K
P
  • Question Question
Réponses
2
Affichages
1 K
Palemeilleur
P
Réponses
21
Affichages
3 K
Retour