Erreur d'exécution
Le
Apitos

Salut;
J'ai cette erreur :
Erreur d'exécution '13':
Incompatibilité de type
dans la ligne :
Set y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0, 1).Value,
LookAt:=xlWhole)
Les cellules dont lesquelles il y'a des problemes celles qui sont
remplies pas des : #N/A
Voila le code de la macro :
Sub transforme()
[M2:W300].ClearContents
[B1:B1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[M1],
Unique:=True
For Each c In Range([B2], [B65000].End(xlUp))
Set x = [M:M].Find(c, MatchCase:=False, LookAt:=xlWhole)
Set y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0,
1).Value, LookAt:=xlWhole)
If y Is Nothing Then
Cells(x.Row, 255).End(xlToLeft).Offset(0, 1) = c.Offset(0,
1).Value
End If
Next c
[M2:W300].Sort key1:=[M2]
End Sub
Merci de votre aide.
J'ai cette erreur :
Erreur d'exécution '13':
Incompatibilité de type
dans la ligne :
Set y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0, 1).Value,
LookAt:=xlWhole)
Les cellules dont lesquelles il y'a des problemes celles qui sont
remplies pas des : #N/A
Voila le code de la macro :
Sub transforme()
[M2:W300].ClearContents
[B1:B1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[M1],
Unique:=True
For Each c In Range([B2], [B65000].End(xlUp))
Set x = [M:M].Find(c, MatchCase:=False, LookAt:=xlWhole)
Set y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0,
1).Value, LookAt:=xlWhole)
If y Is Nothing Then
Cells(x.Row, 255).End(xlToLeft).Offset(0, 1) = c.Offset(0,
1).Value
End If
Next c
[M2:W300].Sort key1:=[M2]
End Sub
Merci de votre aide.
Tu peux rajouter la ligne :
On Error Resume Next
Avant la ligne :
y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0,
1).Value, LookAt:=xlWhole)
Une solution qui fonctionne
Dis moi !!!
Merci FFO;