peut etre peux tu m'aider, j'ai ça:
Sub MajIndex()
Application.EnableEvents = False
Dim k%
k = 2
On Error Resume Next
For i = 2 To 10 Step 2
For j = 11 To 30
Cells(j, i).Value = WsName(k)
Cells(100 + k, 1).Value = WsName(k)
k = k + 1
Next
Next
Application.EnableEvents = True
End Sub
mais ça me met tout sur 3 colonnes avec une colonne vide entre deux, je voudrais tout en continu
pi j'ai ce ça
Function WsName(i As Integer)
WsName = Worksheets(i).Name
End Function
qui a peut etre un lien avec la maj???
Par avance merci de ton aide