Sujet Précédent Sujet Suivant

EXCEL VBA prob

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
A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour,

essaies
Sub copier_droite()
Range("GM2:GM18").Copy Cells(2, Range("IV2").End(1).Column + 1)
End Sub
0
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
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318 > ripi
 
fallait 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
ripi > michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention  
 
Je 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