Problème de cellule Visual Basic

Question

Bonjour,

Je suis actuellement en pleine programmation Visual Basic sous Excel, et j'aurais une question concernant l'adressage des cellule, je m'explique :

j'ai un userform, dans lequel on rentre 1 donnée, je voudrais que lorsque on clique sur OK, cette donnée aille s'écrire dans une cellule vide de la colonne dédié à cette donnée, et que si je rentre une nouvelle donnée dans mon userform, celle ci aille s'écrire dans la cellule dessous la cellule précédente, et ainsi de suite.

Programmer l'écriture de la donnée ne me pose pas de problème, c'est le fait de gérer si la cellule est vide on écrit dedans, sinon on écrit dans la suivante, et que le processus puisse se répéter.

Merci d'avance et bon weekend

eriiic · Answer

Bonjour,

Pour avoir la ligne de la dernière cellule vide de la colonne A :
derlig = [A65536].end(xlup).row + 1
(sur 2003, sur 2007 : [A1048576])

eric

gbinforme · Answer

bonjour Val2202, Éric,

Le codage indépendant de la version afin de distribuer le classeur multi-versions peut se faire de cette façon :

Dim derlig As Long
derlig = Cells(Columns(1).Cells.Count, "A").End(xlUp).Row + 1

En remplaçant le "A" par la colonne concernée.

Val2202 · Answer

Merci à vous 2 pour vos réponses !

Cependant je ne suis pas sur d'avoir compris : si ma variable ( exple heure_1 ) doit etre écrite dans la première cellule vide de la colonne de mon tableau ( j'ai nommé une plage de cellule, qui correspond à ma colonne ), je dois utiliser une variable comme derlig également ?

Merci

gbinforme · Answer

bonjour


En supposant que ta plage nommée tu l'ai appelée : "toto"
Tu peux renseigner ta première cellule vide en écrivant :

Cells(Cells(Columns(1).Cells.Count, [toto].Column).End(xlUp).Row + 1, [toto].Column) = heure_1

Problème de cellule Visual Basic

4 réponses

Discussions similaires

Newsletters