recherche formule

P

philippe

Guest

• 20 Février 2005

• #2

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+

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 20 Février 2005

• #3

Bonsoir le Forum,

Avec un =COUNTIF(D5😀27;15)

Celeda

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 20 Février 2005

• #4

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

Je ne connaissait pas la formule, merci Celeda

 

Vote positif 0 Vote négatif

D

droop51

Guest

• 28 Septembre 2007

• #5

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 28 Septembre 2007

• #6

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 ...

 

Vote positif 0 Vote négatif

D

droop51

Guest

• 28 Septembre 2007

• #7

Re : recherche formule

Merci beaucoup pour tout

 

Vote positif 0 Vote négatif