Nombre si avec plage dynamique
Eldavidos
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous et à toutes,
Est-ce que quelqu'un saurait comment compter en vba (et non manuellement) le nombre de lignes si les valeurs des cellules sont supérieures à deux le tout de la cellule B2 à la dernière cellule de la colonne B en inscrivant le résultat dans la dernière ligne +1 ?
D avance merci et bonne journée à tous
Cordialement, David
Est-ce que quelqu'un saurait comment compter en vba (et non manuellement) le nombre de lignes si les valeurs des cellules sont supérieures à deux le tout de la cellule B2 à la dernière cellule de la colonne B en inscrivant le résultat dans la dernière ligne +1 ?
D avance merci et bonne journée à tous
Cordialement, David
A voir également:
- Nombre si avec plage dynamique
- Tableau croisé dynamique - Guide
- Exemple tableau croisé dynamique télécharger - Télécharger - Tableur
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Liste déroulante dynamique excel - Guide
1 réponse
Bonjour David, bonjour le forum,
peut-être comme ça :
peut-être comme ça :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim C As Integer 'déclare la variable C (Compteur)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée de la colonne B de l'onglet O
TV = O.Range("B1:B" & DL) 'définit le tableau des valeurs TV
For I = 2 To DL 'boucle sur toutes les lignes I du tableau des valeurs TV (de 2 à DL)
If TV(I, 1) > 2 Then C = C + 1 'si la donnée ligne I colonne 1 de TV est supérieure à 2, incrément le compteur C
Next I 'prochaine ligne de la boucle
O.Cells(DL + 1, "B").Value = C 'renvoie le compteur C dans la cellule ligne DL+1 colonne B
End Sub