recherche formule

[PeRLouCHeTTe]

voilà je cherche une formule afin de récupérer dans une liste de cellule par exemple de D5 à D27 le nombre de cellule ayant pour résultat 15 ou le nombre de cellule ayant le résultat 20 etc....
je vous remercie par avance pour l'attention que vous aurez pu porter à ce message

 

[philippe]

Salut,

admettons que tu saisisse en A1 la valeur que tu cherche:


Sub compteur()
Dim compt As Integer
x = Range('a1').Value
Range('D5😀27').Select
For Each vcelule In Selection
c = vcelule.Value
If c = x Then compt = compt + 1
Next
Range('A2').Value = compt
End Sub



Tu auras en A2 le nombre de cellules qui comptiennent ta valeur

A+

 

[Celeda]

Bonsoir le Forum,

Avec un =COUNTIF(D5😀27;15)

Celeda

 

[Philippe]

Bah voilà,
comme ça tu as les 2 méthodes:
formule et code VBA

Je ne connaissait pas la formule, merci Celeda

 

[droop51]

Somme d'entiers

Bonjour , nous avons un petit problème :

A l'aide d'un tableur : - écrire les entiers de 1 à 30 dans les cellules A1....A30 ; calculer S30 = pas de problème
- écrire les entiers de 30 à 1 dans les cellules B30....B1 calculer S30 = pas de problème
- écrire les sommes A1+B30, A2+B29.....A30+B1 dans les cellules C1,...C30

Nous voudrions savoir si il existe un moyen de ne pas rentrer 30 fois dan s la colonne C les formules

Merci

 

[mutzik]

Re : Somme d'entiers

bonjour Droop51,
Il aurait mieux valu commencer un nouveau sujet de discussion, mais
en C1 = A1 + B30
la fonction ligne() te renvoie le nr de ligne dans laquelle se trouve cette fonction
ex en X17 tu mets =ligne() te renverra 17 (CQFD)
à partir de là, tu mets en C1 :
= indirect("a"&ligne())+indirect("B"&31-ligne())
->>a1 + B(31-1) = A1 + B30
si tu recopies vers le bas cette formule
->> a2 + B(31-2) = A2+B29
etc ...

 

[droop51]

Re : recherche formule

Merci beaucoup pour tout