Suite de valeurs identiques

[Michel F]

Bonjour et merci de me permettre de poser cette question
Windows XP, Excel 2000

1 2 4
1 2 8
1 2 9
1 2 9
1 3 4
1 3 4
1 3 6
1 3 6

J'ai une plage de 3 colonnes avec des chiffres comme ci dessus
Je cherche en VBA à faire la chose suivante.

1) Découvrir qu'il y a plusieurs fois dans cette plage des suites identiques par exemple au dessus 1 2 9 ou 1 3 6

2)Connaitre ces suites de valeurs identiques

3)connaitre le nombre de fois qu'elle sont représentées dans la plaqe.

D'avance merci piour votre aide

MF

 

[Gérard DEZAMIS]

Bonjour Michel

Pas de VBA mais ... avec 2 colonnes sup
C'est tout ce que je sais faire .... en attendant mieux


@+ GD
:evil: [file name=TriMichelF.zip size=2234]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TriMichelF.zip[/file]

 

[JeanMarie]

Bonjour Michel, Gérard

Voir le fichier joint, en formule, je ne sais rien faire d'autre.

Je pense qu'il y aura une solution par TCD, si Celeda, Dan, ou d'autres Xldiens(nes) passent par ici.

@+Jean-Marie [file name=SérieValeurs_20050227112941.zip size=2732]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SérieValeurs_20050227112941.zip[/file]

 

[Dugenou]

Jean Marie

Je n'arrive pas à atteindre le fichier joint : je suis renvoyé sur la page d'accueil. Je pense que c'est du à l'accent de série : est-ce que tu peux ré essayer avec un fichier sans accent dans le titre ?

Merci

 

[dg62]

Bonjour


un bout de code qui répond en partie à ton problème

(a coller sur un bouton)

j'utilise la colonne IV pour concatener tes 3 colonnes A, B, C

et ensuite je fais un countif (nb.si)

Private Sub CommandButton1_Click()
Cells(1, 'A').Select
nblignes = Cells(Range('A:A').Count, ActiveCell.Column).End(xlUp).Row
For i = 1 To nblignes
Range('iv' & i).Value = Range('a' & i) & Range('b' & i) & Range('c' & i)
Next i
For i = 1 To nblignes
occ = Range('iv' & i).Value
nbocc = Application.CountIf(Range('IV:IV'), occ)

Message = occ & ' est présent : ' & nbocc & ' fois'

reponse = MsgBox(Message)
Next i
End Sub

 

[JeanMarie]

RE...

Voilà c'est fait

Dans le fichier tu ne trouveras aucune explication sur les formules.

@+Jean-Marie [file name=SerieValeurs.zip size=2732]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SerieValeurs.zip[/file]

Message édité par: JeanMarie, à: 27/02/2005 12:50

 

[dg62]

Re, cette version fonctionne parfaitement

valeurs en A, B et C

Private Sub CommandButton1_Click()
Cells(1, 'A').Select
nblignes = Cells(Range('A:A').Count, ActiveCell.Column).End(xlUp).Row
For i = 1 To nblignes
Range('iv' & i).Value = Range('a' & i) & Range('b' & i) & Range('c' & i)
Next i
Range('IV:IV').Select
Selection.Sort Key1:=Range('IV1'), Order1:=xlAscending
Range('A1').Select
i = 1
cpt = nblignes
While cpt > 0
occ = Range('iv' & i).Value

nbocc = Application.CountIf(Range('IV:IV'), occ)

Message = occ & ' est présent : ' & nbocc & ' fois'

reponse = MsgBox(Message)
i = i + nbocc
cpt = cpt - nbocc
Wend
End Sub [file name=occurence.zip size=11551]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/occurence.zip[/file]

Message édité par: dg62, à: 27/02/2005 13:12

 

[Dan]

Bonsoir,

En créant une colonne supplémentaire que j'ai appelée B, on effectue une concaténation des trois valeurs.
Cela permet de créer un TCD sur base de cette colonne et qui va renvoyer le nombre de valeurs groupées.
On pourrait également le créer sur base de la colonne A crée par Gérard Dezamis.

🙂 [file name=TriMichelF-V2_20050227232653.zip size=3923]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TriMichelF-V2_20050227232653.zip[/file]

 

[Michel F]

Bonsoir à vous tous...
Un grand merci pour toutes ces réponses que je découvre tardivement...
Je viens de regarder...j'avoue que je suis comblé...
Il ne me reste plus qu'à choisir...
Je vous tiens informé après les tests demain
Merci encore...
PS J'avais oublié de préciser que seules les occurences > 1 ont un intrêt pour moi.

 

[dg62]

Bonjour

une modification de la routine qui tient compte de ta dernière remarque. [file name=occurence_20050228075701.zip size=12001]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/occurence_20050228075701.zip[/file]

 

[Michel F]

Bien, merci pour la rectification...
Je vois que tu est un leve tôt...Bravo

Mon seul problème maintenant c'est d'integrer cette petite merveille dans mon travail...
Et comme tu vas le voir c'est pas un petit classeur...(PJ)
Donc je ne sais comment faire...
Merci si tu as une idée.
MF [file name=Essaioccur.zip size=5139]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaioccur.zip[/file]

 

[dg62]

re


Une variante, l'affichage des occurences sefait sur la feuille même.
c'est beaucoup plus rapide.

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

 

[MichelF]

Merci pour cette amélioration complémentaire...
Décidemment, je n'ai plua qu'a faire un copie-coller...
Dernière question comment puis je introduire un espace entre chacun des trois chiffres de l'occurence pour éviter de déchiffrer.
Bon c'est du superflus...mais enfin ce sera plus facile à lire...surtout lorsque comme tu as pu le voir à la fin de la feuille il y a des dizanes qui entrent dans le jeu.
Merci encore DIDIER et bonne soirée

 

[dg62]

re

des espaces sont ajoutés au niveau de la concaténation
le code est commenté [file name=occ_20050228201941.zip size=20756]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/occ_20050228201941.zip[/file]

 

[MichelF]

Merci à tous.
Grace à vous ça fonctionne et je suis un peu moins c... quand on me parle d'occurences.

Bravo pour le forum, je reviendrai..

MF