Discussion :

[etudeluky]

bonjour
je voudrais voir comment faire.
j ais une feuille [/contents/1103-tableur-comment-l-utiliser excel] et la colonnes g C'est le nombre de fabrication qui es fixe remplie chaque jour et je voudrais la copier et la mètre dan autre feuille dans la colonne a et puis [/contents/1192-le-codage-cie-lab-l-a-b la b] puis c puis d ex....comme sa je c est voir sur le mois la différence . j ais essayer avec ctrl /shift et fléche [/contents/1236-ver-informatique ver] la droite.
et quand je fait et reste toujour a la mème place j avais coler 2 colonnes a et b et il a bien fait mas il serte sur la collone c
j ais besoin de votre aide je vient faire un ficher pour mieux comprendre
merci d avance
bien a vous
luky

[Pierre Fauconnier]

Salut.

Je n'ai RIEN compris à ta demande.

[riaolle]

Bonjour,

Voici ce que j'ai compris de ta demande (mais bon, je ne suis pas sûre d'avoir tout bien compris ) :

• Tous les mois, tu as un document dans lequel en colonne G, il y a des données qui t'intéressent.
• Le premier mois, tu veux copier-coller cette colonne G dans un autre document (appelons-le Doc Copie) en colonne A
• Le deuxième mois, tu veux copier-coller cette colonne G dans le document Doc Copie en colonne B
• Le troisième mois, tu veux copier-coller cette colonne G dans le document Doc Copie en colonne C
• Etc ...

Tout cela en VBA (au passage, tu poses ta question sur le forum Excel et non pas le forum VBA --> fais attention à poster dans le bon forum, la prochaine fois )

1. As-tu déjà essayé d'utiliser l'enregistreur de macro pour connaître le code qui permet de copier-coller?
   Petit indice : après avoir analysé le code obtenu par enregistreur de macro, regarde la méthode Range.Copy
2. Pour coller en colonne A, puis B, puis C etc..., il faut à chaque fois que tu trouves la première colonne vide de ton document. Pour cela utilise :
   

   Code :

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

   1
   2
   3
   4
   5
   6
   7
   8
   Dim col
   If isEmpty(Range("A1")) Then 
       col = 1
   ElseIf isEmpty(Range("B1")) Then 
       col = 2
   Else 
       col = Range("A1").End(xlRight).Column + 1
   End If

   A adapter avec le nom de la feuille et du classeur. End(xlRight) te permet de trouver la dernière cellule non vide en partant, ici, de A1 et en allant vers la droite. On différencie 2 cas : si A1 ou B1 sont vides, car, dans ces cas, End(xlRight) nous envoie à la fin de la feuille Excel.
   Est-ce que tu comprends le code? Est-ce que tu vois comment il faut le compléter avec le classeur et la feuille?
3. Tes 2 classeurs seront-ils ouverts? Il vaudrait mieux, car ce sera plus facile.