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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4639221
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.




Apitos
Le #4639151
Ca fonctionne trés bien.

Merci FFO;
Publicité
Poster une réponse
Anonyme