Derniere cellule d'un tableau
Résolu
freeycap
Messages postés
87
Date d'inscription
Statut
Membre
Dernière intervention
-
freeycap Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
freeycap Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Derniere cellule d'un tableau
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Supprimer dernière page word - Guide
2 réponses
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 :
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 :
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. :)
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. :)
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.
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.
