G
Guy
Guest
Peut on m'expliquer pourquoi cela ne fonstionne pas ?
je ne me l'explique pas.....
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 15/05/2004 par Guy
'
Dim feuilleA(), feuilleB(), SelectionA, SelectionB As String
Dim a, b As Integer
a = Day(Now)
b = 32 - a
ReDim feuilleA(1 To a)
ReDim feuilleB(1 To b)
For i = 2 To a
feuilleA(i) = LTrim(Str(i + 1))
SelectionA = SelectionA & feuilleA(i)
Next i
For i = 1 To b
feuilleB(i) = LTrim(Str(i + a))
SelectionB = SelectionB & Chr$(34) & feuilleB(i) & Chr$(34) & ","
Next i
' Suppression du 1er guillemet
SelectionB = Right(SelectionB, Len(SelectionB) - 1)
' Supression du dernier guillemet et de la virgule
SelectionB = Left(SelectionB, Len(SelectionB) - 2)
Sheets(Array(SelectionB)).Select
Sheets(feuilleB(1)).Activate
Range("13:13").Select
Selection.Copy
Range("12:12").Select
Selection.Insert Shift:=xlDown
Range("13:13").Select
Application.CutCopyMode = False
Selection.Copy
Range("12:12").Select
Selection.Insert Shift:=xlDown
End Sub
Voilà, je voudrai bien insérer une ligne dans la selection des feuilles mais la selection ne se fait pas
je ne me l'explique pas.....
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 15/05/2004 par Guy
'
Dim feuilleA(), feuilleB(), SelectionA, SelectionB As String
Dim a, b As Integer
a = Day(Now)
b = 32 - a
ReDim feuilleA(1 To a)
ReDim feuilleB(1 To b)
For i = 2 To a
feuilleA(i) = LTrim(Str(i + 1))
SelectionA = SelectionA & feuilleA(i)
Next i
For i = 1 To b
feuilleB(i) = LTrim(Str(i + a))
SelectionB = SelectionB & Chr$(34) & feuilleB(i) & Chr$(34) & ","
Next i
' Suppression du 1er guillemet
SelectionB = Right(SelectionB, Len(SelectionB) - 1)
' Supression du dernier guillemet et de la virgule
SelectionB = Left(SelectionB, Len(SelectionB) - 2)
Sheets(Array(SelectionB)).Select
Sheets(feuilleB(1)).Activate
Range("13:13").Select
Selection.Copy
Range("12:12").Select
Selection.Insert Shift:=xlDown
Range("13:13").Select
Application.CutCopyMode = False
Selection.Copy
Range("12:12").Select
Selection.Insert Shift:=xlDown
End Sub
Voilà, je voudrai bien insérer une ligne dans la selection des feuilles mais la selection ne se fait pas