Derniere cellule d'un tableau Résolu

Question

Bonjour,
Dans le Label3 de mon Userform3, je veux copier la valeur de la dernière cellule non vide de la colonne B de ma Feuille Data1.
J'ai fait mon code pour avoir l'info à l'ouverture de mon Userform :
Sub Userform3_activate()
With Worksheets("Data1")
Label3.Value = Worksheets("Data1").Range("B" & Rows.Count).End(xlUp).Value
End With
End Sub
Ca ne marche pas... y'a comme rien qui se passe...
Merci d'avance pour l'aide.
Y.

Utilisateur anonyme · Answer

Bonjour freeycap,
Il te suffit de remplacer .Value par .Row ; de plus, inutile de répéter
Worksheets("Data1") puisqu'il est inclus dans le bloc With :

Sub Userform3_activate() 
  With Worksheets("Data1") 
    Label3.Value = .Range("B" & Rows.Count).End(xlUp).Row
  End With 
End Sub

Attention de bien laisser le point qui est devant Range !
------------------------------------
Mais si la référence du With est utilisée une seule fois,
alors ton With est inutile et tu peux t'en passer :

Sub Userform3_activate() 
  Label3.Value = Worksheets("Data1").Range("B" & Rows.Count).End(xlUp).Row
End Sub

Mais bien sûr, il faut alors remettre Worksheets("Data1")
devant le Range !
------------------------------------
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement.  :)

freeycap · Answer

Bonjour,
Merci beaucoup pour ton aide.
Alors, en fait, ca ne marche pas non plus.
J'ai fait un nouveau dossier qui est en piece jointe, juste pour la macro.
Je pensais que ça aurait pu être le reste de mon application qui gène, mais non, ca ne marche pas plus. 
Pourtant le code me semble bien correct.
https://www.cjoint.com/c/FLuoybOw1jH
Merci d'avance,
Y.

Derniere cellule d'un tableau

2 réponses

Newsletters