Discussion :

[lolothom]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[eriiic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sa ligne étant .row
eric

[lolothom]

merci

[RyuAutodidacte]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RyuAutodidacte]

Bonjour lolothom,

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