Classement et statistique

[Vivien]

Bonjour le forum.

J'ai réalisé un tableau (voir fichier joint)
Je voudrai que lors du click sur le bouton commandbutton1,ce tableau se classe par ordre croissant de N° de tube: càd
1-1
1-2
.
.
.
100-1
100-2
.
.
65536-1
65536-2

Ensuite j'aimerai obtenir des statistique.(voir a coté du tableau).
Merci a tous et à bientot.
Vivien.
[file name=tab.zip size=8848]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tab.zip[/file]

 

[Celeda]

Bonsoir,

1ère question : je passe et je laisse la main


2ème question :

nbre de D1<=0,5%
=COUNTIF(D324;'<0,5') = 0

nbre de D2<=0,2%
=COUNTIF(E3:E24;'<0,2') = 19

nbre de n° de tube total
=COUNTA(C3:C24) =22

nbre de D1 total
=COUNTA(D324) =20

nbre de D2 total
=COUNTA(E3:E24) = 19

Celeda

 

[vivien]

Bonsoir celeda,le forum

Je te remercie celeda.
Je testerai tout cela demain car j'ai plus la force.

Merci a bientot.

Vivien.

 

[Robert]

Bonsoir Vivien, Celeda, bonsoir le forum,

Je ne sais pas o&ugrave; Celeda laisse sa main mais je ne veux pas entrer dans des détails qui pourraient être mal interprétés...
Vivien si tes tubes ne comportent qu'un seul chiffre après le tiret, la macro ci-dessous fonctionne :

Private Sub CommandButton1_Click()
Dim cel As Range 'déclare la variable cel
'boucle sur toutes les cellules de la plage C3:C_ dernière ligne éditée
For Each cel In Range('C3:C' & Range('C65536').End(xlUp).Row)
cel.Replace '-', '' 'supprime le tiret (le remplace par rien)
Next cel 'prochaine cellule de la boucle
'Trie la plage C2:E_dernière ligne éditée par rapport à la clé C2 (N&ordm; de tube)
Range('C2').CurrentRegion.Sort Key1:=Range('C3'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'boucle sur toutes les cellules de la plage C3:C_ dernière ligne éditée
For Each cel In Range('C3:C' & Range('C65536').End(xlUp).Row)
On Error Resume Next
'rajoute un tiret en avant dernière position
cel.Value = Left(cel.Value, Len(cel.Value) - 1) & '-' & Right(cel.Value, 1)
Next cel 'prochaine cellule de la boucle
End Sub

 

[vivien]

Bonjour celeda,robert,le forum

J'ai bien recu toutes les informations.
Aujourd'hui sera une journée de tests de tous les différents programmes que j'ai déjà réalisé(et vous aussi).

Merci.
A bientot.

Vivien.

 

[vivien]

Bonjour Celeda,Robert,le forum.

J'ai testé le programme de Robert,c'est parfait.
Par contre j'ai un souci au sujet de celui de Celeda.

J'ai un problème avec les formules COUNTA et COUNTIF.
Dans les cellules ou se situent les formules est écrit #NOM? et non le résultat que je souhaite...

A mon avis ça vient de ma version d'excel qui est trop vieille...
Comment dois je faire pour éviter ce #NOM? qui hante mes nuits...

Merci et à bientot.
Vivien.

 

[Celeda]

Bonsoir,

Je préférerai que ce soit mon nommmmmmmmmmmmmmmm
qui hante tes nuits!!!


plus sérieusement, je ne sais pas vivien.
aussi je te place le fichier avec les formules, je suis désolée
je t'ai copié les formules en anglais. Peut-être est-ce cela.
Regarde si cela peut résoudre ton nom. Si NOM, n'hesite pas

(ah non voilà que je la fais à la Robert)


Celeda [file name=countif.zip size=10127]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/countif.zip[/file]

 

[vivien]

Salut Celeda,
Pas mal les rimes et l'humour.

Sérieusement c'est OK pour les formules;c'est juste parce qu'elles étaient en anglais.
Je te remercie.
A bientot sur le forum.

Vivien.