XL 2019 VBA - Taille liste "Currentregion"

im_Guillaume · 13 Février 2022

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!

JHA · 13 Février 2022

Bonjour à tous,

Par formules

JHA

JM27 · 13 Février 2022

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

im_Guillaume · 13 Février 2022

JHA à dit:
Bonjour à tous,

Par formules

JHA

Bonjour,
Merci beaucoup pour votre réponse!

Pouvez-vous m'expliquer car je ne comprends pas où la colonne "Prénom" intervient? J'ai bien compris qu'il fallait la rentrer dans le gestionnaire des noms mais pourquoi y fait-on appel?

Merci encore,

im_Guillaume · 13 Février 2022

JM27 à dit:

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!

im_Guillaume · 13 Février 2022

im_Guillaume à dit:
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!

Ça fonctionne, merci encore!

im_Guillaume · 13 Février 2022

im_Guillaume à dit:
Bonjour,
Merci beaucoup pour votre réponse!

Pouvez-vous m'expliquer car je ne comprends pas où la colonne "Prénom" intervient? J'ai bien compris qu'il fallait la rentrer dans le gestionnaire des noms mais pourquoi y fait-on appel?

Merci encore,

Ça fonctionne également, merci beaucoup!

XL 2019 VBA - Taille liste "Currentregion"

im_Guillaume

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

JM27

XLDnaute Barbatruc

im_Guillaume

XLDnaute Nouveau

im_Guillaume

XLDnaute Nouveau

im_Guillaume

XLDnaute Nouveau

im_Guillaume

XLDnaute Nouveau

Discussions similaires