Erreur "1004 select methode of range class failed"

Résolu/Fermé
Miss_tik76 - 27 janv. 2014 à 11:35
 Miss_tik76 - 27 janv. 2014 à 11:52
Bonjour,

J'ai une erreur "1004 select methode of range class failed", qui se produit sur ma ligne :
                        Sheets("DATA").Range("F2").Activate
Si j'enlève Sheets("DATA"). je n'ai plus l'erreur mais il séléctionne la cellule F2 de la feuille KURGIS alors que je veux la cellule F2 de la feuille DATA...

Ci dessous mon code :

    For Each f In Plage_1
If f <> "" Then
vehicule = Range("D11").Value
f.Copy
With Worksheets("DATA")
Cel_1 = Sheets("DATA").Cells.Find(vehicule, , , , , xlNext).Address
If Sheets("DATA").Range("B2").Value = Sheets("KURGIS").ComboBox1.Value Then
If Sheets("DATA").Range("D2").Value = f.Offset(-1, 0).Value Then
Sheets("DATA").Range("F2").Select
End If
End If
End With
End If
Next f

1 réponse

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 27/01/2014 à 11:47
Bonjour,

Si tu utilises With Worksheets("DATA") ... End With il ne faut pas mettre ensuite Sheets("DATA"). Le With objet... End With est fait pour éviter d'avoir à répéter la référence de l'objet.

With Worksheets("DATA")
                Cel_1 = Sheets("DATA").Cells.Find(vehicule, , , , , xlNext).Address


Devient :

With Worksheets("DATA")
                Cel_1 = .Cells.Find(vehicule, , , , , xlNext).Address


Il faut faire de même le code entre With ... End With.

Je ne comprends pas pourquoi faire .Range("F2").Select sans autre action derrière !!!

;0)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0
Merci Polux31 !
En effet il n'y a aucun sens pour le moment de faire .Range("F2").Select sans autres action mais je test mon code au fur et a mesure que je le fais ;)
Bonne journée à vous
0