Selection de feuilles dans un classeur sous macro

[Guy]

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

 

[@+Thierry]

Bonjour Guy, le Forum

Heuh, oui moi je peux déjà t'expliquer pourquoi ta question semble rester sans réponse...

Tu devrais faire un petit tour par ici et tu pourras te l'expliquer je pense :


Bon Appétit
@+Thierry