Discussion :

[dodo28]

bonsoir
dans la feuille "Liste" se produit une selection (ca marche) mais quand je fais le coller dans la feuille "Visio" ca ne marche plus, il auto copie ca propre feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub CreationDeLaListe()
 
 
' selection de la cellule de la condition du filtre
    Sheets("Visio").Activate
    'Action de filtrage
 Sheets("Liste").Range("$A$1:$Ah$18").AutoFilter Field:=1, Criteria1:=Range("f01")
 
        'Selection du rezsultat de filtre
 
 
Range("A2:AQ1900").Select
        'copie du filtre
        Selection.Copy
        'selection du lieu de collage
        Sheets("Visio").Select
     Range("a16").Select
        'Collage
        ActiveSheet.Paste
 
'retire le quadrillage
ActiveWindow.DisplayGridlines = False
 
End Sub

Merci

[laetitia]

bonsoir dodo28 peut etre comme cela

Code :

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

Sheets("Liste").Range("A2:AQ1900").Copy Destination:=Sheets("Visio").Range("a16")

a la place de

Code :

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

1
2
3
4
5
6
7
8
Range("A2:AQ1900").Select
        'copie du filtre
        Selection.Copy
        'selection du lieu de collage
        Sheets("Visio").Select
     Range("a16").Select
        'Collage
        ActiveSheet.Paste

[dodo28]

merci beaucoup ca marche
bonne fin de soirée

[StanSmooth]

Bonjour à tous, je me permets de rebondir sur la question de dodo28 (pas sur d'avoir à ouvrir un nouveau topic pour ça)

Comment faire pour utiliser la fonction copy

Code :

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

Sheets("Liste").Range("A2:AQ1900").Copy Destination:=Sheets("Visio").Range("a16")

avec deux fichiers excel different (dont un fermé)

Actuellement je passe par

Code :

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

1
2
3
4
5
6
7
 
'Ouverture du fichier source
'selection de la plage à copier
'copie
'fermeture du fichier source
'selection de la sheet et du range
'coller

mais je pense qu'il y a plus simple (et surtout plus perfomant, parce que là la vitesse d'execution est très longue...)
merci d'avance

[Philippe Tulliez]

Bonjour,
Cette ligne était incomplète

Code :

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

Sheets("Liste").Range("A2:AQ1900").Copy Destination:=Sheets("Visio").Range("a16")

Lorsque l'on utilise un objet, il est important de préciser la parentalité complète de celui-ci
Ainsi il suffit de faire précéder l'objet Sheets par son parent (classeur)
Exemple

Code :

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

Workbooks("Toto.xlsx").Sheets("Liste").Range("A2:AQ1900").Copy Destination:=Thisworkbook.Sheets("Visio").Range("a16")

Evidemment dans cette instruction les classeurs doivent être ouverts(écrit de mémoire donc non testé)