Ecrire dans les Colonnes de la première ligne Vide

[Jurassix]

Bonjour a tous,

J'ai fait un UserForm afin de saisir des données. L'action sur le bouton enregistrer doit dispatcher ces informations dans les différentes lignes de la première colonne vide.

Avec un peu de recherche, j'ai trouvé comment récupérer le numéro de la première ligne vide ;

LigneVide = Range("A1").End(xlDown).Row + 1

Dejà, j'ai bon pour le moment?

Ensuite, dans la colonne A, je veux y mettre le contenu de VariableA, dans la colonne B VariableB etc...

Comment faire?

Quand je connais le numéro de la ligne, je fais habituellement :

Range("B63").Select
ActiveCell.FormulaR1C1 = VariableB

Mais là, avec mon "LigneVide", dois je faire :

Range("B"&LigneVide).Select
ActiveCell.FormulaR1C1 = VariableB

Merci

 

[tototiti2008]

Re : Ecrire dans les Colonnes de la première ligne Vide

Bonjour Jurassix,

LigneVide = Range("A1").End(xlDown).Row + 1
Dejà, j'ai bon pour le moment?

Oui, ça fonctionne si la colonne A n'est pas vide jusqu'en bas de la liste. Si elle peut être vide, il vaut peut-être mieux faire

LigneVide = Range("A65536").end(XlUp).Row + 1

Range("B" & LigneVide).Select
ActiveCell.FormulaR1C1 = VariableB

Oui, c'est correct mais tu n'es pas obligé de sélectionner une cellule pour y mettre une valeur.

Par exemple :

Range("B" & LigneVide).Value = VariableB

 

[Jurassix]

Re : Ecrire dans les Colonnes de la première ligne Vide

Me voilà rassuré, merci beaucoup!

Et emrci pour l'astuce.