erreur dans macro Résolu

Question

Bonjour, qui pourrait me corrigé cette macro
le but est que la feuilles que je copy reçois comme nom le N° qui est dans la feuille copier en  a1
c'est a dire no enregistrement dans  la feuille  BD j' ai mis la apres la ligne qui ou il y a un pb.
merci d'avance

Sub leden_opslaan()
'
' leden_opslaan Macro
'

'
    Sheets("BD").Select
    Range("A2:C2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("leden toevoegen").Select
    Range("A2:C2").Select
    Selection.Copy
    Sheets("BD").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:C7").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A2:A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BD").Sort
        .SetRange Range("A1:C300")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
    Sheets("1").Select
    Sheets("1").Copy After:=Sheets()  que faut il mettre entre les () pour qui mette automatiquement le derrière la dernière feuille
    Sheets("1 (2)").Select
    ActiveSheet.Name = Range("A1").Text
    Sheets("Klassement").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Range("A5:B9").Select
    Range("A9").Activate
    Selection.AutoFill Destination:=Range("A4:B9"), Type:=xlFillDefault
    Range("A4:B9").Select
    Range("C5").Select
    Selection.AutoFill Destination:=Range("C4:C5"), Type:=xlFillDefault
    Range("C4:C5").Select
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "=IF('6'!R18C,'6'!R18C,"""")"
    Range("C4").Select
    Selection.AutoFill Destination:=Range("C4:AF4"), Type:=xlFillDefault
    Range("C4:AF4").Select
    Range("AG5:AG9").Select
    Range("AG9").Activate
    Selection.AutoFill Destination:=Range("AG4:AG9"), Type:=xlFillDefault
    Range("AG4:AG9").Select
    Range("C4").Select
    Sheets("leden toevoegen").Select
    Range("C7").Select
    Selection.ClearContents
End Sub

https://www.cjoint.com/?DDbon4tJfL1 
Configuration: Windows / Mozilla 11.0

f894009 · Answer

Bonjour,


Sheets("1").Copy After:=Sheets(Sheets.Count)

Dandy_danbe · Answer

Bonjour;
Merci entretemps j' ai trouve ajours d'hui la solution
par contre il me reste un petit PB. dans la feuilles klasement
lorsque j' incrémente la cellule c8:c5 ver c4 il ne fait que copier la cellule 
exemple c4 =si('9'!C$18;'9'!C$18;"") il devrais mettre en c4 =ALS('10'!C$18;'10'!C$18;"") autrement dis il devrait mettre le nombre de la feuille que j'ai renommée.
Je remet la copy de la nouvelle macro que j' ai enregistre ce matin
car elle renome automatiquement et fait un tri dans BD.

Sub Leden_opslaan()
'
' Leden_opslaan Macro
'

'
    Sheets("BD").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Sheets("leden toevoegen").Select
    Range("A2:C2").Select
    Selection.Copy
    Sheets("BD").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:C9").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A2:A9"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BD").Sort
        .SetRange Range("A1:C300")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   Dim I As Integer

  Sheets("1").Copy after:=Sheets(Sheets.Count)
  On Error Resume Next
  Do
    I = I + 1
    Err.Clear
    ActiveSheet.Name = Format(I, "0")
    If Err.Number = 0 Then Exit Do
  Loop

    Sheets("Klassement").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Range("A5:C12").Select
    Range("A12").Activate
    Selection.AutoFill Destination:=Range("A4:C12"), Type:=xlFillDefault
    Range("A4:C12").Select
    Range("C4").Select
    Selection.AutoFill Destination:=Range("C4:AF4"), Type:=xlFillDefault
    Range("C4:AF4").Select
    Range("AG6").Select
    Selection.AutoFill Destination:=Range("AG4:AG6"), Type:=xlFillDefault
    Range("AG4:AG6").Select
    Sheets("leden toevoegen").Select
    Range("C7").Select
    Selection.ClearContents
End Sub

Erreur dans macro

2 réponses

Discussions similaires

Newsletters