Planning suivi des activités en VBA
Résolu/Fermé
Nacim59
Messages postés
22
Date d'inscription
mercredi 26 juin 2013
Statut
Membre
Dernière intervention
13 août 2013
-
4 juil. 2013 à 20:15
Nacim59 Messages postés 22 Date d'inscription mercredi 26 juin 2013 Statut Membre Dernière intervention 13 août 2013 - 6 juil. 2013 à 15:00
Nacim59 Messages postés 22 Date d'inscription mercredi 26 juin 2013 Statut Membre Dernière intervention 13 août 2013 - 6 juil. 2013 à 15:00
A voir également:
- Planning suivi des activités en VBA
- Suivi des modifications word - Guide
- Planning equipe - Télécharger - Outils professionnels
- Planning en 12h exemple - Télécharger - Outils professionnels
- Suivi colis - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
5 réponses
Bonjour,
Dans un premier temps il faut créer une table de référence en "Feuille2" afin de déterminer les date de début de chaque semaine. (celà servira pour comparer les dates saisie plus haut avec les Semaines)
Voir le lien ci dessous :
http://cjoint.com/?CGfn3LjNVuk
Ensuite pour alimenter ton combobox au démarrage du fichier tu copies la macro ci-dessous dans le module ThisWorbook :
Sub Workbook_Open()
Sheets(1).ComboBox1.Clear
Nb_Lgn = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row
Debut_Tableau = Sheets(1).Cells(1, 1).End(xlDown).Row + 1
For i = Debut_Tableau To Nb_Lgn
Sheets(1).ComboBox1.AddItem Sheets(1).Cells(i, 4).Value
Next i
End Sub
Pour le reste ça viendra plus tard...
Dans un premier temps il faut créer une table de référence en "Feuille2" afin de déterminer les date de début de chaque semaine. (celà servira pour comparer les dates saisie plus haut avec les Semaines)
Voir le lien ci dessous :
http://cjoint.com/?CGfn3LjNVuk
Ensuite pour alimenter ton combobox au démarrage du fichier tu copies la macro ci-dessous dans le module ThisWorbook :
Sub Workbook_Open()
Sheets(1).ComboBox1.Clear
Nb_Lgn = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row
Debut_Tableau = Sheets(1).Cells(1, 1).End(xlDown).Row + 1
For i = Debut_Tableau To Nb_Lgn
Sheets(1).ComboBox1.AddItem Sheets(1).Cells(i, 4).Value
Next i
End Sub
Pour le reste ça viendra plus tard...
Nacim59
Messages postés
22
Date d'inscription
mercredi 26 juin 2013
Statut
Membre
Dernière intervention
13 août 2013
Modifié par Nacim59 le 5/07/2013 à 16:35
Modifié par Nacim59 le 5/07/2013 à 16:35
Bonjour,
Merci pour ta réponse, je fais ça et je te tiens au courant. Dans ton exemple il y a l'année en cours seulement , je fais comment pour l'année 2011, 2012 ?
Cordialement
Merci pour ta réponse, je fais ça et je te tiens au courant. Dans ton exemple il y a l'année en cours seulement , je fais comment pour l'année 2011, 2012 ?
Cordialement
Nacim59
Messages postés
22
Date d'inscription
mercredi 26 juin 2013
Statut
Membre
Dernière intervention
13 août 2013
6 juil. 2013 à 12:28
6 juil. 2013 à 12:28
Re bonjour,
Voila j'ai commencé à faire la première étape, pouvez vous m'indiquez ce que je dois faire maintenant
Cordialement
https://www.cjoint.com/c/CGgmBQjutVG
Voila j'ai commencé à faire la première étape, pouvez vous m'indiquez ce que je dois faire maintenant
Cordialement
https://www.cjoint.com/c/CGgmBQjutVG
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 249
6 juil. 2013 à 12:40
6 juil. 2013 à 12:40
Bonjour,
il ne faudrait peut-être pas courir plusieurs lièvres à la fois et faire bosser les gens pour rien en postant sur plusieurs forums simultanément.
Fais ton choix et annonce-le dans ceux que tu abandonnes.
Merci
eric
il ne faudrait peut-être pas courir plusieurs lièvres à la fois et faire bosser les gens pour rien en postant sur plusieurs forums simultanément.
Fais ton choix et annonce-le dans ceux que tu abandonnes.
Merci
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Nacim59
Messages postés
22
Date d'inscription
mercredi 26 juin 2013
Statut
Membre
Dernière intervention
13 août 2013
Modifié par Nacim59 le 6/07/2013 à 15:00
Modifié par Nacim59 le 6/07/2013 à 15:00
Bonjour à tous,
Merci pour votre aide . Ce forum n'a plus lieu d'être
Merci pour votre aide . Ce forum n'a plus lieu d'être