XL 2010 Erreur d'exécution 1004

Myst · 14 Juillet 2016

Bonjour le forum
J'aurais besoin d'aide pour une erreur d'execution 1004 lors que je fais une recherche par date avec l'userform "usf_Selection" du fichier ci-joint
Les valeurs trouvées doivent normalement s'afficher dans la feuill "recherche" mais il y a un bug et c'est la feuill "Base" qui est remplacée
Si quelqu'un peu jeter un oeil
Merci

Shakki · 14 Juillet 2016

Bonjour,

As-tu essayé de contourner le problème en mettant On Error Resume Next ?

VB:

...
On Error Resume Next
If IsEmpty(Target.Offset(, -5)) Or Target.Offset(0, 0).Value = "QIE" Then

Ensuite dans ton userform, en fin de code, tu lui indiques que s'il trouve QIE dans les valeurs copiées, il supprime la ligne.

VB:

....
Application.Goto Sheets("Recherche").Range("a1"), True
For j = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(j, 6).Value = "QIE" Then Rows(j).Delete
Next

Myst · 14 Juillet 2016

Bonjour le forum, Shakki
Très bonne analyse, ça fonctionne nickel
Problème résolut, un grand merci a toi

XL 2010 Erreur d'exécution 1004

Myst

XLDnaute Occasionnel

Pièces jointes

Shakki

XLDnaute Occasionnel

Myst

XLDnaute Occasionnel

Discussions similaires