adresse de cellule

[beatrice2fr]

bonjour
J'ai récupérée le code suivant qui permet de trouver la premiere cellule vide dans une plage ( exemple A3:Z3 que l'on va nommer "tablo") .

Sub azer()
ligDer = [tablo].Find("*", LookIn:=xlValues, _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
premCol_T = [tablo].Item(1).Column
colDer_T = [tablo].Columns.Count + premCol_T - 1
colDer = Range(Cells(ligDer, premCol_T), Cells(ligDer, colDer_T)).Find("*", LookIn:=xlValues, _
    SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
MsgBox Cells(ligDer, colDer + 1).Address
End Sub

Mon probleme est que je voudrai utiliser l'adresse trouvé dans une macro .
Par exemple dans une macro qui copie le contenu de la cellule G27, pouvoir coller dans la cellule trouvé par Sub azer.
j'espere etre precise....

 

[BOISGONTIER]

Re : adresse de cellule

Bonjour,

Première cellule vide d'un champ

 Set champ = Range("B6:D10")
 Set temp = Cells(champ.Find("*", , , , xlByRows, xlNext).Row, champ.Find("*", , , , xlByColumns, xlNext).Column)
 MsgBox temp.Address

Dernière cellule vide d'un champ

 Set champ = Range("B6:D10")
 Set temp = Cells(champ.Find("*", , , , xlByRows, xlPrevious).Row, champ.Find("*", , , , xlByColumns, xlPrevious).Column)
 MsgBox temp.Address

http://boisgontierjacques.free.fr/pages_site/cellules.htm#DerniereLigne

JB
Formation Excel VBA JB

 

[beatrice2fr]

Re : adresse de cellule

oui, mais le probleme n'est pas veritablement de trouver la cellule vide, car le code fontionne bien, mais c'est pour utiliser le resultat de la recherche. Dans mon cas je voudrais coller le contenu d'une cellule a l'adresse trouvé