Vba excel afficher les jours du mois
Résolu/Fermé
ciocciu
Messages postés
42
Date d'inscription
jeudi 2 novembre 2006
Statut
Membre
Dernière intervention
2 janvier 2009
-
28 déc. 2008 à 11:17
ciocciu Messages postés 42 Date d'inscription jeudi 2 novembre 2006 Statut Membre Dernière intervention 2 janvier 2009 - 28 déc. 2008 à 13:35
ciocciu Messages postés 42 Date d'inscription jeudi 2 novembre 2006 Statut Membre Dernière intervention 2 janvier 2009 - 28 déc. 2008 à 13:35
A voir également:
- Vba excel afficher les jours du mois
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
4 réponses
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
28 déc. 2008 à 13:21
28 déc. 2008 à 13:21
Voilà un petit bout de code pour te montrer l'idée, j'ai fait une forme avec une textbox (la date) et un bouton
je range de A1 à la fin du mois (en plus on peut commencer n'importe quel jour, magique !)
[code]
Private Sub CommandButton1_Click()
Dim jour, jfinmois As Date
jour = TextBox1.Text
jfmois = DateAdd("m", 1, jour) - Day(jour)
For j = 0 To DateDiff("d", jour, jfmois)
Sheets("Feuil1").Range("A1").Offset(j, 0).Value = DateAdd("d", j, jour)
Next j
End Sub
[\code]
A plus
je range de A1 à la fin du mois (en plus on peut commencer n'importe quel jour, magique !)
[code]
Private Sub CommandButton1_Click()
Dim jour, jfinmois As Date
jour = TextBox1.Text
jfmois = DateAdd("m", 1, jour) - Day(jour)
For j = 0 To DateDiff("d", jour, jfmois)
Sheets("Feuil1").Range("A1").Offset(j, 0).Value = DateAdd("d", j, jour)
Next j
End Sub
[\code]
A plus
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
28 déc. 2008 à 12:29
28 déc. 2008 à 12:29
Il y a plusieurs soluces mais sans coder tu peux mettre une formule sur tes cellules du dessous
Tu mets ta colonne au format date et dans les cellules sous ta date du met un, truc du style
[code]
=SI(D2<>"";SI(MOIS(D2+1)=MOIS(D2);D2+1;"");"")
[\code]
Sinon tu code en vb, à toi de voir
Salut
Tu mets ta colonne au format date et dans les cellules sous ta date du met un, truc du style
[code]
=SI(D2<>"";SI(MOIS(D2+1)=MOIS(D2);D2+1;"");"")
[\code]
Sinon tu code en vb, à toi de voir
Salut
ciocciu
Messages postés
42
Date d'inscription
jeudi 2 novembre 2006
Statut
Membre
Dernière intervention
2 janvier 2009
7
28 déc. 2008 à 12:45
28 déc. 2008 à 12:45
merci mike mais j'aimerais générer automatiquement ma colonne de dates donc vraisemblablement plus en vba
j'ai déjà une fonction qui me donne le nombre de jour du mois concerné disons n
maintenant j'ai plus qu'à faire afficher dans chaque cellule le jour d'après et cela n fois
j'y travaille ...mais je pensais que ça existait déjà peut être plus simple....( je suis un newbee du vba..lol)
j'ai déjà une fonction qui me donne le nombre de jour du mois concerné disons n
maintenant j'ai plus qu'à faire afficher dans chaque cellule le jour d'après et cela n fois
j'y travaille ...mais je pensais que ça existait déjà peut être plus simple....( je suis un newbee du vba..lol)
ciocciu
Messages postés
42
Date d'inscription
jeudi 2 novembre 2006
Statut
Membre
Dernière intervention
2 janvier 2009
7
28 déc. 2008 à 13:35
28 déc. 2008 à 13:35
ok merci bcp
