Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 VBA / compter sur une ligne le nombre de cellules non vides de colonnes discontinues

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

clairedost

XLDnaute Nouveau
Bonjour et bonne année !

J'ai cherché sur plusieurs forums, et n'ai pas réussi à cherché ce que je cherchais, donc j'espère trouvé une réponse ici.

Très jeune débutante en VBA, j'aurais aimé savoir s'il est possible de compter sur une ligne le nombre de cellules non-vides de plusieurs colonnes discontinues, à chaque fois que l'on renseigne des données dans l'une d'elles.

Pour plus de clarté, je joins un fichier qui explique ma requête.

Je vous remercie d'avance de votre bienveillance à tous!
 

Pièces jointes

Solution
Sinon en VBA avec une événementielle :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:M10000")) Is Nothing Then
        L = Target.Row: s = 0
        If Cells(L, "B") <> "" Then s = s + 1
        If Cells(L, "E") <> "" Then s = s + 1
        If Cells(L, "J") <> "" Then s = s + 1
        If Cells(L, "M") <> "" Then s = s + 1
        Cells(L, "A") = s
    End If
End Sub
La mise à jour s'effectue dès qu'on change une valeur dans les colonnes B à M.
Trier par date Trier par votes
Bonjour Clairedost, et bienvenue sur XLD,
Pourquoi du VBA, vous y tenez ?
Car une simple formule en A2 :
VB: 
=SI(ESTVIDE(B2);0;1)+SI(ESTVIDE(E2);0;1)+SI(ESTVIDE(J2);0;1)+SI(ESTVIDE(M2);0;1)
 
Vote positif 0 Vote négatif
Sinon en VBA avec une événementielle :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:M10000")) Is Nothing Then
        L = Target.Row: s = 0
        If Cells(L, "B") <> "" Then s = s + 1
        If Cells(L, "E") <> "" Then s = s + 1
        If Cells(L, "J") <> "" Then s = s + 1
        If Cells(L, "M") <> "" Then s = s + 1
        Cells(L, "A") = s
    End If
End Sub
La mise à jour s'effectue dès qu'on change une valeur dans les colonnes B à M.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
bonjour,
comme je l'expliquais dans la pj, les formules alourdissent mon fichier (plus de 1000 lignes, et une cinquantaine de colonnes) qui est déjà bien lourd, et cela évite aussi que l'on supprime par inadvertance les formules, car la feuille n'est pas protégée.
 
Vote positif 0 Vote négatif
Hello,

Juste pour info, le VBA peut aussi ralentir et si tu te loupes, tu ne peux pas revenir en arrière avec le VB, avec les formules, tu peux quand même 🙂 .
 
Vote positif 0 Vote négatif
Etoto, je suis consciente de tout ça, mais je me répète ce fichier est déjà lourd, et sera manipulé par plusieurs personnes. Donc j'aimerais automatiser le maximum de choses.

En tous cas sylvanu, un grand merci à vous, j'ai adapté votre code à mon fichier, et tout fonctionne à merveille.

Cela a l'air tellement limpide pour vous, ça m'impressionne. Peut-être devrais-je prendre des cours!

Encore mille merci une nouvelle fois, ne changez rien, vous êtes au top!!

Bonne fin de journée !
 
Vote positif 0 Vote négatif
Vous avez surement remarqué le défaut de cette macro, on ne peut pas savoir si on est dans le tableau ou non. Aucun critère ne permet de le savoir.
Si vous changez une valeur hors tableau, la cellule en A sera réactualisée.
 
Vote positif 0 Vote négatif
sylvanu à dit:
Vous avez surement remarqué le défaut de cette macro, on ne peut pas savoir si on est dans le tableau ou non. Aucun critère ne permet de le savoir.
Si vous changez une valeur hors tableau, la cellule en A sera réactualisée.
Cliquez pour agrandir...
Je n'ai pas remarqué de défaut... pour moi il fonctionne à la perfection... mais vue que je n'y comprends pas grand chose en vba, vous, vous avez l'oeil qui voit tout
 
Vote positif 0 Vote négatif
Dans ma PJ, placez vous en B20 et tapez 1. Alors A20 vaut 1.
Tout dépend de votre contexte, mais là clairement on est hors du tableau, et A20 ne devrait pas bouger.
Mais comme il n'est pas possible dans cette PJ de mesurer l'étendue du tableau, on n'a guère le choix. 🙂
 
Vote positif 0 Vote négatif
Bonjour à tous

Une variante qui ne concerne que les colonnes B, E,J et M pour la mise à jour de la colonne A

VB: 
Sub Worksheet_Change(ByVal Target As Range)
Dim Cptr&, i&
If Not Application.Intersect(Target, Range("B:B,E:E,J:J,M:M")) Is Nothing Then
    For i = 2 To Worksheets("Feuil1").UsedRange.Rows.Count
        If Range("B" & i) > "" Then Cptr = 1
        If Range("E" & i) > "" Then Cptr = Cptr + 1
        If Range("J" & i) > "" Then Cptr = Cptr + 1
        If Range("M" & i) > "" Then Cptr = Cptr + 1
        Range("A" & i) = Cptr
        Cptr = 0
    Next i
End If
End Sub

@Phil69970
 
Vote positif 0 Vote négatif
Vue comme ça, effectivement. Mais cela n'a aucune importance, car avant que j'arrive en dehors de mon tableau, je vais avoir beaucoup de marge...
 
Vote positif 0 Vote négatif
Merci de votre retour, mais celui de sylvanu fonctionne beaucoup mieux.
En effet, je ne dis pas que le vôtre ne fonctionne pas, mais la colonne A se met à jour dans son intégralité, même si les autres sont vides...
 
Vote positif 0 Vote négatif
Salut @sylvanu
Une méthode pour évaluer l'étendue dans ce classeur :
VB: 
Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
Dim L As Integer
    Select Case True
        Case Target.Count > 1
        Case Intersect(Target, Range("A2:" & LC.Address)) Is Nothing
        Case Else
            Application.EnableEvents = False
            L = Target.Row
            Cells(L, "A") = WorksheetFunction.Count(Cells(L, "B"), Cells(L, "E"), Cells(L, "J"), Cells(L, "M"))
            Application.EnableEvents = True
    End Select
End Sub
Function LC() As Range
    With Application.FindFormat
        .Clear: .Borders.LineStyle = xlNone
    End With
    Set LC = Columns("M").Find(What:="", SearchFormat:=True)
    If LC Is Nothing _
    Then Set LC = UsedRange.SpecialCells(xlLastCell) _
    Else Set LC = LC.Offset(-1)
End Function
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
195
job75
D
  • Résolu(e)
Microsoft 365 Comptage du nombre de cellules non vides, par groupe
Réponses
10
Affichages
214
sylvanu
  • Question Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2021 Compter le nombre de cellules qui contiennent la date d'aujourd'hui
2
Réponses
17
Affichages
1 K
job75
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
677
Usine à gaz
F
  • Question Question
XL 2019 Compter le nbr de cellule non vide, mais sans les doublons
Réponses
8
Affichages
759
xUpsilon
  • Question Question
Microsoft 365 Additionner les 7 cellules non vides de la colonne B en dessus
2
Réponses
15
Affichages
1 K
TooFatBoy
S
  • Résolu(e)
XL 2016 Comment compter le nombre de valeur lorsqu'on applique un filtre sans compter le nombre de ligne
2
Réponses
17
Affichages
1 K
TooFatBoy
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
1 K
PatFr38
E
  • Question Question
XL 2021 Identifier de manières fiables les colonnes d'un fichier Excel pour une macro VBA
Réponses
2
Affichages
498
excelentille
E
A
  • Question Question
XL 2019 Copier une plage dans un fichier fermé en VBA
2
Réponses
21
Affichages
2 K
Amilo
A
V
  • Résolu(e)
Microsoft 365 Compter le nombre de ligne avec au moins un critère sur plusieurs colonnes
Réponses
4
Affichages
752
R@chid
D
  • Question Question
Microsoft 365 Compter le nombre d'occurrences et repartir de zéro si texte ou valeur à 0
Réponses
4
Affichages
730
DJO74540
D
W
  • Question Question
XL 2016 Comptabilisation de prénoms rangés en groupes dans des cellules, avec retours à la ligne
Réponses
14
Affichages
1 K
Webperegrino
W
M
  • Question Question
Microsoft 365 Masquer des colonnes en fonction des valeurs sur une ligne
Réponses
3
Affichages
999
MAMEL
M
T
  • Question Question
Microsoft 365 Compter le nombre de cellules filtrées
2
Réponses
15
Affichages
2 K
team18fr
T
T
  • Question Question
XL pour MAC Recherche de mots clefs dans une cellule Texte
Réponses
2
Affichages
1 K
Tsr75a
T
M
  • Question Question
XL 2016 VBA - Traitement de données avec valeurs identiques dans un dictionnaire
2
Réponses
28
Affichages
2 K
Mak_tarmak
M
  • Question Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
1 K
Droopyougo
L
  • Question Question
XL 2016 Comment faire une liste sans doublons de plusieurs colonnes avec des contenus doublonnés sur différentes lignes SANS TCD
Réponses
10
Affichages
1 K
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…