EXCEL VBA prob

ripi -  
Bonjour,

Je souhaiterai faire un copier coller d'une colonne sur la premiere colonne vide.

voilà mon code :

Dim DerniereColonne As String
Dim A As Byte

Range("GM2:GM18").Select
Selection.Copy

DerniereColonne = ActiveSheet.UsedRange.Columns.Count
MsgBox "La derniere colonne est : " & DerniereColonne
DerniereColonne = DerniereColonne + 1

A = DerniereColonne

Range("A" & 2).Select
ActiveSheet.Paste

soit qu'a chaque que je lance la macro je puisse coller dans la colonne de droite de la derniere colonne rempli
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1. michel_m Contributeur
    bonjour,

    essaies
    Sub copier_droite()
    Range("GM2:GM18").Copy Cells(2, Range("IV2").End(1).Column + 1)
    End Sub
    0
    1. ripi
      Merci d'avoir pris le temps de me répondre, votre code marche effectivement

      mais en faite cela ne répond pas vraiment a mon cahier des charges.

      Je dois récuperer des données par ex dans un autre fichier et le coller sur la 1ere colonne vide d'un autre fichier.
      Où l'on reviens au code précédent, je veux toujours coller cela à droite de la derniere colonne non-vide !!

      Merci d'avance
      0
    2. michel_m Contributeur
      @ripifallait peut-être indiquer "ton cahier des charges" avant de faire travailler les autres: c'est + que lassant de lire ce genre de choses et de voir qu'on a bosser pour rien...
      ciao
      --
      0
    3. ripi
      @michel_mJe l'avais expliqué lors de mon 1er message ... mais c'était pas tres explicite c'est pour celà que j'ai voulu le répreciser !!

      Autant pour moi.
      0