Sujet Précédent Sujet Suivant

Condition copier/coller

rafou29 Messages postés 29 Date d'inscription lundi 8 mars 2010 Statut Membre Dernière intervention 14 avril 2010 - 15 mars 2010 à 11:14
rafou29 Messages postés 29 Date d'inscription lundi 8 mars 2010 Statut Membre Dernière intervention 14 avril 2010 - 15 mars 2010 à 11:20
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

Réponse 1 / 1
rafou29 Messages postés 29 Date d'inscription lundi 8 mars 2010 Statut Membre Dernière intervention 14 avril 2010 1
15 mars 2010 à 11:20
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
0

Discussions similaires

[vba] recopier la valeur d'une cellule dans une autre feuille.
cokinoumasterflash -
cokinoumasterflash -

5 réponses
Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè
talined -
ucfoutu -

10 réponses
Vba coller valeur cellule sur une autre cellule avec variable
walyddu59 -
walyddu59 -

3 réponses
copier cellule dans autre feuille (vba)
gnosis35 -
HFanny -

2 réponses
copier le contenu d'une feuille excel dans une autre
xzonz -
aieeeuuuuu -

4 réponses
Rejoignez-nous