[XL-2010] Automatiser le remplissage de feuilles

[Nico8583]

Bonsoir

Je souhaiterais faire les choses suivantes.

N°1 :
- Je dispose d'une feuille Excel sur laquelle j'ai une liste de noms et de numéros (1 nom et 1 numéro par ligne)
- Je dispose d'une seconde feuille contenant plusieurs informations et en haut de laquelle doit apparaître le nom et le numéro
- Je dois créer une feuille par nom/numéro
- Serait-il possible via le VBA d'automatiser cette tâche (créer une feuille par nom et insérer automatiquement en haut de cette feuille le nom et le numéro) ?

N°2 :
- Je dois tous les mois créer sur une feuille une liste de tous les jours du mois de la façon suivante :
01/12/2011
02/12/2011
03/12/2011...
Un jour par ligne
- Est-il possible d'automatiser cette création ?

Je précise que je suis novice en VBA mais j'ai certaines connaissances en C / C++ / Delphi et de ce que j'ai vu, la philosophie s'en rapproche un peu mais pas la syntaxe

Merci pour votre aide ou vos pistes.

[jfontaine]

Bonjour,

Pour la partie 1

Code a mettre au niveau de la feuille qui contient les noms

Code :

1
2
3
4
5
6
7
8
Dim i As Long
 
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
 
    ThisWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = Range("A" & i).Value
    Worksheets(Worksheets.Count).Range("A1").Value = Range("A" & i).Value
Next i

et avec la partie 2

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim i As Long
Dim j As Byte
Dim Mois As Byte
Dim maDate As Date
 
Mois = 12
 
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
 
    j = 4
    maDate = CDate("01/" & Mois & "/2011")
 
    ThisWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count)
    With Worksheets(Worksheets.Count)
        .Name = Range("A" & i).Value
        .Range("A1").Value = Range("A" & i).Value
 
    'Ajoute les jours
    Do While Month(maDate) = Mois
        .Range("A" & j).Value = maDate
        maDate = DateAdd("d", 1, maDate)
        j = j + 1
    Loop
 
     End With
 
Next i

Une autre version plus optimisée (merci à qwazerty )

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim i As Long
Dim j As Byte
Dim sh As Worksheet
Dim Mois As Byte
Dim maDate As Date
 
Mois = 12
 
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
 
    j = 4
    maDate = DateSerial(2011, Mois, 1)
 
    Set sh = ThisWorkbook.Worksheets.Add(after:=Worksheets(Worksheets.Count))
    sh.Name = Range("A" & i).Value
    sh.Range("A1").Value = Range("A" & i).Value
 
    'Ajoute les jours
    Do While Month(maDate) = Mois
        sh.Range("A" & j).Value = maDate
        maDate = DateAdd("d", 1, maDate)
        j = j + 1
    Loop
 
 
Next i

[Nico8583]

Merci beaucoup pour ces réponses, je vais voir ce que je peux faire avec ca déjà