Macro

Re : Macro

Bonjour
Je pense que cela doit être de cette forme
Derniere Ligne = Range("ta ligne").End(xlDown).Row

Re : Macro

Merci pour la proposition mais je ne suis pas arrivée à la faire fonctionner
J'ai trouvé une formule qui ne va pas mal du style Range("IV1").End(xlToLeft).Offset(0, 1).Select

Merci encore
Laraviole

Re : Macro

Re
en complément car je devais encore dormir ce matin.

Sub essai1()
'nombre de colonnes d'un tableau
nbcolonnes = ActiveSheet.UsedRange.Columns.Count
MsgBox nbcolonnes
End Sub
Sub essai2()
'extreme droite d'un tableau sans vide
choix = Selection.CurrentRegion.End(xlToRight).Columns.Offset(0, 1).Select
End Sub
Sub essai3()
'1 colonne vide de de la rangée "A"
choix = Range("A1").End(xlToRight).Columns.Offset(0, 1).Select
End Sub
Sub essai4()
choix = Range("IV1").End(xlToLeft).Columns.Offset(0, 1).Select
End Sub
Sub essai5()
'Dernière cellule dans la plage utilisée en bas d'un tableau
choix = Range("A1").SpecialCells(xlCellTypeLastCell).Columns.Offset(0, 1).Select
End Sub
Sub essai6()
'selection des cellules vide d'un tableau
choix = Range("A1").SpecialCells(xlCellTypeBlanks).Activate
End Sub