derniere cellule d'une ligne

[steph]

Bonjour le forum,

je chercher comment renvoyer une valeur à la derniere colonne d'une ligne.
(n'importe la quelle)
Puis combiner la recherche de la derniere ligne d'une colonne à la derniere colonne d'une ligne.

c.a.d que dans une plage de donnée extraite à l'aide

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Aligne = Sheets(2).Range("H65536").End(xlUp).Row
PlageA = Sheets(2).Range("H5:H" & Aligne).Address
ListBox1.RowSource = "BD!" & PlageA
ListBox1.ColumnWidths = "2 cm"
End If
End Sub

ajouter des informations sur cette ligne sur la derniere colonne libre.

merci j'espere avoir été assez claire.

Steph

 

[steph]

Apres de longue recherche dans les archives du forum j'ai trouvé une formule qui me semble interessante.

derCol = Cells.Find("*", [A2], , , 2, 2).Column

je la pose ici peut etre que cela pourra servir a qqun d'autre.

il me reste à voir comment imbriquer la recherche de cellule dans une plage avec la la recherche de la derniere colonne d'une ligne ci dessus.

Merci,

steph

 

[m.lecxe]

salut,
juste un lien pour d'aiguiller.

http://jacxl.free.fr/cours_xl/cours_xl_jac.html#der_cel

@+