Copie dans un autre fichier

[Jérome]

Bonjour à tous et à toutes!

Il s'agit de me creer un fichier qui contient une historique des impressions. Je vous explique ce qui m'embete : je souhaiterais en VBA copier une plage de données vers un autre fichier. Ensuite lors de la meme operation, j'aimerais ne pas ecraser les anciennes valeurs et donc faire le collage sur la colonne d'à coté.

En vous remerciant d'avance !

 

[Creepy]

Hello,

Ca manque d'information !

Nb de cellules à copier, sur quelle feuille, etc ...

Un exemple aurait été pas mal.

enfin voici un bout de code qui te permet de trouver la dernière première cellule vide :

[

Private Sub dede()
Dim I As Integer
I = Range('A1').End(xlDown).Row
I = I + 1
MsgBox 'premiere cellule vide est en A' & I, vbOKOnly, 'Alors ...'
End Sub

++

Creepy

 

[Bernard_XLD]

Bonjour Jérome, Creepy, le forum

Voici quelques codes exemples qui permettent de trouver dans l'ordre, la dernière cellule d'une ligne, la dernière cellule d'une colonne, la première cellule vide aprés la dernière cellule utilisée d'une ligne, la première cellule vide aprés la dernière cellule utilisée d'une colonne.

Cordialement, A+

Sub Derniere_Cellule_Ligne()
Dim Num_Ligne As Long
Num_Ligne = ActiveCell.Row
Range('IV' & Num_Ligne).End(xlToLeft).Select
End Sub
Sub Derniere_Cellule_Colonne()
Dim Num_Col As Integer
Num_Col = ActiveCell.Column
Range('A1').Offset(65535, Num_Col - 1).End(xlUp).Select
End Sub
Sub Derniere_Cellule_Ligne_Vide()
Dim Num_Ligne As Long
Num_Ligne = ActiveCell.Row
If Range('IV' & Num_Ligne).End(xlToLeft).Column < 256 Then
Range('IV' & Num_Ligne).End(xlToLeft).Offset(0, 1).Select
Else
MsgBox 'Toutes les colonnes sont utilisées.', vbInformation
End If
End Sub
Sub Derniere_Cellule_Colonne_Vide()
Dim Num_Col As Integer
Num_Col = ActiveCell.Column
Range('A1').Offset(65535, Num_Col - 1).End(xlUp).Offset(1, 0).Select
End Sub