Creer une feuille et des tableaux

Bonjour APT,

Ce forum est un lieu d'échange ayant pour thème "Excel & VBA"
Ta requête ressemble davantage à l'élaboration d'une application...

Je me contenterai de répondre à ta première question :

'----------------------------------
Sub Test()

Dim Sh As Worksheet
Dim M As String

M = Format(Date, "MMMM")

On Error Resume Next
Set Sh = Worksheets(M)
If Err <> 0 Then
Err = 0
Worksheets.Add.Name = M
ActiveSheet.Move ThisWorkbook.Worksheets(Sheets.Count)
End If

End Sub
'----------------------------------


Salutations!




"apt" <apitops@gmail.com> a écrit dans le message de news: 1142901576.971541.221990@t31g2000cwb.googlegroups.com...


Salut,

Comment faire pour creer :

1 - Une nouvelle feuille selon le mois courant si elle n'existe pas ?

2 - dans cette nouvelle feuille, on doit creer des entetes de tableaux
correspondant au semaine du mois courant ainsi que les entetes des
colonnes :

par exxemple pour le mois de Mars :

* Semaine du 01/03/06 au 08/03/06
Date - Nombre
* Semaine du 08/01/06 au 15/03/06
Date - Nombre

...etc

3 - trace dynamiquement un graph de chaque tableau

et tous ça en utilisant un bouton pour charger un UseForm avec un
inputbox pour les chiffres.

Quand on clique OK du la UseForm la date et les chiffres sont
automatiquement ajoutés dans les tableaux de la feuille du mois
courante.

Merci de votra aide.

Merci michdenis,

oui c'est une petite application que je veux developpe.

mais j'ai besoin d'un petit coup de main pour chaque etape (un bout de
code)

je debute avec le theme Excel/VBA.

j'aimerais bien comprendre cette ligne de commande :

On Error Resume Next

Bonjour Apt,

En cas d'erreur, la procédure continue de s'exécuter
et passe à la ligne suivante du code ....

Dans le code suggéré :

Set Sh = Worksheets(M)
If Err <> 0 Then
Err = 0

Si une feuille ayant le nom de l'onglet du mois actuel n'existe pas
Cette ligne de code va générer une erreur et Err sera différente de 0
Set Sh = Worksheets(M)

c'est ce pourquoi je vérifie si l'objet "Err" est différent de 0
si c'est vrai, je dois créer la feuille si il n'y a pas d'erreur, c'est
que la feuille est déjà présente ... et dans ce cas nul besoin de la créer.


Salutations!



"apt" <apitops@gmail.com> a écrit dans le message de news: 1142906945.155657.209080@u72g2000cwu.googlegroups.com...
j'aimerais bien comprendre cette ligne de commande :

On Error Resume Next