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

[lorent etienne]

Bonjour,

j'ai fait une petite macro qui m'envoit des données dans les collones d'un grand tableau. Après avoir coller les données, je voudrais que ce soit la première cellule de la colonne suivante qui soit activée pour le collage suivant. Ainsi de suite au fur et à mesure que mon tableau se rempli.

Ca ne doit pas être sorcier mais je ne trouve pas.

merci de me consacrer du temps.

Etienne

 

[Hervé]

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é

 

[@+Thierry]

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

 

[lorent etienne]

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