P
Pierrot
Guest
Bonsoir à tous.
Voici mon pb du soir.
Par la méthode ci dessous j'essais de récréer une liste2 à partir d'une liste1
afin de supprimer les doublons. Vous allez peut être me dire que cette méthode est nulle, mais en attendant je ne vois pas ce qui cloche et pourquoi je plante avec comme message d'erreur, objet non défini bloc with etc...
Merci pour votre aide
Private Sub Constitution()
Dim LastCel1 As Range, Cel1 As Range, Lastcel2 as range,CelNNO2 As Range
For Each i In PlageSearch1
Set Cel1 = PlageSearch1.Find(what:=i.Value, LookAt:=xlWhole, MatchCase:=False)
Set Cel2 = PlageSearch2.Find(what:=Cel1.Value, LookAt:=xlWhole, MatchCase:=False)
If CelNNO.Value <> CelNNO2.Value Then 'je plante ici
set LastCel2=PlageSearch2.End(xlDown).Offset(1, 0)
LastCel2.Value = UCase(Cel1.Value)
End If
Next
End Sub
Je tiens à préciser que je ne peux pas supprimer les doublons dans ma première liste. C'est important.
Bye
Pierrot
Voici mon pb du soir.
Par la méthode ci dessous j'essais de récréer une liste2 à partir d'une liste1
afin de supprimer les doublons. Vous allez peut être me dire que cette méthode est nulle, mais en attendant je ne vois pas ce qui cloche et pourquoi je plante avec comme message d'erreur, objet non défini bloc with etc...
Merci pour votre aide
Private Sub Constitution()
Dim LastCel1 As Range, Cel1 As Range, Lastcel2 as range,CelNNO2 As Range
For Each i In PlageSearch1
Set Cel1 = PlageSearch1.Find(what:=i.Value, LookAt:=xlWhole, MatchCase:=False)
Set Cel2 = PlageSearch2.Find(what:=Cel1.Value, LookAt:=xlWhole, MatchCase:=False)
If CelNNO.Value <> CelNNO2.Value Then 'je plante ici
set LastCel2=PlageSearch2.End(xlDown).Offset(1, 0)
LastCel2.Value = UCase(Cel1.Value)
End If
Next
End Sub
Je tiens à préciser que je ne peux pas supprimer les doublons dans ma première liste. C'est important.
Bye
Pierrot