adresse de cellule

beatrice2fr · 7 Avril 2010

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") .

Code:

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 · 7 Avril 2010

Re : adresse de cellule

Bonjour,

Première cellule vide d'un champ

Code:

 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

Code:

 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 · 7 Avril 2010

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é

adresse de cellule

beatrice2fr

XLDnaute Nouveau

BOISGONTIER

XLDnaute Barbatruc

beatrice2fr

XLDnaute Nouveau

Discussions similaires