Re : Problème sur MACRO excel 2010
Je vais commenter...
tu verras ensuite à améliorer
mais si on cherche plus loin que dans la colonne A, ce n'est plus le même résultat et je n'ai pas le temps de faire la suite.
je ne comprends pas ta question:
soit tu cherches "four" en colonne A de "data" soit tu cherches dans l'autre feuille
edit:
Sub Chercher()
Set ws1 = Sheets("data") ' mémoriser les différentes feuilles en un mot plus court et plus facile à selectionner (entre autres)
Set ws2 = Sheets("motscles")
ws1.Activate
Set ZONE = ws1.Range("D5:d" & Range("D65000").End(xlUp).Row) ' zone des mots à chercher
ws2.Activate
With ws2.Range("A3:A" & Range("A65000").End(xlUp).Row) 'de la ligne 3 à la dernière occupée, colonne A
For Each cell In ZONE ' boucler sur la zone
Set c = .Find(What:=cell, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstaddress = c.Address
Do
cell.Offset(0, 2).Value = c.Offset(0, 1).Value ' copie en colonne voisines (E-F-G-H)
cell.Offset(0, 3).Value = c.Offset(0, 2).Value
cell.Offset(0, 4).Value = c.Offset(0, 3).Value
cell.Offset(0, 5).Value = c.Offset(0, 4).Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
Next
End With
End Sub