Compter Colonnes contenant valeur numérique

Créer une discussion
Répondre

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
R

r3dkross

XLDnaute Nouveau
Bonjour à tous, bonjour le forum,

Je reviens à nouveau vers vous pour tenter de solutionner un problème qui a priori semble simple mais que je n'arrive pas à résoudre 🙂

J'aimerais compter les colonnes qui ne contiennent pas de valeurs numériques dans leur colonne.

J'arrive à compter le nombre de colonne avec NB.SI(A8:AM8;"*"), mais je ne vois pas comment insérer une condition "SI colonne contient valeur numérique, compter, sinon ne pas compter" 🙂

Je joins un exemple en pièce jointe.

Merci beaucoup pour votre aide!

Bien cordialement,

rk
 

Pièces jointes

Solution
job75
Il y a même un jour avec 3 colonnes en AS:AU !!!

Bon j'ai horreur de me prendre la tête et puisque vous parlez du nombre de colonnes voyez le fichier joint avec ces 2 fonctions VBA :
VB: 
Function NbColSansNum(plage As Range)
Dim rc&, col As Range
rc = plage.Rows.Count
With Application
    For Each col In plage.Columns
        If .CountA(col) = rc Then If .Count(col) = 0 Then NbColSansNum = NbColSansNum + 1
    Next
End With
End Function

Function NbColAvecNum(plage As Range)
Dim rc&, col As Range
rc = plage.Rows.Count
With Application
    For Each col In plage.Columns
        If .CountA(col) = rc Then If .Count(col) Then NbColAvecNum = NbColAvecNum + 1
    Next
End With
End Function
Elles sont utilisées dans les cellules G12 et G13.

A+
Trier par date Trier par votes
Bonjour Staple et merci,

Malheureusement il me compte l'ensemble des valeurs présentes, hors je recherche à compter le nombre de colonnes n'ayant pas de valeurs numériques en dessous du jour.

Est-il possible via un code vba de supprimer les colonnes ne comprenant que du texte en dessous des jours, dès lors je pourrais les compter avec NB.SI?

Merci encore pour votre aide.

rk
 
Vote positif 0 Vote négatif
Bonsoir le fil, r3dkross

r3dkross
Je ne suis pas d'accord
La formule fonctionne
Faire ce petit test pour s'en convraincre 😉
Lancer la macro ci-dessous sur une feuille vierge
VB: 
Sub test()
[A1:H1] = Array(1, "a", 2, "b", "=TODAY()", 3, "Staple", 1600)
[J1] = "=SUMPRODUCT(--ISNUMBER(RC[-9]:RC[-2]))": [K1] = "'<- Valeur numérique"
[J2] = "=COUNTIF(R[-1]C[-9]:R[-1]C[-2],""*"")": [K2] = "'<- Valeur texte"
[A1,C1,E1:F1,H1,J1].Interior.Color = vbYellow
[B1,D1,G1,J2].Interior.Color = vbGreen
End Sub
Et regarder les formules en J1 et J2
 
Vote positif 0 Vote négatif
Bonsoir r3dkross, Edit : JM,

Je ne comprends pas, on parle ici de "compter le nombre de colonnes" et dans le fichier de "compter le nombre de jours ouvrés" ???

Le fichier a-t-il été modifié ???

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir à tous,
Merci à tous pour vos retours je m’excuse si ce n’est pas très clair, je vais essayer de reprendre:

Je souhaite compter le nombre de jours ouvrés en ligne A1:BM1, qui sont en fait des colonnes. Un jour prend 2 colonnes pour ne rien arranger 🙂

Cependant je voudrais que lorsqu’une journée/colonne contient uniquement des « Repos » et/ou cellules vides, par Exemple « Dim 03 » en cellule E1, elle ne soit pas comptabilisée. Tout comme Dim 17 en cellule S1.

J’avais donc pensé à faire supprimer la colonne/jour si elle ne contient que du texte car si elle contient des nombres c’est que des personnes travaillent.

Voilà j’espère que c’est plus clair 🙂
encore merci pour votre aide précieuse!!
Bien cordialement

Rk
 
Vote positif 0 Vote négatif
Il y a même un jour avec 3 colonnes en AS:AU !!!

Bon j'ai horreur de me prendre la tête et puisque vous parlez du nombre de colonnes voyez le fichier joint avec ces 2 fonctions VBA :
VB: 
Function NbColSansNum(plage As Range)
Dim rc&, col As Range
rc = plage.Rows.Count
With Application
    For Each col In plage.Columns
        If .CountA(col) = rc Then If .Count(col) = 0 Then NbColSansNum = NbColSansNum + 1
    Next
End With
End Function

Function NbColAvecNum(plage As Range)
Dim rc&, col As Range
rc = plage.Rows.Count
With Application
    For Each col In plage.Columns
        If .CountA(col) = rc Then If .Count(col) Then NbColAvecNum = NbColAvecNum + 1
    Next
End With
End Function
Elles sont utilisées dans les cellules G12 et G13.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
job75 à dit:
Il y a même un jour avec 3 colonnes en AS:AU !!!

Bon j'ai horreur de me prendre la tête et puisque vous parlez du nombre de colonnes voyez le fichier joint avec ces 2 fonctions VBA :
VB: 
Function NbColSansNum(plage As Range)
Dim rc&, col As Range
rc = plage.Rows.Count
With Application
    For Each col In plage.Columns
        If .CountA(col) = rc Then If .Count(col) = 0 Then NbColSansNum = NbColSansNum + 1
    Next
End With
End Function

Function NbColAvecNum(plage As Range)
Dim rc&, col As Range
rc = plage.Rows.Count
With Application
    For Each col In plage.Columns
        If .CountA(col) = rc Then If .Count(col) Then NbColAvecNum = NbColAvecNum + 1
    Next
End With
End Function
Elles sont utilisées dans les cellules G12 et G13.

A+
Cliquez pour agrandir...

Bonjour,

A lire le code j’ai l’impression que c’est exactement ce que je recherche!
Ma version mobile ne me permettant pas d’exécuter les macros donc je vous fais un retour un peu plus tard, en tout cas merci encore!

rk
 
Vote positif 0 Vote négatif
Bonjour le fil, le forum,

Une solution par formules qui font la même chose que les fonctions VBA, en G12 :
Code: 
=SOMMEPROD((SOUS.TOTAL(3;DECALER(A2:A6;;COLONNE(A2:BI2)-1))=LIGNES(A2:A6))*NON(SOUS.TOTAL(2;DECALER(A2:A6;;COLONNE(A2:BI2)-1))))
Et en G13 :
Code: 
=SOMMEPROD((SOUS.TOTAL(3;DECALER(A2:A6;;COLONNE(A2:BI2)-1))=LIGNES(A2:A6))*SIGNE(SOUS.TOTAL(2;DECALER(A2:A6;;COLONNE(A2:BI2)-1))))
Edit : si l'on ne se préoccupe pas de savoir si les colonnes sont pleines on peut simplifier en G13 :
Code: 
=SOMMEPROD(SIGNE(SOUS.TOTAL(2;DECALER(A2:A6;;COLONNE(A2:BI2)-1))))
Bonne journée.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
job75 à dit:
Bonjour le fil, le forum,

Une solution par formules qui font la même chose que les fonctions VBA, en G12 :
Code: 
=SOMMEPROD((SOUS.TOTAL(3;DECALER(A2:A6;;COLONNE(A2:BI2)-1))=LIGNES(A2:A6))*NON(SOUS.TOTAL(2;DECALER(A2:A6;;COLONNE(A2:BI2)-1))))
Et en G13 :
Code: 
=SOMMEPROD((SOUS.TOTAL(3;DECALER(A2:A6;;COLONNE(A2:BI2)-1))=LIGNES(A2:A6))*SIGNE(SOUS.TOTAL(2;DECALER(A2:A6;;COLONNE(A2:BI2)-1))))
Edit : si l'on ne se préoccupe pas de savoir si les colonnes sont pleines on peut simplifier en G13 :
Code: 
=SOMMEPROD(SIGNE(SOUS.TOTAL(2;DECALER(A2:A6;;COLONNE(A2:BI2)-1))))
Bonne journée.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
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

R
  • Question Question
Microsoft 365 Formules ne contenant qu'un tiret
2
Réponses
19
Affichages
985
jurassic pork
jurassic pork
M
  • Question Question
XL 2010 Supprimer les doublons contenant une valeur zéro avec trois conditions
Réponses
2
Affichages
519
Mody200
M
J
  • Question Question
XL 2019 Renvoyer une valeur dans une cellule (explication ci-dessous)
Réponses
5
Affichages
420
Jean-Luc P.
J
Droopyougo
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
470
Droopyougo
Droopyougo
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
540
jeff1494
jeff1494
D
  • Question Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
756
Phil69970
Phil69970
M
  • Question Question
XL 2019 Compter les occurrences entre 2 colonnes
Réponses
6
Affichages
766
pierrejean
pierrejean
P
  • Résolu(e)
XL 2021 Problème calcul sommeprod
Réponses
3
Affichages
420
philou914500
P
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
B
  • Question Question
XL 2013 Automatiser une formule sur les nouvelles lignes insérées en fonction d'une recherche sur les enregistrements
Réponses
9
Affichages
639
bedley
B
C
  • Question Question
XL 2013 [VBA]Créer un nombre de ligne en fonction d'un certain nombre de colonne et remplir ces lignes avec certaines valeurs
Réponses
6
Affichages
999
CaptainSalt31
C
patricktoulon
  • Résolu(e)
XL 2013 formule dernière valeur string ou numérique en prenant en compte une formule qui renverait rien
Réponses
1
Affichages
535
patricktoulon
patricktoulon
GUYANAIS
  • Question Question
XL 2013 Compter des valeurs texte sur une ligne
Réponses
2
Affichages
749
fanch55
fanch55
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
647
casualexcel
C
B
  • Question Question
XL 2016 Rechercher dans colonne la dernière ligne contenant une valeur calculée en faisant abstraction des cellules suivantes contenant des formules
Réponses
3
Affichages
647
Katido
K
C
  • Résolu(e)
XL 2019 Recherche une valeur dans une feuille et renvois à la valeur adjacente
Réponses
3
Affichages
730
mapomme
mapomme
L
  • Question Question
Microsoft 365 Filtre un tableau suivant son contenu
Réponses
4
Affichages
719
AtTheOne
AtTheOne
S
  • Question Question
XL 2019 Saut de page si une ligne contenant une certaine valeur se trouve en bas de page
Réponses
3
Affichages
437
Wayki
Wayki
Xavlh76
  • Question Question
XL 2016 Passer en paramètre la zone de plage de cellules
Réponses
5
Affichages
1 K
Xavlh76
Xavlh76
E
  • Question Question
Microsoft 365 Extraire automatiquement les lignes d'un tableau dont une des colonnes contient le mot "oui"
Réponses
4
Affichages
1 K
Eric32000
E
Retour