Modification macro

[Bernard-Louis]

Bonjour a toutes et tous
Je fais appel a vous pour modifier une macro qui me pose probleme.
La macro ci dessous fait les modifs sur toute la feuille. Je voudrai qu'elle prenne uniquement la plage nommée = tri, ce qui correspond aux cellules C2 à M5000.
Je vous remercie pour votre aide.
Bonne journée.

Public liste()
Sub deb()

ReDim liste(1)
For Each i In ActiveSheet.UsedRange

If existe(i) = False Then
liste(UBound(liste)) = i.Value
ReDim Preserve liste(UBound(liste) + 1)

End If
Next
MsgBox UBound(liste) & " valeurs différentes à voir sur la feuille 2"

For n = 1 To UBound(liste)
Sheets(2).Cells(n, 1) = liste(n)
Next
End Sub


Function existe(i)
For n = 1 To UBound(liste)
If liste(n) = i Then
existe = True
Exit Function
Else
existe = False
End If
Next

End Function

 

[Gorfael]

Re : Modification macro

Bonjour a toutes et tous
Je fais appel a vous pour modifier une macro qui me pose probleme.
La macro ci dessous fait les modifs sur toute la feuille. Je voudrai qu'elle prenne uniquement la plage nommée = tri, ce qui correspond aux cellules C2 à M5000.
Je vous remercie pour votre aide.
Bonne journée.

Public liste()
Sub deb()

ReDim liste(1)
For Each i In ActiveSheet.UsedRange

If existe(i) = False Then
liste(UBound(liste)) = i.Value
ReDim Preserve liste(UBound(liste) + 1)

End If
Next
MsgBox UBound(liste) & " valeurs différentes à voir sur la feuille 2"

For n = 1 To UBound(liste)
Sheets(2).Cells(n, 1) = liste(n)
Next
End Sub


Function existe(i)
For n = 1 To UBound(liste)
If liste(n) = i Then
existe = True
Exit Function
Else
existe = False
End If
Next

End Function

Salut Bernard-Louis et le forum

Remplace :
For Each i In ActiveSheet.UsedRange
par
For Each i In range("tri")

A+

 

[Bernard-Louis]

Re : Modification macro

Merci Gorfael,
C'est parfait. Bonne jounee.
Amicalement