me placer dans la cellule à côté en fin de macro

Bonjour

Difficile de répondre sans voir le code.

soit tu sais exactement ou tu veux te replacer : range("tacellule").select

sois tu ne sais pas ou tu dois te placer : utilise activecell.offset(ligne, colonne) , sinon : Cells(1, ActiveCell.Column + 1).Select

salut
Hervé

Bonjour Etienne, Hervé

Je pense qu'Etienne cherche simplement à trouver la dernière cellule non vide, afin de pouvoir placer la copie suivante à la suite.

Ce Code permettra de trouver la première colonne vide dans la ligne "1" de la feuille "Feuil1" :

Sub FindLastEmptyCellByColumn()
Dim Colonne As Integer


&nbsp;&nbsp;&nbsp;With Sheets("Feuil1") '<<< A adapter
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Colonne = .Range("IV1").End(xlToLeft).Column + 1

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cells(1, Colonne).Select
&nbsp;&nbsp;&nbsp;End With

End Sub

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤


D'une autre manière ce Code permettra de trouver la première cellule vide dans la colonne "A" de la feuille "Feuil1" :

Sub FindLastEmptyCell()
Dim Ligne As Long


&nbsp;&nbsp;&nbsp;With Sheets("Feuil1") '<<< A adapter
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ligne = .Range("A65536").End(xlUp).Row + 1

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Range("A" & Ligne).Select
&nbsp;&nbsp;&nbsp;End With

End Sub

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤


Par extrapolation, ce Code permettra de trouver la première cellule vide dans la derniere colonne non vide de la feuille "Feuil1" :

Sub FindLastEmptyCellLastColumnLastRow()
Dim Colonne As Integer
Dim Ligne As Long


&nbsp;&nbsp;&nbsp;With Sheets("Feuil1") '<<< A adapter
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Colonne = .Range("IV1").End(xlToLeft).Column
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ligne = .Cells(65536, Colonne).End(xlUp).Row + 1

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cells(Ligne, Colonne).Select
&nbsp;&nbsp;&nbsp;End With

End Sub


Bon après midi
@+Thierry

J'ai pas le temps d'essaiyer ce WE mais je pense trouver mon bonheur dans tes tuyaux.

Merci de me consacrer du temps et de partager tes (vaste?) connaissances.

Etienne