Bonjour
J'essaie en vain depuis une paire d'heures avec=20
l'enregistreur macros =E0 obtenir le code qui me=20
permettrait de r=E9aliser le travail suivant.
D=E9marrage du travail :
En =AB A1 =BB =3D 1er jour du mois
En =AB B1 =BB =3D fin.mois (a1 ;0)
En =AB C1 =BB =3D somme (b1-a1), ce qui m'indique le nombre de=20
jours du mois en cours
Mon probl=E8me :
Suivant le nombre de jours mentionn=E9 en =AB C1 =BB, je=20
souhaiterais pouvoir ins=E9rer =AB x =BB colonnes mentionnant=20
la date du jour, de fa=E7on =E0 obtenir un mois calendrier=20
correct et une pr=E9sentation finale =AB A1 =BB=3D1er jour du=20
mois, B1 : =AB X =BB=3Dnombre.jours , =AB X+1 =BB=3D fin.mois (a1 ;0).
Si quelqu'un pouvait me guider dans la proc=E9dure, j'en=20
serais tr=E8s heureux.
Merci d'avance
Christian
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre de jours du mois en cours
Pour C1 je te conseille de mettre =JOUR(B1) car si tu fait une soustraction comme tu le fais le 31 Janvier - le 01 janvier te donne 30 alors que le mois de janvier comporte 31 Jours.
Pour l'insertion essaie ça si tu modifies C1:
Sub Macro5() Dim NbCol, i NbCol = Range("C1") For i = 2 To NbCol - 1 Columns(i).Insert Shift:=xlToRight Range("A1").Offset(0, i - 1) = Range("A1").Offset(0, i - 2) + 1 Next i End Sub
-- @+ Thierry 02/12/2003 21:48:18
Bonjour @ tous et à Christian :
Démarrage du travail :
En « A1 » = 1er jour du mois
En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre de
jours du mois en cours
Pour C1 je te conseille de mettre
=JOUR(B1) car si tu fait une soustraction comme tu le fais le 31 Janvier -
le 01 janvier te donne 30 alors que le mois de janvier comporte 31 Jours.
Pour l'insertion essaie ça si tu modifies C1:
Sub Macro5()
Dim NbCol, i
NbCol = Range("C1")
For i = 2 To NbCol - 1
Columns(i).Insert Shift:=xlToRight
Range("A1").Offset(0, i - 1) = Range("A1").Offset(0, i - 2) + 1
Next i
End Sub
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre de jours du mois en cours
Pour C1 je te conseille de mettre =JOUR(B1) car si tu fait une soustraction comme tu le fais le 31 Janvier - le 01 janvier te donne 30 alors que le mois de janvier comporte 31 Jours.
Pour l'insertion essaie ça si tu modifies C1:
Sub Macro5() Dim NbCol, i NbCol = Range("C1") For i = 2 To NbCol - 1 Columns(i).Insert Shift:=xlToRight Range("A1").Offset(0, i - 1) = Range("A1").Offset(0, i - 2) + 1 Next i End Sub
-- @+ Thierry 02/12/2003 21:48:18
FxM
Bonsoir,
Si le but est d'obtenir un calendrier ...
Sub Macro1() Range("A1:AE1").ClearContents Range("A1").FormulaR1C1 = "ÚTE(YEAR(TODAY()),MONTH(TODAY()),1)" Range("B1").FormulaR1C1 = "ÚTE(YEAR(RC[-1]),MONTH(RC[-1])+1,0)" nb = Range("B1").Value - Range("A1").Value + 1 Range("B1").FormulaR1C1 = "=RC[-1]+1" Range("B1").Copy Range("B1", Range("B1").Offset(0, nb - 2)) Application.CutCopyMode = False Range("A1").Select End Sub
@+ FxM
Christian wrote:
Bonjour J'essaie en vain depuis une paire d'heures avec l'enregistreur macros à obtenir le code qui me permettrait de réaliser le travail suivant.
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0) En « C1 » = somme (b1-a1), ce qui m'indique le nombre de jours du mois en cours
Mon problème : Suivant le nombre de jours mentionné en « C1 », je souhaiterais pouvoir insérer « x » colonnes mentionnant la date du jour, de façon à obtenir un mois calendrier correct et une présentation finale « A1 » r jour du mois, B1 : « X »=nombre.jours , « X+1 »= fin.mois (a1 ;0).
Si quelqu'un pouvait me guider dans la procédure, j'en serais très heureux. Merci d'avance Christian
Bonsoir,
Si le but est d'obtenir un calendrier ...
Sub Macro1()
Range("A1:AE1").ClearContents
Range("A1").FormulaR1C1 = "ÚTE(YEAR(TODAY()),MONTH(TODAY()),1)"
Range("B1").FormulaR1C1 = "ÚTE(YEAR(RC[-1]),MONTH(RC[-1])+1,0)"
nb = Range("B1").Value - Range("A1").Value + 1
Range("B1").FormulaR1C1 = "=RC[-1]+1"
Range("B1").Copy Range("B1", Range("B1").Offset(0, nb - 2))
Application.CutCopyMode = False
Range("A1").Select
End Sub
@+
FxM
Christian wrote:
Bonjour
J'essaie en vain depuis une paire d'heures avec
l'enregistreur macros à obtenir le code qui me
permettrait de réaliser le travail suivant.
Démarrage du travail :
En « A1 » = 1er jour du mois
En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre de
jours du mois en cours
Mon problème :
Suivant le nombre de jours mentionné en « C1 », je
souhaiterais pouvoir insérer « x » colonnes mentionnant
la date du jour, de façon à obtenir un mois calendrier
correct et une présentation finale « A1 » r jour du
mois, B1 : « X »=nombre.jours , « X+1 »= fin.mois (a1 ;0).
Si quelqu'un pouvait me guider dans la procédure, j'en
serais très heureux.
Merci d'avance
Christian
Sub Macro1() Range("A1:AE1").ClearContents Range("A1").FormulaR1C1 = "ÚTE(YEAR(TODAY()),MONTH(TODAY()),1)" Range("B1").FormulaR1C1 = "ÚTE(YEAR(RC[-1]),MONTH(RC[-1])+1,0)" nb = Range("B1").Value - Range("A1").Value + 1 Range("B1").FormulaR1C1 = "=RC[-1]+1" Range("B1").Copy Range("B1", Range("B1").Offset(0, nb - 2)) Application.CutCopyMode = False Range("A1").Select End Sub
@+ FxM
Christian wrote:
Bonjour J'essaie en vain depuis une paire d'heures avec l'enregistreur macros à obtenir le code qui me permettrait de réaliser le travail suivant.
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0) En « C1 » = somme (b1-a1), ce qui m'indique le nombre de jours du mois en cours
Mon problème : Suivant le nombre de jours mentionné en « C1 », je souhaiterais pouvoir insérer « x » colonnes mentionnant la date du jour, de façon à obtenir un mois calendrier correct et une présentation finale « A1 » r jour du mois, B1 : « X »=nombre.jours , « X+1 »= fin.mois (a1 ;0).
Si quelqu'un pouvait me guider dans la procédure, j'en serais très heureux. Merci d'avance Christian
Christian
Bonjour FxM Merci de m'avoir lu et répondu. Non, le but n'est pas d'obtenir un calendrier. J'ai pris comme exemple une date et fin.mois pour établir une insertion de colonnes avec condition; avec le code qui en résulte, je peux l'utiliser à d'autres tâches. Christian
-----Message d'origine----- Bonsoir,
Si le but est d'obtenir un calendrier ...
Sub Macro1() Range("A1:AE1").ClearContents Range("A1").FormulaR1C1 = "ÚTE(YEAR(TODAY()),MONTH (TODAY()),1)"
nb = Range("B1").Value - Range("A1").Value + 1 Range("B1").FormulaR1C1 = "=RC[-1]+1" Range("B1").Copy Range("B1", Range("B1").Offset(0, nb - 2))
Application.CutCopyMode = False Range("A1").Select End Sub
@+ FxM
Christian wrote:
Bonjour J'essaie en vain depuis une paire d'heures avec l'enregistreur macros à obtenir le code qui me permettrait de réaliser le travail suivant.
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0) En « C1 » = somme (b1-a1), ce qui m'indique le nombre de
jours du mois en cours
Mon problème : Suivant le nombre de jours mentionné en « C1 », je souhaiterais pouvoir insérer « x » colonnes mentionnant
la date du jour, de façon à obtenir un mois calendrier correct et une présentation finale « A1 » r jour du mois, B1 : « X »=nombre.jours , « X+1 »= fin.mois (a1 ;0).
Si quelqu'un pouvait me guider dans la procédure, j'en serais très heureux. Merci d'avance Christian
.
Bonjour FxM
Merci de m'avoir lu et répondu.
Non, le but n'est pas d'obtenir un calendrier. J'ai pris
comme exemple une date et fin.mois pour établir une
insertion de colonnes avec condition; avec le code qui en
résulte, je peux l'utiliser à d'autres tâches.
Christian
-----Message d'origine-----
Bonsoir,
Si le but est d'obtenir un calendrier ...
Sub Macro1()
Range("A1:AE1").ClearContents
Range("A1").FormulaR1C1 = "=DATE(YEAR(TODAY()),MONTH
(TODAY()),1)"
nb = Range("B1").Value - Range("A1").Value + 1
Range("B1").FormulaR1C1 = "=RC[-1]+1"
Range("B1").Copy Range("B1", Range("B1").Offset(0, nb -
2))
Application.CutCopyMode = False
Range("A1").Select
End Sub
@+
FxM
Christian wrote:
Bonjour
J'essaie en vain depuis une paire d'heures avec
l'enregistreur macros à obtenir le code qui me
permettrait de réaliser le travail suivant.
Démarrage du travail :
En « A1 » = 1er jour du mois
En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre
de
jours du mois en cours
Mon problème :
Suivant le nombre de jours mentionné en « C1 », je
souhaiterais pouvoir insérer « x » colonnes
mentionnant
la date du jour, de façon à obtenir un mois calendrier
correct et une présentation finale « A1 »=1er jour du
mois, B1 : « X »=nombre.jours , « X+1 »= fin.mois
(a1 ;0).
Si quelqu'un pouvait me guider dans la procédure, j'en
serais très heureux.
Merci d'avance
Christian
Bonjour FxM Merci de m'avoir lu et répondu. Non, le but n'est pas d'obtenir un calendrier. J'ai pris comme exemple une date et fin.mois pour établir une insertion de colonnes avec condition; avec le code qui en résulte, je peux l'utiliser à d'autres tâches. Christian
-----Message d'origine----- Bonsoir,
Si le but est d'obtenir un calendrier ...
Sub Macro1() Range("A1:AE1").ClearContents Range("A1").FormulaR1C1 = "ÚTE(YEAR(TODAY()),MONTH (TODAY()),1)"
nb = Range("B1").Value - Range("A1").Value + 1 Range("B1").FormulaR1C1 = "=RC[-1]+1" Range("B1").Copy Range("B1", Range("B1").Offset(0, nb - 2))
Application.CutCopyMode = False Range("A1").Select End Sub
@+ FxM
Christian wrote:
Bonjour J'essaie en vain depuis une paire d'heures avec l'enregistreur macros à obtenir le code qui me permettrait de réaliser le travail suivant.
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0) En « C1 » = somme (b1-a1), ce qui m'indique le nombre de
jours du mois en cours
Mon problème : Suivant le nombre de jours mentionné en « C1 », je souhaiterais pouvoir insérer « x » colonnes mentionnant
la date du jour, de façon à obtenir un mois calendrier correct et une présentation finale « A1 » r jour du mois, B1 : « X »=nombre.jours , « X+1 »= fin.mois (a1 ;0).
Si quelqu'un pouvait me guider dans la procédure, j'en serais très heureux. Merci d'avance Christian
.
Christian
Bonjour Thierry Merci de m'avoir lu et répondu. Je vais mettre en pratique ta procédure.Elle fonctionne à merveille. De +, j'ai appris une nouvelle fonction (jour). Encore un grand merci. Christian
-----Message d'origine----- Bonjour @ tous et à Christian :
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre de
jours du mois en cours
Pour C1 je te conseille de mettre =JOUR(B1) car si tu fait une soustraction comme tu le fais le 31 Janvier -
le 01 janvier te donne 30 alors que le mois de janvier comporte 31 Jours.
Pour l'insertion essaie ça si tu modifies C1:
Sub Macro5() Dim NbCol, i NbCol = Range("C1") For i = 2 To NbCol - 1 Columns(i).Insert Shift:=xlToRight Range("A1").Offset(0, i - 1) = Range("A1").Offset(0, i - 2) + 1
Next i End Sub
-- @+ Thierry 02/12/2003 21:48:18 .
Bonjour Thierry
Merci de m'avoir lu et répondu.
Je vais mettre en pratique ta procédure.Elle fonctionne à
merveille. De +, j'ai appris une nouvelle fonction (jour).
Encore un grand merci.
Christian
-----Message d'origine-----
Bonjour @ tous et à Christian :
Démarrage du travail :
En « A1 » = 1er jour du mois
En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre
de
jours du mois en cours
Pour C1 je te conseille de mettre
=JOUR(B1) car si tu fait une soustraction comme tu le
fais le 31 Janvier -
le 01 janvier te donne 30 alors que le mois de janvier
comporte 31 Jours.
Pour l'insertion essaie ça si tu modifies C1:
Sub Macro5()
Dim NbCol, i
NbCol = Range("C1")
For i = 2 To NbCol - 1
Columns(i).Insert Shift:=xlToRight
Range("A1").Offset(0, i - 1) = Range("A1").Offset(0,
i - 2) + 1
Bonjour Thierry Merci de m'avoir lu et répondu. Je vais mettre en pratique ta procédure.Elle fonctionne à merveille. De +, j'ai appris une nouvelle fonction (jour). Encore un grand merci. Christian
-----Message d'origine----- Bonjour @ tous et à Christian :
Démarrage du travail : En « A1 » = 1er jour du mois En « B1 » = fin.mois (a1 ;0)
En « C1 » = somme (b1-a1), ce qui m'indique le nombre de
jours du mois en cours
Pour C1 je te conseille de mettre =JOUR(B1) car si tu fait une soustraction comme tu le fais le 31 Janvier -
le 01 janvier te donne 30 alors que le mois de janvier comporte 31 Jours.
Pour l'insertion essaie ça si tu modifies C1:
Sub Macro5() Dim NbCol, i NbCol = Range("C1") For i = 2 To NbCol - 1 Columns(i).Insert Shift:=xlToRight Range("A1").Offset(0, i - 1) = Range("A1").Offset(0, i - 2) + 1
Next i End Sub
-- @+ Thierry 02/12/2003 21:48:18 .
Papyty
Bonjour @ tous et à Christian :
Merci de m'avoir lu et répondu. Je vais mettre en pratique ta procédure.Elle fonctionne à merveille. De +, j'ai appris une nouvelle fonction (jour). Encore un grand merci.
C'est avec plaisir ;-)) -- @+ Thierry 03/12/2003 09:19:36
Bonjour @ tous et à Christian :
Merci de m'avoir lu et répondu.
Je vais mettre en pratique ta procédure.Elle fonctionne à
merveille. De +, j'ai appris une nouvelle fonction (jour).
Encore un grand merci.
C'est avec plaisir ;-))
--
@+
Thierry
03/12/2003 09:19:36
Merci de m'avoir lu et répondu. Je vais mettre en pratique ta procédure.Elle fonctionne à merveille. De +, j'ai appris une nouvelle fonction (jour). Encore un grand merci.
C'est avec plaisir ;-)) -- @+ Thierry 03/12/2003 09:19:36
