Erreur "1004 select methode of range class failed"
Résolu
Miss_tik76
-
Miss_tik76 -
Miss_tik76 -
Bonjour,
J'ai une erreur "1004 select methode of range class failed", qui se produit sur ma ligne :
Ci dessous mon code :
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
A voir également:
- Erreur "1004 select methode of range class failed"
- Input signal out of range - Forum Windows
- Erreur 3005 france tv - Forum TV & Vidéo
- Please select boot device ✓ - Forum Windows
- Getting package info failed en français - Forum Huawei
- Cb of london - Forum Vos droits sur internet
1 réponse
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.
Devient :
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
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
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