Discussion :

[kelvir]

Bonjour à tous,

Petite question concernant un problème que je n'arrive pas à résoudre

J'ai une colonne de la sorte :

J2:41
J3:41
J4:42
J5:42
J6:42
J7:43
J8:44
J9:44
J10:44
....

L'objectif est de réussir à sortir toutes les occurences de cette colonne ( dans l'exemple 41 ,42 ,43 ,44 ) et à les placer dans une variable


Des idées ?

Merci

[jfontaine]

Bonjour,

Tu peux utiliser une formule pour récupérer la partie a droite des :
Ici la colonne avec les données se trouve en A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=STXT(A1;CHERCHE(":";A1)+1;NBCAR(A1))

[kelvir]

Je viens de m'apercevoir que je me suis mal exprimé

La cellule J2 a pour valeur 41

Etc...

[jfontaine]

ok,

une solution avec une variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim str() As Variant
 
str = Range("A1:A8")
 
MsgBox CStr(str(1, 1))

[kelvir]

Dans ce cas la la variable Str contient l'ensemble des valeurs de la colonne A .

Je souhaiterais uniquement les occurences

A1 41
A2 41
A3 41
A4 42
A5 43
A6 44

Je voudrais que la variable Str contienne uniquement 41 42 43 44

[pijaku]

Bonjour tout le monde,

Partant d'une solution empruntée à Michel_m, je propose une solution par un dictionnaire :
Données à extraire situées dans la colonne A de la feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ExtraireValeursUniques()
Dim liste As Object
Dim fin As Long, cptr As Long, entree As String
Dim tablo
 
With Sheets(1)
     fin = .Columns("A").Cells(.Cells.Rows.Count, "A").End(xlUp).Row
     tablo = .Range("A1:A" & fin).Value
     Set liste = CreateObject("scripting.dictionary")
     For cptr = 1 To UBound(tablo)
          entree = tablo(cptr, 1)
          If Not liste.exists(entree) Then liste.Add entree, "x"
     Next
     MsgBox Join(liste.keys, "; ")
End With
End Sub