Derniere cellule d'un tableau

Résolu/Fermé

freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018 - 20 déc. 2016 à 03:42
freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018 - 20 déc. 2016 à 20:21

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.

A voir également:

Derniere cellule d'un tableau
Tableau croisé dynamique - Guide
Tableau ascii - Guide
Tableau word - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide

2 réponses

Réponse 1 / 2

Utilisateur anonyme
Modifié par albkan le 20/12/2016 à 04:45

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. :)

Réponse 2 / 2

freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018
20 déc. 2016 à 15:27

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.

Utilisateur anonyme
20 déc. 2016 à 16:34

Bonjour freeycap,

Désolé, j'ai oublié quelques petites choses ;
c'est corrigé dans ton fichier Excel 2007.

Si ça te convient, merci d'aller en haut de page pour cliquer
sur le lien « Marquer comme résolu ».

Sinon, tu peux me demander une adaptation si besoin.

Cordialement. :)

freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018 > Utilisateur anonyme
20 déc. 2016 à 20:21

Merci bcp pour ton temps...
Ça marche nickel...

Y.

Discussions similaires

ou sont les bananes ?

Excel si cellule contient texte alors...

Bibliothèque

Trouver le nom d'un tableau avec sa photo.

Discussions similaires

Newsletters