VbA Xl : Creation onglet par date [Résolu]

Bonjour,

Voici ta demande :

http://cjoint.com/?0GDkmDZhjqg

pour que ca fonctionne correctement, dans ta feuille données, mets le premier jour du mois voulu.
Ta feuille données fonctionne avec des formules.

Pour créer les onglets, clique sur le bouton.

Bonjour Mélanie1324

Génial pour le début

juste un souci lorsque je tente de mettre le 1er jour du mois 01/08/2011 par exemple je me retrouve avec des " Créer " en colonne C qui ne correspondant pas a ce que je souhaite. en effet au lieu de me créer les jour du Lundi au Vendredi en onglet il me créé du Dimanche au Jeudi

Petit detail technique supplémentaire si c'est possible, pense tu qu'il est possible de mettre les onglets dans le bon ordre , chronologique du 1 au 30/31 et non pas l'inverse ?


Je te remercie en tout cas pour ta rapidité, c'est sympa de te pencher sur mon probleme

Bonjour

bon j'ai palié au probleme des jours qui ne correspondaient pas en passant par une formule SI

=SI(A4=2;"Créer";SI(A4=3;"Créer";SI(A4=4;"Créer";SI(A4=5;"Créer";SI(A4=6;"Créer";""))))) en remplacement de la formule de la colonne C


Il ne me reste plus que le classement des onglet dans le code qu'il me faudrait en ordre chronologique de 1 a 30/31 au lieu de l'inverse


si au vu du code du fichier qui est ci dessous, quelqu'un peut m'aider pour reclasser ces onglets

http://cjoint.com/?AGEoyGRT1qD

Merci d'avance

Rappel le fichier fnctionnera sur Excel 2002 donc certains codes ne seront pas valable ( encienne version de Vba)

Je testerai deja le code présent lundi au bureau sur ma version " dinosore" poru voir si cela marche

Et voilou j'ai trouvé en creusant dans le forum


J'ai repris le code de Mélanie

en l'appelant creation pour la partie creation
et ajouter une partie tri, que j'ai trouvé sur le forum

Et voilou si ca peut resservir a quelqu'un pour la suite

'Lancement par bouton des deux actions Creation et Tri des onglet par ordre croissant
Private Sub CommandButton1_Click()

Call Creation
Call TrierOnglets

End Sub

-------------------------------------------
' Creation des onglets en fonction de la date
Sub Creation()
i = 4
Do While Sheets("données").Cells(i, 1) <> ""
If Sheets("données").Cells(i, 3) <> "" Then
Sheets("Feuille Type").Copy After:=Sheets(2)
ActiveSheet.Name = Left(Sheets("données").Cells(i, 2), 2)
End If
i = i + 1
Loop

End Sub

----------------------------------------------------
'Tri des onglet par ordre croissant au lieu de l ordre decroissant fait pas le codre CREATIION
Sub TrierOnglets()

Dim Boucle As Integer, Compteur As Integer

For Boucle = 1 To Sheets.Count
If Sheets(Boucle).Visible = True Then
For Compteur = 1 To (Boucle - 1)
If Sheets(Compteur).Visible = True Then
If (UCase(Sheets(Boucle).Name) < UCase(Sheets(Compteur).Name)) Then
Sheets(Boucle).Move before:=Sheets(Compteur)
Exit For
End If
End If
Next Compteur
End If
Next Boucle
End Sub


Merci beaucoup a Mélanie et a ceux qui aurait éventuellement tenté de jeter un oeil,
bon W E et ou vacances pour ceux qui y sont