Compter des valeurs dans un tableaux

PascalXLD

XLDnaute Barbatruc

• 9 Août 2006

• #2

Re : Compter des valeurs dans un tableaux

Bonjour

Tu veux à tout prix en macro car une formule te le ferait ??

 

Vote positif 0 Vote négatif

K

klorane

XLDnaute Occasionnel

• 9 Août 2006

• #3

Re : Compter des valeurs dans un tableaux

oui il me faut une macro.

 

Vote positif 0 Vote négatif

M

moustache

Guest

• 9 Août 2006

• #4

Re : Compter des valeurs dans un tableaux

Bonjour,

C'est pas beaucoup + compliqué pour 12 que pour 1 :



Sub Compte()

Dim C As Range
Dim Somme(12) As Integer

For i = 1 To 12
Somme(i) = 0
For Each C In Feuil2.Range("B3", "Z6")
If C.Value = i Then Somme(i) = Somme(i) + 1
Next C
Feuil1.Cells(4 + i, 20) = Somme(i)
Next i

End Sub



Ca colle ?

 

Vote positif 0 Vote négatif

P

PhiBou

XLDnaute Junior

• 9 Août 2006

• #5

Re : Compter des valeurs dans un tableaux

Bonjour Klorane, Pascal, Moustache, le Forum

ou bien...

Sub Klorane()
Dim Plage As Range
Dim Cel As Range
Set Plage = Range("Feuil2!B3:Z6")
Range("Feuil1!T5:T16").ClearContents
For Each Cel In Plage
Range("Feuil1!T" & Cel.Value + 4) = 1 + Range("Feuil1!T" & Cel.Value + 4)
Next Cel
End Sub

Bonne journée

PhiBou

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 9 Août 2006

• #6

Re : Compter des valeurs dans un tableaux

étonnant de faire ca avec une macro, alors qu'un simple nb.si fonctionne..

 

Vote positif 0 Vote négatif

Darnel

XLDnaute Impliqué

• 9 Août 2006

• #7

Re : Compter des valeurs dans un tableaux

Bonjour,
sinon, pour faire moins lourd et à condition que tu n' ai pas besoin que la cellule soit vide, tu utilise la formule :

en T5 : =NB.SI(B3:Z6;"=1")
en T6: =NB.SI(B3:Z6;"=2")

etc

et tu fais une macro qui fait apparaitre les valeurs en changeant simplement la couleur d'écriture:

Code:

Sub Macro1()
 
 
    Sheets("Feuil1").Select
    Range("T5").Select
    Selection.Font.ColorIndex = 2 'écriture en blanc donc invisible ...
 
End Sub
 
 
Sub Macro2()
 
 
    Sheets("Feuil1").Select
    Range("T5").Select
    Selection.Font.ColorIndex = 0 'écriture en noir donc visible ...
 
End Sub

C'est de la triche mais simple (enregistreur de macro) quand on est naze en VBA

A+

EDIT :
Ou sinon la même chose mais tu affiche ou cache la colonne T en feuille 1

Bout de code pour afficher masquer colonne T à mettre dans code ci dessus à la place de

Range("T5").Select
Selection.Font.ColorIndex = 0 'écriture en noir donc visible ...

Code:

Columns("T:T").Select
    Selection.EntireColumn.Hidden = True  'la colonne est cachée
 
 
Columns("T:T").Select
    Selection.EntireColumn.Hidden = False 'la colone est visible

 

Dernière édition: 9 Août 2006

Vote positif 0 Vote négatif

K

klorane

XLDnaute Occasionnel

• 9 Août 2006

• #8

Re : Compter des valeurs dans un tableaux

C'est super! Merci à vous tous!

Bonne fin de journée.

Sébastien

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 9 Août 2006

• #9

Re : Compter des valeurs dans un tableaux

je comprends pas tes trucs avec les couleurs..

 

Vote positif 0 Vote négatif

Darnel

XLDnaute Impliqué

• 9 Août 2006

• #10

Re : Compter des valeurs dans un tableaux

Re

tout simplement, tu fait avec des formules nb.si comme tu le conseil, mais pour que cela fasse comme une macro, tu affecte une mise en forme à un bouton : exple

au départ, resultat pas visible ( couleur police = Blanc et couleur fond de cel = blanc)
clic bouton : Macro police caractère = noire sur fond blanc (visible donc )

clic sur autre bouton : Macro police caractère = blanc sur blanc (invisible)

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 9 Août 2006

• #11

Re : Compter des valeurs dans un tableaux

Bonjour

Je voulais dire à Darnel, qui doit avoir l'esprit bien compliqué, écrire une formule dans la cellule, puis faire une macro pour dissimuler à l'affichage les résultat de la fonction. Ca ce truc là, c'est la première fois que je le vois.

En plus Darnel, Klorane avait demander uniquement par une macro. Respectont le choix du demandeurs.

@+Jean-Marie

 

Vote positif 0 Vote négatif

Darnel

XLDnaute Impliqué

• 9 Août 2006

• #12

Re : Compter des valeurs dans un tableaux

Bonjour Jean Marie

je suis d'accord avec toi, il faut respecter le choix du demandeur.
mea culpa, mais n'ayant pas précisé ses motivations (qui ne regardent bien entendu que le demandeur ) j'ai donner une réponse qui est plus simple en vb (je suis nul en vb😛 )
Pour ce qui est des trucs tordus, j'aime bien me torturer l'esprit pour résoudre des problèmes tout seul ( sur la forme, ma solution donne la même chose que la macro ( à condition qu'il n'y ait pas besoin que les cellules affichant le résultat soit vides évidemment😀 ))

voilà
a+

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 9 Août 2006

• #13

Re : Compter des valeurs dans un tableaux

Bonjour klorane, Pascal76, moustache, PhiBou, nat54, Darnel, JeanMarie,

Ci-dessous, une autre proposition VBA réduite au maximum :

Code:

[SIZE=2]Dim N[COLOR=navy] As Byte[/COLOR]
      [COLOR=navy]For [/COLOR]N = 1[COLOR=navy] To [/COLOR]12
            Sheets("Feuil1").Cells(4 + N, 20).Value = Application.CountIf(Sheets("Feuil2").Range("B3:Z6"), N)
      [COLOR=navy]Next[/COLOR] N[/SIZE]

Cordialement,

 

Vote positif 0 Vote négatif