comptage de doublons par macro

[rem$]

bonjour a tous

Hervé m'a donné ya quelques semaines un code permettant de compter et de visualiser les données d'un N° doublon dans un userform
cf fil du 10-12-04 ouvrir userform avec multipage sur le 1er onglet

aujourd'hui je reprend ce travail et je n'arrive pas à introduire dans mon USERFORM la recherche selon la méthode d'Hervé car ma recherche se fait sur plusieurs feuilles...
pour remplacer :
for each c in sheets("feuill1").range........
j'ai mis sheets(x).range.... et avant for x=1 to 9 (j'ai 9 feuilles)
malheureusement ca ne marche pas....snifff

un petit coup de main serai le bien venu

D'avance merci

Rem$

PS: si hervé passe par là... est-ce que je t'envoyer un bal privé pour continuer ce travail?? au cas ou....

 

[ChTi'160]

Salut "rem$"
Bonjour le "FORUM"
voilà ce que j'ai fait et celà fonctionne mais je ne sais pas si j'ai bien compri la question tiens nous au courant en attendant hervé

Sub toutefeuil()
Dim c As Range
Dim x As Byte
Dim T As Integer
For x = 1 To 3
For Each c In Sheets(x).Range("A1:A10")
If c = 1 Then
T = T + 1
End If
Next
Next
Sheets(1).Range("C1") = T
End Sub
A+++
Jean Marie

 

[rem$]

bonjour à tous,

merci chti'160 de t'etre preocuper de mon pb mais je viens d'être contacté par hervé ....
l'affaire avance............

Merci
Rem$

 

[ChTi'160]

OK
Salut à hervé
A+++
Jean Marie