Erreur d'ex=E9cution '13':
Incompatibilit=E9 de type
dans la ligne :
Set y =3D Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0, 1).Value,
LookAt:=3DxlWhole)
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:=3DxlFilterCopy, CopyToRange:=3D[M1],
Unique:=3DTrue
For Each c In Range([B2], [B65000].End(xlUp))
Set x =3D [M:M].Find(c, MatchCase:=3DFalse, LookAt:=3DxlWhole)
Set y =3D Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0,
1).Value, LookAt:=3DxlWhole)
If y Is Nothing Then
Cells(x.Row, 255).End(xlToLeft).Offset(0, 1) =3D c.Offset(0,
1).Value
End If
Next c
[M2:W300].Sort key1:=3D[M2]
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut Apitos
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 !!!
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:úlse, 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.
Salut Apitos
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 !!!
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:úlse, 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
y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0, 1).Value, LookAt:=xlWhole)
Une solution qui fonctionne
Dis moi !!!
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:úlse, 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
