recherche fin de colonne systématique

[thierrypp2008]

Bonjour,

Je recherche une formule, ( inexistante sur on-line help...etc-..) voire procédure VBA de sorte que je puisse savoir quel est lq fin des cellules remplies.

Par exemple si je dispose du bloc G12:F-> end of row

quel serait la formule qui me donne la dernière cellule remplie de la colonne G et F?

Merci

Tpp

 

[kiki29]

Re : recherche fin de colonne systématique

Soir Bon, a adapter
Voir egalement dans l'aide en ligne sur End par exemple .End(xlToLeft).Column

 

[thierrypp2008]

Re : recherche fin de colonne systématique

merci,

bon...pour un débutant un peu "hard" mais surtout, c'est une formule que je dois insérer ultérieurement dans par exemple l'expression d'un polynôme de degré 5.

Merci

Tpp

 

[Gorfael]

Re : recherche fin de colonne systématique

Bonjour,

Je recherche une formule, ( inexistante sur on-line help...etc-..) voire procédure VBA de sorte que je puisse savoir quel est lq fin des cellules remplies.

Par exemple si je dispose du bloc G12:F-> end of row

quel serait la formule qui me donne la dernière cellule remplie de la colonne G et F?

Merci

Tpp

salut
Excel à du mal à pédaler en arrière 😛
Formule matricielle validée par <Ctrl>+<Shift>+<enter>
à condition que la formule ne soit pas dans les cellules de F12 à G dernière ligne
{=MAX((F12:G65536<>"")*LIGNE(F12:G65536))}
les{} sont ajoutées par Excel lors de la validation, signifiant que c'est bien une formule matricielle

A+

 

[kiki29]

Re : recherche fin de colonne systématique

Re, voir Tst3 dans UsedRange.zip et adapter

 

[abc]

Re : recherche fin de colonne systématique

Bonsoir,
a adapter a ton fichier.
VBA avec un double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.Goto REFERENCE:="R300C2"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("a1").Select
End Sub
A +

 

[kiki29]

Re : recherche fin de colonne systématique

re, pour la derniere ligne remplie dans une colonne donnée

iLastRow = Range("E65536").End(xlUp).Row