Recherche Formule

speedball

XLDnaute Junior
Bonjour à tous le forum

Je voudrais compter le nombre de cellule dans une plage qui est supérieur à une autre cellule.

Merci
 

Tibo

XLDnaute Barbatruc
Re : Recherche Formule

Salut Wilfried,

Le fait de nommer des plages de façon discontinue fonctionne quand même avec certaines fonctions.

Ainsi, avec la fonction SOMME

=SOMME(plage)

fonctionne même si plage est un assemblage de cellules non contigües

J'ai pas fait de recherches pour voir avec quelles fonctions ça marche ou pas. Il est vrai que je n'utilise quasiment pas cette façon de nommer les plages de cellules.

Bonne soirée

@+
 

wilfried_42

XLDnaute Barbatruc
Re : Recherche Formule

re:

s'il y en a que ca interresse, voici une fonction personalisée remplacant NB.SI mais fonctionnant sur des plages discontinues nommées

Code:
Function gw_nbsi(plage As Range, signe As String, valeur As Range) As Long
    Application.Volatile
    gw_nbsi = 0
    Dim i As Long, gwcel As Range
    For Each gwcel In Range(plage.Address)
        Select Case signe
            Case "="
                If gwcel = valeur Then gw_nbsi = gw_nbsi + 1
            Case "<>", "><"
                If gwcel <> valeur Then gw_nbsi = gw_nbsi + 1
            Case ">"
                If gwcel > valeur Then gw_nbsi = gw_nbsi + 1
            Case "<"
                If gwcel < valeur Then gw_nbsi = gw_nbsi + 1
            Case ">=", "=>"
                If gwcel >= valeur Then gw_nbsi = gw_nbsi + 1
            Case "<=", "=<"
                If gwcel <= valeur Then gw_nbsi = gw_nbsi + 1
            Case Else
                 MsgBox "Le signe n'est pas correct"
                 Exit Function
        End Select
    Next
End Function

utilisation : =gw_nbsi(plage,"Signe",cellule) : cellule contient la valeur testée


Bonne soirée
 

speedball

XLDnaute Junior
Re : Recherche Formule

re

Si j'ai bien compris ta macro va me calculer les trois solutions si c'est > ou = ou <
A moi de définir les plages (j'en ai 10)
Et de mettre la formule qui convient dans les cellules (=gw_nbsi(plage,"Signe",cellule))

Merci je vais essayer, je te tiens au courant prochainement.

A+
 

wilfried_42

XLDnaute Barbatruc
Re : Recherche Formule

re:

elle fait tous les tests : >, <, =, <>, >=, <=, tant qu'à faire autant tout faire

pour ce qui est du fil lié, tu as la solution dans ton dernier post, chaque traitement en fonction de l'endroit ou l'on ce trouve dans la feuille

ne pas oublier de mettre un exit sub à la fin du test, pour eviter de lancer les autre

mais si tu veux que l'on regarde, repost ton fichier avec la macro complete et surtout il nous faut savoir ce qu'elle est sensée faire, beaucoup n'ont pas suivi ton fil et j'en fait parti lol absent durant un certain temps

@ te lire
 

Discussions similaires

Statistiques des forums

Discussions
312 370
Messages
2 087 696
Membres
103 642
dernier inscrit
nolem