Erreur "1004 select methode of range class failed"

[Résolu/Fermé]
Signaler
-
 Miss_tik76 -
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

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 174
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
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