Discussion :

[dodo28]

bonjour

La macro suivante me permet de recuperer des données dans une feuille "recuperation de données" mais voila le coller se fait sur la derniere ligne et bien sur la supprime. De plus quelques fois dans le tableau ou je dois recuperer les données il y a aura la ligne des sommes automatique, et je ne voudrais pas recuperer cette ligne (ce probleme est moins grave mais bon si il y avais une solution ca serait super)
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
Sub RecuperationDesDonnées()
 
Sheets("visio").Activate
'selectionne les données a exporter
T = Range("a15:iv" & Range("a65536").End(xlUp).Row).Select
'copie
Selection.Copy
'selectionne la feuille d'export
Sheets("Recuperation des données").Activate
'place dans la derniere ligne non occupée
Range("a3000").End(xlUp).Select
'colle
ActiveSheet.Paste
 
End Sub

[laetitia]

bonjour dodo le forum je considere que la ligne somme c est la derniere ligne de la feuille visio sans plus d infos!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub RecuperationDesDonnées()
Sheets("visio").Activate: Range("a15:iv" & Range("a65536").End(xlUp).Row - 1).Copy _
Destination:=Sheets("Recuperation des données").Range("A65536").End(xlUp)(2)
End Sub

re par contre si tu veus recuperer que les valeurs sans la mise en forme & sans les calculs tu peus ecrire comme cela

option explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub RecuperationDesDonnées1()
Dim t As Variant
t = Sheets("visio").Range("a15:iv" & Range("a65536").End(xlUp).Row - 1)
Sheets("Recuperation des données").Range("a65536").End(xlUp)(2).Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub

[dodo28]

merci beaucoup Laetitia
Bon fin de Week end