Coller sur premire ligne libre d'un tableau [Résolu]

[franc83]

Bonjour
voici mon probléme

Dans le classeur "tirage.xlsm" j'ai un bouton qui ouvre le classeur "Noms.xlsm"dans ce classeur je sélectionne plusieurs cellules puis avec différents boutons j'ouvre différentes feuilles dans le classeur "tirage.xlsm " ou je colle cette sélection, puis ouvre de nouveau le classeur noms ,et supprime les cellules sélectionnées .
Mon problème est que je passe de la ligne 11 à mon message derreur
Voici mon code
merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Ouvrir_mon classeurClic()
Dim derligne As Long
       On Error GoTo SortirErreur
Selection.Copy
 
Workbooks("TIRAGE.xlsm").Activate
 
Worksheets("2").Select 'Pour copie de la sélection dans feuille nommée "2" de TIRAGE
 
derligne = Range("F65536").End(xlUp).Row + 1 'dernière ligne libre de feuille ,"2"
Cells(derligne, 6).Select   'Pour collage à partir de la colonne F
 
 
 
ActiveCell.PasteSpecial
Workbooks("Noms.xlsm").Activate
Selection.ClearContents
Exit Sub
SortirErreur:
       Msgbox " La sélection n'est pas valide"
 
End Sub

[jfontaine]

Bonjour,

Quand tu travailles avec plusieurs classeurs et feuilles, évites les sélect, Activate et Selection

Ci dessous une proposition de code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Ouvrir_mon_classeurClic()
 
On Error GoTo SortirErreur
Dim derligne As Long
Dim Plage As Range
 
Set Plage = Selection
 
Plage.Copy
 
 
With Workbooks("TIRAGE.xlsm").Worksheets("2")
    derligne = .Range("F65536").End(xlUp).Row + 1 'dernière ligne libre de feuille ,"2"
    .Range("F" & derligne).PasteSpecial  'Pour collage à partir de la colonne F
End With
 
'Efface la plage copiée
Plage.ClearContents
 
Exit Sub
SortirErreur:
       MsgBox " La sélection n'est pas valide"
 
End Sub

[franc83]

Merci jfontaine de tes conseils je viens de modifier mon code cela fonctionne
merci