reinitialiser CurrentRegion Rows Count

Bonjour
j'ai deux listes déroulantes dynamiques que je vais lire :

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Range(Range("LstAliments").Offset(1, 0), Cells(Range("LstAliments").CurrentRegion.Rows.Count, Range("LstAliments").Column)).Name = "Aliments" Range(Range("Title").Offset(1, 0), Cells(Range("Title").CurrentRegion.Rows.Count, Range("Title").Column)).Name = "Volumes" End Sub

---

Supposons que j'ai 4 lignes dans la zone de liste "aliments" et 15 dans "volumes, CurrentRegion.Rows.Count prend la valeur 15.
Supposons que j'ai 15 lignes dans la zone de liste "aliments" et 4 dans "volumes, CurrentRegion.Rows.Count prend la valeur 15.
Comment réaliser le comptage de chaque liste dynamique ?

Bonjour,

si tu veux utiliser currentregion il faut que ce soit des cellules isolées. Donc insérer des colonnes vides pour séparer.

Sinon la dernière cellule utilisée d'une colonne est :

Code:

---

cells(rows.count,n°Colonne).end(xlup)

---

Sa ligne étant .row
eric

merci

Bonjour,

L'idéal serait plutôt de le faire comme ceci (PS : pour le code utilisé le bouton #) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) Dim DL As Long   If Not Application.Intersect(Target, Range("LstAliments")) Is Nothing Then DL = Cells(Rows.Count, Target.Column).End(xlUp).Row Range("LstAliments").Resize(DL - 1).Offset(1).Name = "Aliments" End If   If Not Application.Intersect(Target, Range("Title")) Is Nothing Then DL = Cells(Rows.Count, Target.Column).End(xlUp).Row Range("Title").Resize(DL - 1).Offset(1).Name = "Volumes" End If   End Sub

---

Bonjour lolothom,

Les réponses ont-elles répondu à votre demande ??
Si oui, n’oubliez de mettre le sujet en résolu ;)