Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec
MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de
décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et
je veux que a partir de cette cellule que j'active je puisse inscrire
LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit
29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai
deja ecrit (voir plus bas) Merci
"Frédéric Sigonneau" a écrit :
> Bonjour,
>
> Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
>
> FS
> ---
> Frédéric Sigonneau [MVP Excel - né un sans-culottide]
> Gestions de temps, VBA pour Excel :
> http://frederic.sigonneau.free.fr
> Si votre question sur Excel est urgente, évitez ma bal !
>
> gainsbarre57 a écrit :
> > Bonjour a tous!
> >
> > Voila mon petit problème:
> >
> > dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une
> > ecriture dans une cellule.
> > Voila un aperçu de la macro
> > Dim J(1 To 7) As String
> > J1 = "Lun"
> > J2 = "Mar"
> > J3 = "Mer"
> > J4 = "Jeu"
> > J5 = "Ven"
> > J6 = "Sam"
> > J7 = "Dim"
> >
> > 'Declaration du Lundi
> >
> > If Range("a1") = 2 Then
> > GoTo Lundi
> > End If
> >
> > 'Declaration du Mardi
> >
> > If Range("a1") = 3 Then
> > GoTo Mardi
> > Else: ActiveCell.Offset.Activate
> > GoTo Jour1
> > End If
> > Lundi:
> > Range("d1") = J1
> > Range("e1") = J2
> > Range("f1") = J3
> > Range("g1") = J4
> > Range("h1") = J5
> > Range("i1") = J6
> > Range("j1") = J7
> > End
> > Mardi:
> > Range("d1") = J2
> > Range("e1") = J3
> > Range("f1") = J4
> > Range("g1") = J5
> > Range("h1") = J6
> > Range("i1") = J7
> > Range("i1").Select
> > ActiveCell.Activate
> > ActiveCell.Offset(0, 1).Select
> > End
> > Jour1:
> > If ActiveCell = Activate Then
> > ActiveCell.Value() = J1
> > End If
> > End
> > Le probleme est que je decale bien la cellule suivante mais je n'arrive pas
> > a inscrire de valeur dans la cellule en question dites moi svp où est le
> > problème !!!
>
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonsoir,
Suite dans ton premier fil du 28/9 à 8:33.
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et je veux que a partir de cette cellule que j'active je puisse inscrire LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit 29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai deja ecrit (voir plus bas) Merci
Bonjour,
Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour a tous!
Voila mon petit problème:
dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une ecriture dans une cellule. Voila un aperçu de la macro Dim J(1 To 7) As String J1 = "Lun" J2 = "Mar" J3 = "Mer" J4 = "Jeu" J5 = "Ven" J6 = "Sam" J7 = "Dim"
'Declaration du Lundi
If Range("a1") = 2 Then GoTo Lundi End If
'Declaration du Mardi
If Range("a1") = 3 Then GoTo Mardi Else: ActiveCell.Offset.Activate GoTo Jour1 End If Lundi: Range("d1") = J1 Range("e1") = J2 Range("f1") = J3 Range("g1") = J4 Range("h1") = J5 Range("i1") = J6 Range("j1") = J7 End Mardi: Range("d1") = J2 Range("e1") = J3 Range("f1") = J4 Range("g1") = J5 Range("h1") = J6 Range("i1") = J7 Range("i1").Select ActiveCell.Activate ActiveCell.Offset(0, 1).Select End Jour1: If ActiveCell = Activate Then ActiveCell.Value() = J1 End If End Le probleme est que je decale bien la cellule suivante mais je n'arrive pas a inscrire de valeur dans la cellule en question dites moi svp où est le problème !!!
Bonsoir,
Suite dans ton premier fil du 28/9 à 8:33.
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec
MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de
décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et
je veux que a partir de cette cellule que j'active je puisse inscrire
LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit
29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai
deja ecrit (voir plus bas) Merci
Bonjour,
Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour a tous!
Voila mon petit problème:
dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une
ecriture dans une cellule.
Voila un aperçu de la macro
Dim J(1 To 7) As String
J1 = "Lun"
J2 = "Mar"
J3 = "Mer"
J4 = "Jeu"
J5 = "Ven"
J6 = "Sam"
J7 = "Dim"
'Declaration du Lundi
If Range("a1") = 2 Then
GoTo Lundi
End If
'Declaration du Mardi
If Range("a1") = 3 Then
GoTo Mardi
Else: ActiveCell.Offset.Activate
GoTo Jour1
End If
Lundi:
Range("d1") = J1
Range("e1") = J2
Range("f1") = J3
Range("g1") = J4
Range("h1") = J5
Range("i1") = J6
Range("j1") = J7
End
Mardi:
Range("d1") = J2
Range("e1") = J3
Range("f1") = J4
Range("g1") = J5
Range("h1") = J6
Range("i1") = J7
Range("i1").Select
ActiveCell.Activate
ActiveCell.Offset(0, 1).Select
End
Jour1:
If ActiveCell = Activate Then
ActiveCell.Value() = J1
End If
End
Le probleme est que je decale bien la cellule suivante mais je n'arrive pas
a inscrire de valeur dans la cellule en question dites moi svp où est le
problème !!!
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et je veux que a partir de cette cellule que j'active je puisse inscrire LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit 29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai deja ecrit (voir plus bas) Merci
Bonjour,
Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour a tous!
Voila mon petit problème:
dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une ecriture dans une cellule. Voila un aperçu de la macro Dim J(1 To 7) As String J1 = "Lun" J2 = "Mar" J3 = "Mer" J4 = "Jeu" J5 = "Ven" J6 = "Sam" J7 = "Dim"
'Declaration du Lundi
If Range("a1") = 2 Then GoTo Lundi End If
'Declaration du Mardi
If Range("a1") = 3 Then GoTo Mardi Else: ActiveCell.Offset.Activate GoTo Jour1 End If Lundi: Range("d1") = J1 Range("e1") = J2 Range("f1") = J3 Range("g1") = J4 Range("h1") = J5 Range("i1") = J6 Range("j1") = J7 End Mardi: Range("d1") = J2 Range("e1") = J3 Range("f1") = J4 Range("g1") = J5 Range("h1") = J6 Range("i1") = J7 Range("i1").Select ActiveCell.Activate ActiveCell.Offset(0, 1).Select End Jour1: If ActiveCell = Activate Then ActiveCell.Value() = J1 End If End Le probleme est que je decale bien la cellule suivante mais je n'arrive pas a inscrire de valeur dans la cellule en question dites moi svp où est le problème !!!
gainsbarre57
Bonjour Frédéric
Merci beaucoup pour ton aide très utile!!!!
Slts
Christophe
Bonsoir,
Suite dans ton premier fil du 28/9 à 8:33.
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et je veux que a partir de cette cellule que j'active je puisse inscrire LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit 29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai deja ecrit (voir plus bas) Merci
Bonjour,
Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour a tous!
Voila mon petit problème:
dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une ecriture dans une cellule. Voila un aperçu de la macro Dim J(1 To 7) As String J1 = "Lun" J2 = "Mar" J3 = "Mer" J4 = "Jeu" J5 = "Ven" J6 = "Sam" J7 = "Dim"
'Declaration du Lundi
If Range("a1") = 2 Then GoTo Lundi End If
'Declaration du Mardi
If Range("a1") = 3 Then GoTo Mardi Else: ActiveCell.Offset.Activate GoTo Jour1 End If Lundi: Range("d1") = J1 Range("e1") = J2 Range("f1") = J3 Range("g1") = J4 Range("h1") = J5 Range("i1") = J6 Range("j1") = J7 End Mardi: Range("d1") = J2 Range("e1") = J3 Range("f1") = J4 Range("g1") = J5 Range("h1") = J6 Range("i1") = J7 Range("i1").Select ActiveCell.Activate ActiveCell.Offset(0, 1).Select End Jour1: If ActiveCell = Activate Then ActiveCell.Value() = J1 End If End Le probleme est que je decale bien la cellule suivante mais je n'arrive pas a inscrire de valeur dans la cellule en question dites moi svp où est le problème !!!
Bonjour Frédéric
Merci beaucoup pour ton aide très utile!!!!
Slts
Christophe
Bonsoir,
Suite dans ton premier fil du 28/9 à 8:33.
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec
MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de
décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et
je veux que a partir de cette cellule que j'active je puisse inscrire
LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit
29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai
deja ecrit (voir plus bas) Merci
Bonjour,
Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour a tous!
Voila mon petit problème:
dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une
ecriture dans une cellule.
Voila un aperçu de la macro
Dim J(1 To 7) As String
J1 = "Lun"
J2 = "Mar"
J3 = "Mer"
J4 = "Jeu"
J5 = "Ven"
J6 = "Sam"
J7 = "Dim"
'Declaration du Lundi
If Range("a1") = 2 Then
GoTo Lundi
End If
'Declaration du Mardi
If Range("a1") = 3 Then
GoTo Mardi
Else: ActiveCell.Offset.Activate
GoTo Jour1
End If
Lundi:
Range("d1") = J1
Range("e1") = J2
Range("f1") = J3
Range("g1") = J4
Range("h1") = J5
Range("i1") = J6
Range("j1") = J7
End
Mardi:
Range("d1") = J2
Range("e1") = J3
Range("f1") = J4
Range("g1") = J5
Range("h1") = J6
Range("i1") = J7
Range("i1").Select
ActiveCell.Activate
ActiveCell.Offset(0, 1).Select
End
Jour1:
If ActiveCell = Activate Then
ActiveCell.Value() = J1
End If
End
Le probleme est que je decale bien la cellule suivante mais je n'arrive pas
a inscrire de valeur dans la cellule en question dites moi svp où est le
problème !!!
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Ce que je souhaite ecrire apres decalage le mieux est que je donne un exemple
nous sommes mercredi et si je lance la macro le tableau va se remplir avec MER JEU VEN SAM DIM , pour cela pas de probleme mais apres je lui dis de décaler donc d'une celllule sur la droite "activecell.offset(0,1).select" et je veux que a partir de cette cellule que j'active je puisse inscrire LUN(SOIT J1) MAR MER JEU VEN SAM DIM etc afin de remplir le tableau soit 29,30 ou31 cellule (cela depend des mois)
est ce que tu peux me donnerla marche a suivre par rapport a ce que j'ai deja ecrit (voir plus bas) Merci
Bonjour,
Et que souhaites-tu écrire dans la cellule sélectionnée après le décalage ?
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour a tous!
Voila mon petit problème:
dans une macro en vba, je genere un pseudo calendrier j'ai un souci avec une ecriture dans une cellule. Voila un aperçu de la macro Dim J(1 To 7) As String J1 = "Lun" J2 = "Mar" J3 = "Mer" J4 = "Jeu" J5 = "Ven" J6 = "Sam" J7 = "Dim"
'Declaration du Lundi
If Range("a1") = 2 Then GoTo Lundi End If
'Declaration du Mardi
If Range("a1") = 3 Then GoTo Mardi Else: ActiveCell.Offset.Activate GoTo Jour1 End If Lundi: Range("d1") = J1 Range("e1") = J2 Range("f1") = J3 Range("g1") = J4 Range("h1") = J5 Range("i1") = J6 Range("j1") = J7 End Mardi: Range("d1") = J2 Range("e1") = J3 Range("f1") = J4 Range("g1") = J5 Range("h1") = J6 Range("i1") = J7 Range("i1").Select ActiveCell.Activate ActiveCell.Offset(0, 1).Select End Jour1: If ActiveCell = Activate Then ActiveCell.Value() = J1 End If End Le probleme est que je decale bien la cellule suivante mais je n'arrive pas a inscrire de valeur dans la cellule en question dites moi svp où est le problème !!!