Macro

[laraviole]

Bonjour tout le monde
Pour trouver la 1ére case vide d'une colonne de données afin d' en coller d'autres j'utilise la formule suivante dans ma macro : Range("A65535").End(xlUp).Offset(1, 0).Select (et ça fonctionne à merveille )
J'aimerais pouvoir faire la même chose mais sur une ligne en horizontal
Quelqu'un peut-il m'aider ?
Merci

 

[CB60]

Re : Macro

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

 

[laraviole]

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

 

[CB60]

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