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 : 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
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
Partager