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
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,
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 !!!
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 !!!
