Condition copier/coller

Signaler
Messages postés
29
Date d'inscription
lundi 8 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
-
Messages postés
29
Date d'inscription
lundi 8 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
-
Bonjour, voici mon problème:

J'ai apposé des filtres automatiques à toutes mes colonnes car je souhaite pouvoir visualiser des informations en fonction de différents paramètres.

A l'aide d'une macro, je peux enregistrer différentes informations dans une feuille Excel (Sheet1).

Le code de copier/coller que j'avais demandé doit me permettre de simplifier l'affichage des graphes en fonction d'un filtre en particulier.

Exemple: Sur ma "Sheet1" en (C) la date, en (D) durée de la course et en (F) la durée d'utilisation de la piste dans la journée. Je souhaite dresser un graphe mettant en valeur ces informations en commandant le filtre de la colonne (G) "couloir de la piste".
Ainsi sur ma (Sheet3) j'aurais en B1 les infos liés au couloir 1, en G1 celles du couloir 2, etc.

J'arrive à commander un filtre auto, à copier/coller mais je n'arrive pas à mettre une condition sur le copier/coller de manière à ce qu'il copie mes infos sur ma "Sheet3" en G1 si sur ma "Sheet1" en G mon filtre n'affiche que le couloir 2.

Voici mon code:

Private Sub CommandButton58_Click()

Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("B1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("G1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("L1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("Q1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("V1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AA1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AF1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AK1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AP1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AU1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AZ1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BE1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BJ1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BO1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BT1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BY1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("CD1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("CI1")
Sheets("Sheet1").Range("C130,F1:F30").Copy Destination:=Sheets("Sheet3").Range("CN1")

End Sub

J'espère avoir été assez clair et merci d'avance !

1 réponse

Messages postés
29
Date d'inscription
lundi 8 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
1
Désolé, mon code est mal passé:

Private Sub CommandButton58_Click()

Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("B1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("G1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("L1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("Q1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("V1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AA1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AF1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AK1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AP1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AU1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("AZ1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BE1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BJ1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BO1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BT1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("BY1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("CD1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("CI1")
Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("CN1")

End Sub