Copier/coller de données

[Cactus]

Bonjour tout le monde,

Je cherche à copier coller des infos que j'ai dans une classeur vers un autre classeur à la suite de ce qui est déja en place..et que le tout se trie ensuite selon un critère.. je vous joint deux fichiers pour exposer mon besoin...
En espérant que quelqu'un pourra m'aider
Merci bcp d'avance

 

[ILoveZadig]

Re : Copier/coller de données

Bonjour Cactus, et bienvenue

Dans le fichier Liste, en cliquant au sein de ton tableau, ne pourrais-tu pas utiliser les formulaires (Menu Données), où tu entres chaque critères.?

Pour classer par ordre d'age, il faudrait que tu passes par Données puis Trier (ordre croissant, colonne F)

 

[Cactus]

Re : Copier/coller de données

Bonjour IloveZadig, et merci pour cette Bienvenue,

En fait j'essai de mettre ca en place pour le laisser ensuite à des gens qui connaissent peu Excel...
J'aurai imaginé un bouton qui permettai de rappatrier directement les données et les classerai ensuite...
Si eventuellement tu as donc une idée, je pense que la du code s'impose..
Merci par avance en tout cas

 

[ILoveZadig]

Re : Copier/coller de données

Voilà une macro de tri qui correspond à ton fichier Liste. Attention aux éléments en gras, étant donné que sur le fichier final, la première cellule de la colonne à trier dans l'ordre croissant ne sera peut-être pas F4.

Sub Tri()


    Range("[B][COLOR="Red"]B3:G10[/COLOR][/B]").Sort Key1:=Range("[B][COLOR="red"]F4[/COLOR][/B]"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Je laisse le soin aux personnes plus compétentes que moi en VBA le rapatriement de tes données d'un classeur à un autre. 🙂

NB : Le nom Tri de la macro n'est qu'indicatif

 

[Cactus]

Re : Copier/coller de données

Ouah uper merci bcp déja pour ce ptit bou de code ca marche nikel...
Bon y a plus qu' a esprer qu'on puisse me renseigner pour rappatrier les données..
Très bonne journée à toi!

 

[Cactus]

Re : Copier/coller de données

J'Apporte juste une ptite modif a ma demande au k ou on puisse m'aider..j'aimerais que le rapatriement des donnée se fasse sans la colonne age ( je ferai en fait un tri par nom)..croisan les doigts qu'on puisse m'aider
Merci bcp

 

[vbacrumble]

Re : Copier/coller de données

Bonsoir


Essayes cette macro (edition: version modifiée du code VBA suite MP )

A mettre dans un module standard (pas dans le code de la feuille)

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 25/05/2009 par VBACrumble
Dim l&, SWkB As Workbook, DWKb As Workbook, vers As Range, s$, c$
Set SWkB = Workbooks("Etudiant.xls")
Set DWKb = Workbooks("Liste.xls")
Set vers = DWKb.Sheets(1).[D65536].End(xlUp)(2)
Application.ScreenUpdating = False
With SWkB.Sheets(1)
s = .[C2].Text: c = .[C3].Text
With .[B5]
    l = .CurrentRegion.Rows.Count
    .CurrentRegion.Offset(1).Resize(l - 1).Copy
    vers.PasteSpecial xlPasteValues
    vers.Offset(, -1).Resize(l - 1) = c
    vers.Offset(, -2).Resize(l - 1) = s
End With
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Pour appeler la macro à partir d'un macro:
(Insérer une Forme automatique (un rectangle par exemple)
Puis clic-droit sur cette forme -> Affecter une macor -> choisir Macro1

 

[Cactus]

Re : Copier/coller de données

Bonsoir VbaCrumble, (...et puis aussi Bonsoir brunoM45..vraiment dsl..)..

Bon excuse moi pour le repeat sur ma question, fin de journée ct un ptit peu dur..
Dit moi sauf grosse erreur de ma part , je rencontre ce pb :
-il me copie les données mais le tout décalé d'une colonne
-et surtout il me copie les données qu'il y a déja dans Liste et non pas celles référant au classeur "Eutdiant"..
Pour tout te dire jl'ai fait une fois et je crois que ca a marché mais la a vrai dire je crois que ca ne fonctionne plus...très débutant en vba, il faut bien dit moi placé le code dans le module du classeur Liste??
En tout k merci bcp déja, en espérant que tu pourras me donner les 2/3 mini astuces qui doit rester.

 

[Cactus]

Re : Copier/coller de données

Chèr VbaCrumble,

Bah écoute le code (re)marche...oh il devait marcher depuis le début dison que c'est sur que ca venait de moi...impresionnant ton code!!
Je ne sais comment te remercier, vraiment mille merci!!
Très bonne soirée à toi