Difficulté avec Find

Version imprimable

Bonjour,

Je voudrais copier des données d'une feuille à une autre, mais à des lignes différentes dans la deuxième feuille :

Dans la feuille SheetSource, j'ai un traitement qui me donne des données sur la plage M5:N519.
Code:

1 2 3 4 5 6 7 8 9 10 11 A10 signal_1 A11 P3V3 A12 signal_2 A13 signal_3 A14 signal_4 A15 signal_5 A17 signal_6 A18 signal_7 A19 signal_8 A20 A21 P3V3
Dans la feuille SheetDestination, je dois recherché si pour chaque ligne la valeur de la colonne A de cette feuille se retrouve dans la colonne M de la feuille SheetSource, et si oui copier le contenu de la colonne N de la feuille SheetSource dans la colonne I de la feuille SheetDestination.

Je me doute que la fonction Find est la clé de ma solution, mais je ne comprends pas tout dans cette fonction ni comment faire cela.

pour l'instant j'ai fais une portion de code pas optimisée :
Code:

1 2 3 4 5 6 7 8 9 'Dim row, row2 As Integer For row = 5 To 519 'colonne M feuille SheetSource For row2 = 3 To 678 'colonne I feuille SheetDestination If Worksheets(SheetSource).Cells(row, 13).Text = Worksheets(SheetDestination).Cells(row2, 1).Text Then Worksheets(SheetDestination).Cells(row2, 9) = Worksheets(SheetSource).Cells(row, 14) End If Next Next
Le soucis avec ce code c'est qu'il est lent, et aussi j'ai une erreur de lecture de donnée pour Worksheets(SheetDestination).Cells(row2, 1).Text

25/09/2017, 11h31
Marc-L

Bonjour !

Activer l'Enregistreur de macro, effectuer une recherche manuellement : une base de code est livrée sur un plateau !

Sans compter l'aide VBA interne pourtant agrémentée d'un exemple
comme les nombreux exemples dans les discussions de ce forum …

Quant à l'erreur, vérifier et corriger la feuille de calculs.

A la limite un code est inutile en utilisant une simple formule de feuille de calculs via RECHERCHEV, INDEX, …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour
Une proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Dim Tablo
Dim i As Long
Dim j As Long
Dim h As Integer
Tablo = Sheets("SheetSource").Range("M5", "N" & Sheets("SheetSource").Range("N" & Rows.Count).End(xlUp).Row)
With Sheets("SheetDestination")
j = .Range("A" & Rows.Count).End(xlUp).Row
For h = 2 To j
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If .Cells(h, 1) = Tablo(i, 1) Then
        .Cells(h, 2) = Tablo(i, 2)
    End If
Next i
Next h
End With
End Sub

ou bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test2()
Dim Tablo
Dim i As Long
Dim j As Long
Dim h As Integer
Tablo = Sheets("SheetSource").Range("M5", "N" & Sheets("SheetSource").Range("N" & Rows.Count).End(xlUp).Row)
With Sheets("SheetDestination")
j = .Range("A" & Rows.Count).End(xlUp).Row
For h = 2 To j
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If IsNumeric(Application.Match(CStr(Tablo(i, 1)), Cells(h, 1), 0)) Then
        .Cells(h, 2) = Tablo(i, 2)
    End If
Next i
Next h
End With
 
End Sub

25/09/2017, 11h56
pipersw

Citation:

Envoyé par Marc-L

Bonjour !

Activer l'Enregistreur de macro, effectuer une recherche manuellement : une base de code est livrée sur un plateau !

Sans compter l'aide VBA interne pourtant agrémentée d'un exemple
comme les nombreux exemples dans les discussions de ce forum …

Quant à l'erreur, vérifier et corriger la feuille de calculs.

A la limite un code est inutile en utilisant une simple formule de feuille de calculs via RECHERCHEV, INDEX, …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Au début j'ai utilisé RECHERCHEV, et avec une condition pour remplacer soit par la valeur recherchée, soit mettre "N/U" à la place de la valeur 0:

Code:

=SI(RECHERCHEV(A13;SheetSource!$M$5:$N$519;2;FAUX);RECHERCHEV(A13;SheetSource!$M$5:$N$519;2;FAUX);"N/U")

Le soucis c'est que dans le cas ou le SI est vrai, j'obtiens #VALEUR!. Si je met uniquement RECHERCHEV(A13;SheetSource!$M$5:$N$519;2;FAUX), j'ai la bonne valeur quand la recherche est True, mais j'ai 0 qui s'affiche quand la valeur est non trouvée. Je voudrais juste remplacer ce 0 par "N/U" dans ce cas.

Edit : en ajoutant ESTERREUR pour la condition su SI, c'est déjà mieux
25/09/2017, 13h10
patricktoulon

re
bonjour
en ce qui concerne le VBA je vois que tu fait 2 boucle
je ne vois pas l'utilisté
tu boucle 1 seule fois sur la colonne des valeur recherchée de la feuille destination
puis tu fait un find sur la feuille source

exemple

ici on va voir si dans la feuille source il y a la valeur de la colonne A du sheets destination cellule par cellule
si elle y est ,on prends le offset (0,y) toujours dans la feuille source (a toi de remplacer y par la colonne que tu veux )
et on la met dans la ligne de la valeur dans la colonne "m" du sheets destination
Code:

1 2 3 4 5 6 with sheets("destination") for i= 2 to 519 set c= sheets("source").find(.cells(i,1).value,lookat:=xlvalue) if not c is nothing then then .cells(i,"m")=c.offset(0,y) next end with
25/09/2017, 14h12
pipersw
Citation:
Envoyé par patricktoulon

bonjour
en ce qui concerne le VBA je vois que tu fait 2 boucle
je ne vois pas l'utilisté
tu boucle 1 seule fois sur la colonne des valeur recherchée de la feuille destination
puis tu fait un find sur la feuille source

exemple

ici on va voir si dans la feuille source il y a la valeur de la colonne A du sheets destination cellule par cellule
si elle y est ,on prends le offset (0,y) toujours dans la feuille source (a toi de remplacer y par la colonne que tu veux )
et on la met dans la ligne de la valeur dans la colonne "m" du sheets destination

Code:

1 2 3 4 5 6 with sheets("destination") for i= 2 to 519 set c= sheets("source").find(.cells(i,1).value,lookat:=xlvalue) if not c is nothing then then .cells(i,"m")=c.offset(0,y) next end with
Merci !! je commence à comprendre.
Il faut que j'adapte ton code pour prendre en compte le fait que la 1ere colonne dans la destination n'est pas forcément sur le même numéro de ligne que la source, mais ca avance.
25/09/2017, 14h54
pipersw

Ton code va recopier la ligne i du tableau source à la même ligne i dans la feuille destination.
Mais dans ma destination, j'ai plus de lignes dans la 1ere colonne que dans la feuille destination.

Il faudrait donc que je fasse aussi un find dans la destination, pour retrouver la bonne ligne ?
25/09/2017, 16h39
patricktoulon

re

non t a rien compris tu peu

c c'est la cellule trouve dans source elle peut être ou tu veux l'argument de find c'est la valeur de la cellule (i,1)de destination donc la valeur de c .offset(0,y)ira dans la cellulle (i,"m") dans destination c'est exactement ce que tu a demandé

y etant la colonne sur la même ligne que la C
25/09/2017, 16h54
BENNASR

PAS DE COMMENTAIRE SUR MES DEUX INTERVENTIONS INVISIBLES ??? :weird:
25/09/2017, 17h32
pipersw

Merci à tous pour les réponses :)