Discussion :

[sgrigoryaaan]

Bonjour tout le monde,

Je vous serais infiniment reconnaissante si vous pouviez m'aider pour deux codes/macro vba.

Voici mes problèmes:

1) J'ai écrit le code suivant qui me filtre les lignes où dans la colonne C j'ai des zéros.
J'aimerais maintenant pouvoir appliquer ce filtre chaque fois que la valeur dans la cellule B1 change (dans mon cas cette valeur est une date type jour.mois.annee)

Voici le code du filtre:

Code :

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

1
2
3
4
5
6
7
8
Sub Macro4()
'
' Macro4 Macro
'
 
'
    ActiveSheet.Range("$C$1:$C$224").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlFilterValues
End Sub

Pourriez-vous donc me dire comment coder la suite ?

2) Cette fois-ci j'ai écrit un code qui me copie les valeurs de la ligne 14 de la feuille Excel appelée MSBI ETFs et me les renvoie dans la feuille excel Sheet2.


2.1) J'aimerais que ce code marche en fonction d'une donnée (par exemple une date). Car je m'explique : les valeurs de la ligne 14 que je veux dépendent d'une date car c'est une série temporelle.
J'aimerais que pour une date donnée le code me renvoie les valeurs de la ligne 14 qui la correspondent.
2.2) De plus j'aimerais que les valeurs renvoyées soient transposées : ne pas être renvoyées sur la ligne 1 mais dans la colonne A

Voici le code pour le renvoie que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
Sub copy()
Worksheets("MSBI ETFs").Activate
Range("C14:Z14").Select
Selection.copy
Worksheets("Sheet2").Activate
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A1")
End Sub

Pourriez-vous donc me dire comment coder la suite ?

Merci beaucoup de votre aide !

[Antoun]

Pour ton 1), il faut que tu utilises l'événement OnChange de la feuille de calcul... cf http://silkyroad.developpez.com/VBA/EvenementsFeuille/

Pour ton 2), il suffit que tu utilises ta date dans le Criteria de ton filtre.

Quant à la transposition, c'est l'une des options du Collage Spécial, donc ça te donne un truc comme ça :

Code VBA :

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

Range("A1").PasteSpecial Transpose:=True

[sgrigoryaaan]

Hi Antoun,

Merci beaucoup pour ton message!

Le problème 1) est résolue mais pas le 2)
J'ai tout le temps le même message d'erreur me disant

Run-tim error 1004: paste method of worksheet class failed

Pourtant j'ai appliqué le code suivant:

Code :

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

1
2
3
4
5
6
7
Sub copy()
Worksheets("MSBI ETFs").Activate
Range("C14:Z14").Select
Selection.copy
Worksheets("Sheet2").Activate
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A1").PasteSpecial(Transpose:=True)
End Sub

Aussi, je pense avoir mal exprimé mon autre problème : mais en gros j'aimerais que lorsque je change la valeur de la cellule B1 (en l'occurrence pour moi ça sera des dates) du Worksheet("Sheet2") la macro
me ramène les valeurs de la ligne 14 du worksheet("MSBI ETFs") pour la même date.

Pourriez-vous donc me dire comment coder la suite ?

Merci beaucoup de votre aide!

[Menhir]

Déjà, évite de donner à une fonction ou une procédure un nom déjà utilisé par VBA.

Code :

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

1
2
3
4
Sub MaCopy()
   Worksheets("MSBI ETFs").Range("C14:Z14").Copy 
   Worksheets("Sheet2").Range("A1").PasteSpecial(Transpose:=True)
End Sub

[Antoun]

Et si tu dois mettre un Activate, il vaut mieux qu'il soit avant le Copy (copier sur une feuille inactive est autorisé, mais pas coller) :

Code :

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

1
2
3
4
5
Sub MaCopy()
   Worksheets("Sheet2").Activate
   Worksheets("MSBI ETFs").Range("C14:Z14").Copy 
   Worksheets("Sheet2").Range("A1").PasteSpecial(Transpose:=True)
End Sub

[Menhir]

copier sur une feuille inactive est autorisé, mais pas coller

Je pense que cette information est erronée (je viens de refaire un test) : pas besoin de Activate avant un PasteSpecial.

Le problème dans mon code, c'était les parenthèses :

Code :

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

1
2
3
4
Sub MaCopy()
   Worksheets("MSBI ETFs").Range("C14:Z14").Copy 
   Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
End Sub

[MarcelG]

Bonjour à vous,

Salut Menhir,

En effet, l'activation de la feuille n'est pas nécessaire. A mon humble avis, elle l'est rarement.

Au demeurant, j'attire l'attention sur la possibilité d'effectuer un collage spécial de formats en les transposant.

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Sub essai_copy()
   Application.ScreenUpdating = False
   Feuil1.Range("A1:B3").Copy
   Feuil2.Range("F10").PasteSpecial Paste:=xlPasteFormats, Transpose:=True
   Application.CutCopyMode = False
End Sub

C'est la raison pour laquelle, même si elle paraît redondante, la précision de l'argument Paste me semblerait opportune.