macro copier coller

[mix770]

Bonjour le forum,

j'ai enregistré une macro pour transférer les données d'un tableau annuel vers les lignes de chaque agent, sur un tableau de saisie de présence. Le principe c'est un tableau RTT annuel qui déverse sur la ligne de l'agent de chaque mois.

Sub copier_coller_2()

Range("C18:AG18").Select 'ligne correspondante janvier
Application.CutCopyMode = False
Selection.Copy

Sheets("JANV CONV").Select
Range("C9").Select ' ligne de l'agent sur le mois de janvier
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Tableaux_RTT").Select
Range("C19:AF19").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("FEVR CONV").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tableaux_RTT").Select
Range("A1").Select
End Sub

ce n'est pas très propre, avez vous une idée afin de faire plus court sachant que cette opération est à répéter pour les 12 mois et que j'ai 30 agents sur le tableau.
Merci à vous

merci

 

[Staple1600]

Re : macro copier coller

Re


Roland: tu me dis pas Bonsoir

NB: Quand je parle de Dim (je parle pas des bas) mais de déclarer les variables dans le code VBA.

Question: Y-a-t-il des dim dans la PJ de Modeste ?

 

[mix770]

Re : macro copier coller

bonsoir STAPLE 1600,

j'ai déja entendu ce terme d'option explicit, ç'est quoi exactement ?

Cdt

 

[Staple1600]

Re : macro copier coller

Re

Roland:
Une question?
Un g°°gl.ng
Une réponse
Ce lien n'existe plus

PS: Est-ce que tu as vu des lignes commencant par Dim dans le code VBA de Modeste ? (dans sa PJ)

 

[mix770]

Re : macro copier coller

re,
je n'ai pas de PJ de modeste, j'ai mis un fichier pour la compréhension et j'essaie d’intégrer son VBA sans succès
je rame

 

[mix770]

Re : macro copier coller

re,
non pas de DIM

 

[Modeste]

Re : macro copier coller

Re et re,
Salut JM

Se pourrait-il que tes paires de Dim soient justement ailleurs dans ta PJ, sur un registre Public par exemple ?

J'ai sorti mes grosses chaussettes en laine depuis bien avant l'automne et tu ne sauras jamais où je mets mes Dim

Ce qui me perturbe avec mix770, c'est que ça marche ... puis ça ne marche plus, il ajoute des colonnes ou des lignes, on adapte le code et ça repart ... jusqu'à la fois suivante. Un petit bout du nouveau fichier permettrait sans doute de trouver la modif qui nous agite cette fois

Quant à la question de faire les mises à jours sur un tableau à la fois, je ne comprends pas bien ... et mes chaussettes tiennent absolument à me mettre au lit!

 

[mix770]

Re : macro copier coller

re,

je pense que modeste a raison tous au lit, je vous propose demain de remettre mon fichier avec le VBA pour avancer et arrêter de vous prendre la tête.

pour le tableau tu as remarqué que les tableaux sont empilés, nom 1, nom 2, etc. Si j'ai bien compris la macro dispatche tous les tableaux en une fois, ma demande serait un VBA par tableau RTT dispatcher tableau par tableau

question, j'ai d'autres onglets dans le fichier est ce que cela peux avoir une incidence sur la macro

bon les gars au dodo

bonne nuit a vous
roland

 

[mix770]

Re : macro copier coller

bonsoir à tous

comme promis hier le fichier avec les onglets janv fevr et tableau rtt ainsi que la macro proposée par modeste
ça bloque sur cette ligne :

Sheets(tabMois(mois)).Cells(ligCible, 3).PasteSpecial Paste:=xlValues

je vois pas d’où ça vient surtout qu'apparemment ça fonctionne chez modeste

merci à vous
cordialement

 

[Staple1600]

Re : macro copier coller

Bonsoir à tous

mix770
le fichier est resté en rade

 

[mix770]

Re : macro copier coller

le fichier est trop lourd

 

[mix770]

Re : macro copier coller

ça y est il est là

 

[mix770]

Re : macro copier coller

il me fait ch...
la il est joint

 

[mix770]

Re : macro copier coller

j' ai alleger au max

vous en pensez quoi ?

 

[Modeste]

Re : macro copier coller

Bonsoir,

La question, au stade actuel est: compte-tenu de ta demande de ne faire la mise à jour que d'un tableau à la fois, ne serait-il pas plus intéressant de se centrer sur cette demande ... pour autant qu'elle ne varie plus dans sa forme?

Ceci dit, si tu "débarques" toujours aussi tard ça va être dur!
Dans ton dernier fichier, tu es certain que la structure ne changera plus? Peut-on imaginer une cellule dans chaque tableau dans laquelle un double-clic déclencherait la recopie des infos?

Prends le temps de réfléchir avant de répondre; tu as toute la nuit devant toi (je m'en vais dormir!)

 

[mix770]

Re : macro copier coller

Bonsoir Modeste,

il est vrai qu"en ce moment je me connecte toujours tard.... faut être fou après une journée de boulot, 5 heures de transport et un tibout de 4 ans, mais je suis un passionné... je vais faire un effort me connecter plus tôt

je tiens à te remercier pour ta persévérance et ta patience, j'ai vraiment besoin d'avancer et cette fois je m'y suis mal pris.

pour répondre à tes questions, oui la validation doit être faite par tableau, la macro activée par un bouton.
Le dernier fichier envoyé hier est le reflet de la réalité, j'ai juste supprimé des tableaux dans la page RTT pour alléger le fichier, il ne passait pas.
merci encore à toi pour ta patience
Roland