Suite de valeurs identiques

Gérard DEZAMIS

XLDnaute Accro

• 27 Février 2005

• #2

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]

 

Pièces jointes

• TriMichelF.zip

  2.2 KB · Affichages: 19

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 27 Février 2005

• #3

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]

 

Pièces jointes

• SérieValeurs_20050227112941.zip

  2.7 KB · Affichages: 17

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 27 Février 2005

• #4

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Février 2005

• #5

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 27 Février 2005

• #6

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

 

Pièces jointes

• SerieValeurs.zip

  2.7 KB · Affichages: 20

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Février 2005

• #7

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

 

Pièces jointes

• occurence.zip

  11.3 KB · Affichages: 18
• occurence.zip

  11.3 KB · Affichages: 18
• occurence.zip

  11.3 KB · Affichages: 21

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 27 Février 2005

• #8

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]

 

Pièces jointes

• TriMichelF-V2_20050227232653.zip

  3.8 KB · Affichages: 14

Vote positif 0 Vote négatif

M

Michel F

Guest

• 27 Février 2005

• #9

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.

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 28 Février 2005

• #10

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]

 

Pièces jointes

• occurence_20050228075701.zip

  11.7 KB · Affichages: 14

Vote positif 0 Vote négatif

M

Michel F

Guest

• 28 Février 2005

• #11

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]

 

Pièces jointes

• Essaioccur.zip

  5 KB · Affichages: 20

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 28 Février 2005

• #12

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]

 

Pièces jointes

• occ.zip

  18.8 KB · Affichages: 20

Vote positif 0 Vote négatif

M

MichelF

Guest

• 28 Février 2005

• #13

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 28 Février 2005

• #14

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]

 

Pièces jointes

• occ_20050228201941.zip

  20.3 KB · Affichages: 19

Vote positif 0 Vote négatif

M

MichelF

Guest

• 1 Mars 2005

• #15

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

 

Vote positif 0 Vote négatif