Difficulté avec Find

**pipersw** · 25/09/2017, 11h18

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 :

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

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 :

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

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

**Marc-L** · 25/09/2017, 11h31

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, …

**BENNASR** · 25/09/2017, 11h42

Bonjour
Une proposition

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
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

**BENNASR** · 25/09/2017, 11h49

ou bien

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
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

**pipersw** · 25/09/2017, 11h56

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 :

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

=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

**patricktoulon** · 25/09/2017, 13h10

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 :

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

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

**pipersw** · 25/09/2017, 14h12

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 :

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

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.

**pipersw** · 25/09/2017, 14h54

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 ?

**patricktoulon** · 25/09/2017, 16h39

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

**BENNASR** · 25/09/2017, 16h54

PAS DE COMMENTAIRE SUR MES DEUX INTERVENTIONS INVISIBLES ???

**pipersw** · 25/09/2017, 17h32

Merci à tous pour les réponses

Difficulté avec Find [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager