Dernière ligne...

[winnono]

Salut à tous,
Voilà, comment pourrais-je dire en macro, que les valeurs que je rentre dans une boite questionnaire, sont à inscrire à la première ligne vide qu'il rencontre?
Par exemple, si A1 à D8 est rempli, il faut qu'il inscrive à partir de la ligne A8?

 

[Épaf]

Re : Dernière ligne...

    PremLigV = Range("A65535").End(xlUp).Row + 1

Ce code te donne la première ligne vide de la colonne A

PremLigV = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1

Donne la première ligne vide absolue de ta feuille de calculs.
Mais il existe d'autres syntaxes selon les cas. Regarde également à CurrentRegion dans l'aide.
Bonne journée

 

[Cousinhub]

Re : Dernière ligne...

Bonjour winnono,je suppose "à partir de A9"?
tu détermines le premier numéro de ligne vide :

Dim Derlig As Long
Derlig = Range("A65000").End(xlUp).Row + 1

et à partir de cela, tu affectes les valeurs dans cette ligne

Cells(Derlig, 1).Value = TextBox1.Value
Cells(Derlig, 2).Value = "etc...."

 

[winnono]

Re : Dernière ligne...

Merci 2paf, je tente bonne journée...

 

[winnono]

Re : Dernière ligne...

A essayer aussi, c'est tellement simple VBA, Merci les gars...