Bonjour !

Voila je m'arrache les cheveux sur un truc con, mais a croire que je suis le seul a vouloir faire ce type de requête, lol

Je voudrais tout simplement copier coller les cellules de mon classeur de la feuille 2 à "sheet1" de la cellule A1 à la derniere cellule active (car ce n'est pas toujours la meme cellule active)

j'ai écrit ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ValForm()
Dim i As Worksheet
 
For Each i In ActiveWorkbook.Sheets
    If i = Sheets("Scoreboard") Then
    i = i + 1
    Range("A1:Activecell").Select
    i.Copy
    i.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Else
    i.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1:Activecell").Select
    i.Copy
    End If
Next i
End Sub
J'ai également tenté ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ValForm()
 
scoreB = Worksheets.Count
 
For i = scoreB + 1 To Sheet1 Step 1
 
    Application.DisplayAlerts = False
    Sheets(i).Select
    Range("A1:Activecell").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.DisplayAlerts = True
    Application.CutCopyMode = True
Next i
 
End Sub
A chaque fois j'ai un problème avec le paste

Sa finit par me tuer, parceque je pense pas qu'il manque grand chose, mais j'ai beau modifier mon pgm Nothing !

Je prend tout idée