Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1760 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copies de cellules (multiple sélection)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Copies de cellules (multiple sélection)

n°2004982
grosquick5​9
Posté le 26-06-2010 à 20:04:54  profilanswer
 

Bonjour à tous,
je souhaite faire une copie automatique d'une feuille à l'autre mais en ne sélectionnant uniquement que les lignes remplies.
Concrètement je veux sélectionner la colonne A à N à partir de la ligne 6 (sans pour autant copier 10 000 lignes)
Voici mon code :
 
Sub Test()
Sheets("ListeMDC" ).Select
Selection.AutoFilter Field:=14, Criteria1:="<>"
Dim plage As Range
Dim cel As Range
Set plage = Range("A6:A" & Range("B65536" ).End(xlUp).Row)
plage.Select
Selection.Copy
Sheets("CLOS" ).Select
Range("A6" ).Select
ActiveSheet.Paste
 
'Annuler le surlignage des cellules :
Selection.Interior.ColorIndex = xlNone
Range("A6" ).Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("ListeMDC" ).Select
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=14
 
Je bloque à set plage = Range
 
Est-ce que quelqu'un peut m'aider svp ?
 
Merci d'avance,
Thibault

mood
Publicité
Posté le 26-06-2010 à 20:04:54  profilanswer
 

n°2005013
galopin01
Posté le 27-06-2010 à 02:24:26  profilanswer
 

bonjour,
 
Set plage = Range("A6:N" & Range("B65536" ).End(xlUp).Row)
 
A+

n°2005109
grosquick5​9
Posté le 27-06-2010 à 20:32:16  profilanswer
 

Salut merci pour ta réponse mais ça ne fonctionne pas. J'ai fait une erreur dans mon code avec Range("B65536" ). Voici le code que j'avais réécri en attendant une réponse :
 
 
Dim plage As Range
 
Set plage = Range("A6:N" & Range("A65536" ).End(xlUp).Row)
 
Sheets("ListeMDC" ).Select
Selection.AutoFilter Field:=14, Criteria1:="<>"
    plage.Select
    Selection.Copy
    Sheets("MDCcloses" ).Select
    Range("A6" ).Select
    ActiveSheet.Paste
    Selection.Interior.ColorIndex = xlNone
 
 
Il me met une erreur à plage.select

n°2005400
grosquick5​9
Posté le 28-06-2010 à 18:05:49  profilanswer
 

Autant pour moi. ça fonctionne. J'ai rajouté ceci  
Dim cel As Range
 
Peut être que ça venait de là.  
 
Voici mon code en entier pour ceux que ça intéresse :
 
Sub Mise_A_Jour()
 
Dim plage As Range
Dim cel As Range
 
Sheets("ListeMDC" ).Select       'permet la sélection de la feuille ListeMDC
 
    Selection.AutoFilter Field:=14, Criteria1:="<>"
     
    'permet de filtrer les données, <> signie "non vides"
    'pour que la ligne ci dessus fonctionne,
    'il faut au préalable activer les filtres de la colonne A à N sur la ListeMDC
         
    Range("A6:N" & Range("A65536" ).End(xlUp).Row).Select
    Selection.Copy
    Sheets("MDCcloses" ).Select
    Range("A6" ).Select
    ActiveSheet.Paste
       
 Sheets("ListeMDC" ).Select
    Selection.AutoFilter Field:=14 'permet d'enlever le filtre sur la liste MDC
 
Merci galopin


Message édité par grosquick59 le 28-06-2010 à 18:06:25

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copies de cellules (multiple sélection)

 

Sujets relatifs
verouillage partiel cellules Excel /via VBAVBA-Bouton dynamique-Petit coup de pouce
zone de séléction sur une image en PHP[Treeviewer] Récupérer le nom de la colonne lors d'une sélection
PB urgent requete multiple SQLPb avec la gestion des cellules...
[R] Selection dans un tableau.Selection d'images dans document word
Sélection du contenu des indexs d'une table 
Plus de sujets relatifs à : Copies de cellules (multiple sélection)


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR