Bonjour,
Je cherche à récupérer seulement certaines lignes d'un tableau (toutes les lignes pour lesquelles une colonne donnée contient des données numériques) et à les insérer dans une autre feuille.
Pour cela, j'ai écrit la macro suivante :
Mais le résultat n'est pas celui que j'espérai... A la fin de l'éxécution de la macro, la cellule Feuil3!A2 est vide, et je n'ai rien sur la feuille "Tab_taux", seule la couleur de fond de la cellule Tab_taux!A1 a changé (elle est devenu verte comme la cellule Feuil3.A2)
Il doit donc y avoir un problème au niveau de l'application.union ou de ma condition dans la boucle, mais j'ai beau chercher je ne comprend pas.
J'en profite pour poser une autre question qui pourrait me permettre d'améliorer mon code : est il possible d'initaliser un range (ici donnees) sur une valeur nulle ? (pour l'intersection du premier bouclage dans mon cas)
Merci de votre aide!
Je cherche à récupérer seulement certaines lignes d'un tableau (toutes les lignes pour lesquelles une colonne donnée contient des données numériques) et à les insérer dans une autre feuille.
Pour cela, j'ai écrit la macro suivante :
Code:
Sub tri_taux_horaire()
Dim cellule, donnees As Range
Workbooks("test macro2.xls").Activate
Set donnees = Worksheets("Feuil3").Range("A2")
For Each cellule In Worksheets("Feuil3").Range("F:F")
If IsNumeric(cellule) Then
donnees = Application.Union(donnees, cellule.EntireRow)
End If
Next
donnees.Copy
Worksheets("Tab_taux").Paste
End Sub
Mais le résultat n'est pas celui que j'espérai... A la fin de l'éxécution de la macro, la cellule Feuil3!A2 est vide, et je n'ai rien sur la feuille "Tab_taux", seule la couleur de fond de la cellule Tab_taux!A1 a changé (elle est devenu verte comme la cellule Feuil3.A2)
Il doit donc y avoir un problème au niveau de l'application.union ou de ma condition dans la boucle, mais j'ai beau chercher je ne comprend pas.
J'en profite pour poser une autre question qui pourrait me permettre d'améliorer mon code : est il possible d'initaliser un range (ici donnees) sur une valeur nulle ? (pour l'intersection du premier bouclage dans mon cas)
Merci de votre aide!