Discussion :

[RICXLS]

Bonjour à toutes et à tous

je ne sais pas si je suis au bon endroit

bon je me lance
je voudrai savoir comment récupérer le N° de ligne de la dernière occurrence d'un doublon

je précise :

sur la colonne A par exemple, j'ai

A1=test1

A2=test1

A3=test1

A4=test1

A5=test1

A5=test1

A6=test1

A7=test1

A8=test1

A9=test1

A10=test1 ==>dans la fonction je dois récupérer :10 pour l'occurence test1

A11=test3

A12=test3

A13=test3

A14=test3

A15=test3 ==>dans la fonction je dois récupérer :15 pour l'occurence test3

A16=test2

A17=test2

A18=test2

A19=test2

A20=test2 ==>dans la fonction je dois récupérer :20 pour l'occurence test2



la fonction ci dessous me permet de connaitre le nombre de fois que revient une occurence dans la colonne,

mais je n'arrive pas à récupérer le n° de ligne de la dernière occurrence

si quelqu'un voit ou se trouve mon erreur dans le code si dessous

ou une autre proposition, je suis prenneur, et je lui serai infiniment reconnaissant.


merci d'avance et bonne fête de fin d'année

à savoir 'MsgBox Item.Row, me renvoie la ligne de chaque occurence

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Function total()
 
Dim Spinner As Integer
 
Dim totaligne As Integer
 
Dim i As Integer
 
Dim tabl() As Integer
 
Spinner = 0
 
 
 
Set plageCherche = Worksheets("feuil1").Range("H2:H" & totalignes(Worksheets("feuil1").Range("B65536")))
 
ReDim tabl(Worksheets("feuil40").Range("M1").Value)
 
For i = 1 To Worksheets("feuil40").Range("M1").Value
 
ValCherchee = Worksheets("feuil40").Range("M" & i + 1).Text
 
For Each Item In plageCherche
 
If (StrComp(Item.Value, ValCherchee, vbTextCompare) = 0) Then Spinner = Spinner + 1
 
'MsgBox Item.Row
 
Next Item
 
 
 
tabl(i) = CStr(Spinner)
 
 
 
 
 
Spinner = 0
 
Next i
 
total = tabl
 
End Function

[Gorfael]

Salut RICXLS et le forum
Pour récupérer le nombre de doublon, j'utilise :

Code :

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

=SOMMEPROD(($A$1:$A$20=A1)*1)

Validation normale. Ça te donnera le nombre de fois où la valeur en A1 existe dans la plage A1:A20.
Pour la dernière ligne contenant la valeur en A1 :

Code :

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

=MAX(($A$1:$A$20=A1)*LIGNE($A$1:$A$20))

Validation en fonction matricielle (Ctrl+Shift+Enter).
Bonne et heureuse Année 2010
A+

[RICXLS]

Salut RICXLS et le forum
Pour récupérer le nombre de doublon, j'utilise :

Code :

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

=SOMMEPROD(($A$1:$A$20=A1)*1)

Validation normale. Ça te donnera le nombre de fois où la valeur en A1 existe dans la plage A1:A20.
Pour la dernière ligne contenant la valeur en A1 :

Code :

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

=MAX(($A$1:$A$20=A1)*LIGNE($A$1:$A$20))

Validation en fonction matricielle (Ctrl+Shift+Enter).
Bonne et heureuse Année 2010
A+

merci bien je vais tester cela
bonne et heureuse année à toi

[mercatog]

Bonsoir et meilleurs voeux!

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
Public Function TabRechOcc() As Variant
Dim LastLig As Long, i As Long, k As Integer
Dim Tablo() As Variant
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastLig
    If Range("A" & i + 1).Value <> Range("A" & i).Value Then
        ReDim Preserve Tablo(2, k + 1)
        Tablo(0, k) = Range("A" & i).Value
        Tablo(1, k) = i
        k = k + 1
    End If
Next i
TabRechOcc= Tablo
Erase Tablo
End Function

TabRechOcc est un tableau comportant les occurrences et leur dernière ligne.
on récupère les données ainsi:

Code :

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

1
2
3
Sub tst()
Range(Cells(1, 2), Cells(2, UBound(TabRechOcc(), 2))).Value = TabRechOcc()
End Sub

Edit:
ou bien

Code :

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

1
2
3
Sub tst()
Range("B1:C" & UBound(TabRechOcc(), 2)).Value = Application.Transpose(TabRechOcc())
End Sub

[RICXLS]

Bonsoir et meilleurs voeux!

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
Public Function TabRechOcc() As Variant
Dim LastLig As Long, i As Long, k As Integer
Dim Tablo() As Variant
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastLig
    If Range("A" & i + 1).Value <> Range("A" & i).Value Then
        ReDim Preserve Tablo(2, k + 1)
        Tablo(0, k) = Range("A" & i).Value
        Tablo(1, k) = i
        k = k + 1
    End If
Next i
TabRechOcc= Tablo
Erase Tablo
End Function

TabRechOcc est un tableau comportant les occurrences et leur dernière ligne.
on récupère les données ainsi:

Code :

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

1
2
3
Sub tst()
Range(Cells(1, 2), Cells(2, UBound(Rech(), 2))).Value = Rech()
End Sub

simplement trop fort merci à toi et bonne et heureuse année plein de bonnes choses