XL 2019 VBA - Taille liste "Currentregion"

im_Guillaume

XLDnaute Nouveau
Bonjour,

Voici mon problème :

Dans l'onglet "Choix", la case C7 doit afficher le nombre d'éléments (le nombre de lignes) du tableau dans l'onglet "Liste".
Dans la version finale, la liste sera évolutive (elle se raccourcira et rallongera).

Voici mon code (qui fonctionne en partie mais me renvoie un message d'erreur) :

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Choix").Range("C7") = Sheets("Liste").Range("C4").CurrentRegion.End(xlDown).Row
End Sub



Merci pour toute l'aide que vous m'apporterez!
 

Pièces jointes

  • Guillaume_ED_v03.xlsm
    15.5 KB · Affichages: 7

im_Guillaume

XLDnaute Nouveau
bonjour

A tester
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
   Range("C7") = Sheets("Liste").Range("C4").CurrentRegion.End(xlDown).Row
    Application.EnableEvents = True
End Sub
Bonjour,
Merci pour votre réponse, cela fonctionne bien sur l'exemple!

Je n'arrive juste pas à comprendre pourquoi la fonction me donne un nombre bien trop important dans mon fichier de travail réel... Je vais creuser là dessus.

Merci encore!
 

Discussions similaires

Statistiques des forums

Discussions
312 220
Messages
2 086 376
Membres
103 198
dernier inscrit
CACCIATORE