Coller une plage par vba

[Guims]

Bonsoir le forum

petit problème de programmation (je débute en vba) je voudrais coller automatiquement une plage dans un tableau après la derniere cellule pleine...
mais je ne trouve pas comment selectionner la premiere cellule vide de la colonne A pour ensuite coller mon texte...
voir tableau et macro dans fichier joint

Merci de votre aide !

Bonne nuit ! ;-)

Guillaume

 

[Hervé]

Bonsoir

Je n'ai pas ouvert ta pièce jointe, mais pour trouver la première cellule vide dans une colonne, il faut chercher la dernière cellule non vide et incrémenter ce résultat de 1 :

dim ligne as integer
' ce code va te donner le numéro de la derniere ligne non vide dans la colonne A :
ligne=range("a65530").end(xlup).row
'donc :
'ce code te donnera la première cellule vide de la colonne A
ligne=range("a65530").end(xlup).row+1

Voila,

Salut
Hervé

 

[Guims]

Merci Hervé !
Je n'avais pas du tout le meme code !
Merci !

Bonsoir !
Guillaume

 

[Guims]

Bonsoir le forum
bonsoir Herve

j'ai essaye avec ca :
Range("B3:H3").Select
Selection.Copy
Windows("patientx.xls").Activate

Range("a65530").End(xlUp).Row
ActiveSheet.Paste
End Sub

mais ca colle chaque fois ma sélection sur la 2eme ligne...
:-(

 

[Hervé]

Bonsoir

Je pense que tu veux renvoyer les données vers la feuille données du classeur patientx.xls :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/02/2005 par Sarramagnan Guillaume
'
Dim CelluleVide As Long
Dim ligne As Integer
'
Range("B3:H3").Select
Selection.Copy
Windows("patientx.xls").Activate
ligne = Workbooks("patientx.xls").Sheets("Données").Range("a65530").End(xlUp).Row + 1
Workbooks("patientx.xls").Sheets("Données").Select
Range("a" & ligne).Select

ActiveSheet.Paste

End Sub

Par contre, si je peux me permettre un conseil , lorsque tu travailles sur plusieurs fichiers, nommes bien tout : les workbooks, les sheets..

Salut
Hervé

 

[Guims]

Ca marche comme je voulais !
Merci de l'aide et des conseils ! ;-)

Guillaume