Discussion :

[MrJack]

Bonjour à tous,

Avant toute chose, un petit message pour remercier les membres!
Je viens de me remettre à faire du VBA et ce site est d'une grande aide!

C'est d'ailleurs par ce biais que j'ai réussi (en partie) à faire ce que je souhaite, mais là je bloque.
Je vous explique.

Je dois comparer les données, Feuil1 Colonne A, à celles en Feuil2 Colonne A.
Si les données correspondent, il sort en Feuil1 Colonne B les données présentes en Feuil2 Colonne J de la ligne correspondante.
Sinon, il met 0.
Jusqu'ici pas de problème.

Mais, le programme ne gère pas les doublons.
C'est à dire que si, en Feuil1, A2= 001 et que A5= 001, j'aurais des données en Feuil 1 B2 mais pas en B5.

Voici le code:

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
 
Sub Sandre_RD()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim c As Range, Donnee As String
 
 
   Set FL1 = Worksheets("Données") 
    Set FL2 = Worksheets("SandreRD") 
    For NoLig = 2 To FL2.Range("A65535").End(xlUp).Row
        Donnee = FL2.Cells(NoLig, 1)  
        With FL1.Range("a1:a" & FL1.Range("A65535").End(xlUp).Row) 
           Set c = .Find(Donnee, LookIn:=xlValues)
              If Not c Is Nothing Then
                FL1.Cells(c.Row, 2) = FL2.Cells(NoLig, 10)
 
              Else
 
                 FL1.Cells(NoLig, 2).Value = 0
            End If
 
           Set c = Nothing
        End With
    Next
 
End Sub

J'ai beau chercher, je trouve beaucoup de choses pour supprimer les doublons, mais ne trouve pas de réponses à mon problème.
Dois je passer par une itération?

Un peu d'aide serait la bienvenue!
Merci d'avance!

[Menhir]

Une solution simple et fiable :
En début de macro, tu fais une copie de ta feuille source.
Chaque fois que tu trouves une référence, tu supprimes la ligne après l'avoir traitée.
En fin de macro, tu supprimes cette feuille provisoire.

[MrJack]

Merci pour ces indications!
Je vais voir comment faire cela et reviendrai vers vous!

(Désolé pour le retour tardif, je n'avais pas de connexion ce week-end)

[patricktoulon]

bonjour
find ET!!! findnext(dans un do/loop) (voir l'exemple dans l'aide touche F1)

[MrJack]

Bonjour patricktoulon,

Je vais regarder dans cette direction, merci!
Je suis débutant, et rouillé, et ne m'en sors pas avec la solution proposée par Menhir.

[MrJack]

Et c'est tout bon!!
Merci !!

Trois petites lignes et le problème est réglé...

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
Sub Sandre_NAF()
 
Dim FL1 As Worksheet
Dim FL3 As Worksheet
Dim c As Range, Donnee As String
 
 
   Set FL1 = Worksheets("Données") 'Le fichier où tu colles
    Set FL3 = Worksheets("SandreNAF") 'Le fichier où tu cherches
 
    For NoLig = 2 To FL3.Range("A65535").End(xlUp).Row
        Donnee = FL3.Cells(NoLig, 1)  'ajouté
        With FL1.Range("c1:c" & FL1.Range("C65535").End(xlUp).Row) 'tu désignes ta plage de recherche
           Set c = .Find(Donnee, LookIn:=xlValues)
 
              If Not c Is Nothing Then
              firstAddress = c.Address
              Do
                FL1.Cells(c.Row, 4) = FL3.Cells(NoLig, 3)
 
 
                 Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
 
            Else
 
               FL1.Cells(NoLig, 4).Value = 0
 
            End If
 
            ' Set c = Nothing
 
 
        End With
    Next
 
End Sub

Je vais essayer d'adapter cela sur mes autres feuilles et traitements.
Encore merci!