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 :
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() 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
A chaque fois j'ai un problème avec le paste
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
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![]()
Partager