Recopie les valeurs d'un tableau dans autre (macro)
a
bonjour bonjour 8)
le soleil se lève, bonne matinée à vous
j'ai un problème, j'aimerai avoir de l'aide.
ci-joint un fichier excel :
programme VbA:
je souhaite recopier toute les valeur de la feuille données 1 (date/heure en vert et puissance en jaune) si date est compris entre le 01/05/15 et le 04/05/15 par exemple. ensuit le copier dans la feuille Résultats (chaque date/heure vert et sa correspondance en puissance jaune ) .
merci pour vos aides
Bonjour,
sub macro1()
Dim dl&, i%
dl = Feuil1.Range("a" & Rows.Count).End(xlUp).Row + 1
For i = 2 To dl
With Feuil2
If Feuil1.Range("c" & i) < Feuil2.[G3] And Feuil1.Range("c" & i) > Feuil2.[E3] Then
Feuil1.Range("c" & i).Copy .Range("a" & .Range("a" & Rows.Count).End(xlUp).Row + 1)
Feuil1.Range("j" & i).Copy .Range("b" & .Range("b" & Rows.Count).End(xlUp).Row + 1)
End If
End With
Next
End Suba
merci Force Rouge
il fonctionne parfaitement
De rien, c'est fonctionnel quand il n'y a pas beaucoup de ligne à traiter mais quand ça dépasse les 10 000 lignes il faut trouver plus expert pour ne pas rester une heure devant la page excel...