EXCEL VBA prob
ripi
-
ripi -
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
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
-
bonjour,
essaies
Sub copier_droite()
Range("GM2:GM18").Copy Cells(2, Range("IV2").End(1).Column + 1)
End Sub-
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
-
