Bonjour je suis nouveau et m'inspire beaucoup de vos discussions, Je n'arrive pas à me sortir de la situation suivante ...

Aujourdhui je souhaite copier ligne apres ligne une base de données nommée data sur un autre onglet (onglet actif quand j'execute ma macro).




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
Dim ASh As String
 
 ASh = ActiveSheet.Name
 
 
Sheets("Datas").Select
 
Dim NumD As Integer
Dim NumP As Integer
Dim Numero As Integer
NumD = Range("A" & Rows.Count).End(xlUp).Row
 
Numero = 13
While Numero <= NumD
Sheets(ASh).Select
NumP = Range("A" & Rows.Count).End(xlUp).Row
Sheets("datas").Select
 
Worksheets("datas").Rows("Numero").Select.Copy Destination:=Worksheets(ASh).Range("A" & NumP)
 
 
Wend
Et le message suivant s'affiche...

"Erreur définie par l'application ou par l'objet"

En vous remerciant par avance

Bon we a tous