Récupérer dernière cellule non vide d'une colonne

[Skyna]

Bonjour à tous,

Je viens à vous pour savoir quel code utiliser pour récupérer à l'intérieur d'un userform la dernière valeur d'une colonne (B par exemple).

Je vous remercie par avance.

 

[piga25]

Re : Récupérer dernière cellule non vide d'une colonne

Bonjour,

Voir si cela peut convenir.

Sub DateRecup()
   With Sheets("Nom de ton feuillet")
      DateARecuperer = .Range("B" & .range("B65536").End(xlUp).Row)
   End With
End Sub

Ou plus simple, à mettre dans le code de USF

Range("B65000").End(xlUp).Select

 

[Victor21]

Re : Récupérer dernière cellule non vide d'une colonne

Bonsoir, Skyna, bonsoir piga25

Je crois que vous utilisez XL2007.
Préférez :

Range("B" & .Rows.Count).End(xlUp).Row

à

Range("B65536").End(xlUp)

si vous devez utiliser plus de 65536 lignes.

 

[Skyna]

Re : Récupérer dernière cellule non vide d'une colonne

Merci bcp je teste!!!!
Bonne soirée à vous

 

[Skyna]

Re : Récupérer dernière cellule non vide d'une colonne

J'ai testé, mais comment mettre ce code dans un textbox (ou un autre formulaire) et que cela récupère l'élément en question? Merci.

 

[piga25]

Re : Récupérer dernière cellule non vide d'une colonne

Bonjour Skyna, Bonjour Victor21

Comme ceci:

Votre code
textbox1=Range("B65536").End(xlUp).Value
votre code

Autrement mettre un fichier contenant l'userform avec votre textbox

 

[Skyna]

Re : Récupérer dernière cellule non vide d'une colonne

Bonjour,
Merci bcp!