Re : Etendre le champ d'action d'une macro enregistrée
Salut,
La macro tourne, mais maintenant elle ne copie rien.
La macro:
Sub Copier_toutes_les_donnees_dans_une_feuille()
'
' Copier_toutes_les_donnees_dans_une_feuille Macro
' Macro enregistrée le 31/05/2007 par FMPO
'
Application.Calculation = xlCalculationManual
For n = 6 To ThisWorkbook.Sheets.Count
Sheets(n).Range("K4:W" & 4 + derligne(Range("K4:K" & Sheets(n).Range("K65000").End(xlUp).Row))).Copy
Sheets("Tout").Select
Range("B" & Range("B65000").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next n
End Sub
La fonction, je l'ai introduite dans un nouveau module et en haut à gauche il est marqué "Général". C'est ok, ça?
Aloha
|