!bon j'ai fait un truc qui me paraissait bien ms il y a une erreur et je ne sias pas pourquoi...
Code :
- Dim Mycell As Range, Mysheet As Worksheet, MyName$
- Sheets("Foglio1" ).Select
- If (FeuilleExiste("Links" ) = False) Then
- Sheets.Add After:=Sheets(Sheets.Count)
- Sheets(Sheets.Count).name = "Links"
- End If
- For Each Mycell In Selection
- MyName = Mycell.Value
- 'MsgBox MyName
- Mycell.Copy
- MsgBox Mycell
- Sheets("Links" ).Select
- Range("A1" ).Select
- Selection.Range("A65536" ).End(xlUp).Offset(1, 0).Select
- With Sheets("Links" ).Cells.Font
- .name = "Arial"
- .Size = 10
- End With
- 'l'erreur est sur la ligne suivante:
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
- Sheets("Foglio1" ).Select
- Next Mycell
|
En fait je récupère les valeurs de chaque cellules sélectionées, je les copie et je me place sur la feuille "Link". Ensuite, je voudrais coller les valeurs copier dans cette feuille "Link" ds la première colonne...