[VBA-E] erreur '1004' Range

Bonjour,
J'ai une erreur sur cette ligne et je ne comprend pas. Le message d'erreur est:
"La méthode Select de la classe Range a échoué"
Quelle modification je peux faire?

Code:

---

ThisWorkbook.Worksheets("Tableau_Bord_Fonctions").Cells(3 + Cpt, 16).Select

---

Merci

Code:

---

ThisWorkbook.sheets("Tableau_Bord_Fonctions").Cells(3 + Cpt, 16).Select

---

ça devrait aller rmieux

Bonjour,
Bon je ne refais pas un Post je ne veux pas encombrer le forum pour rien.
Mais en faite j'ai exacyement la même erreur voici mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "Vous avez double cliqué sur la cellule " & Target.Address Cancel = True   If FeuilleExiste(ThisWorkbook, Target.Address) Then Sheets(Target.Address).Select Else Sheets.Add.Name = Target.Address tableau Sheets("Prix").Select Range(Target.Address).Select ActiveCell.FormulaR1C1 = "='" & Target.Address & "'!R48C7" Sheets(Target.Address).Select Range("B4").Select ActiveCell.FormulaR1C1 = "='Prix'!" & Target.adress & "(-2)" End If End Sub

---

L'erreur se trouve sur la ligne Range("B4").Select je ne comprend pas pourquoi sa ne fonctionne pas vu que c'est une ligne tout se qu'il y a de plus banale.

Pour sélectionner une cellule, il faut d'abord sélectionner la feuille puis, sur la ligne suivante, sélectionner la cellule.
Mais il est préférable de ne pas sélectionner ni une feuille ni une cellule.

Code:

---

1 2	Set FL1 = Thisworkbook.Worksheets("Tableau_Bord_Fonctions") Set FL2 = Thisworkbook.Worksheets("Tableau_Bord_Exigences")

---

on peut ensuite utiliser

Code:

---

If FL1.Cells(3 + Cpt, 16).value = "Chef" then Exigence = FL2.Cells(3 + Cpt, 16)

---

Evite les selections qui ralentissent et alourdissent le code ;)

Non ca ne marche pas en remplacant "worksheets" par "sheets".
Par contre ton erreur lilemy sont peut etre les guillemets que tu as oublié à la ligne avant, dans sheets("....")

Lilemy, ton problème n'est pas le même, ton code se trouve derrière un bouton, qui est un cas spécifique. Une réponse a été donnée la semaine dernière. Si je retrouve, je mets ça mais évite de te greffer sur la question d'un autre. ;)

Comment faire un copier coller d'une cellule sans selectionner alors?

Merci pour le lien si tu le trouve
Sinon se n'est pas un problème de guillemets à la ligne précédente.
Et enfin désolé si j'ai fait une bétise en me mettant dans se Post (mais en faite j'avais per qui se faisait un new post il soit supprimer car il en existé déjà un ressemblant comme cela se fait dans certain forum)

Code:

---

FL1.Cells(NoLigne,NoCol).copy destination:=FL2.Range("A" & NoLig2)

---

A+

PS - ou

Code:

---

FL1.Range("A10:Z15").copy destination:=FL2.Range("A" & NoLig2)

---

Très bien mais ca copie aussi la mise en forme.
Je voudrai coller que ma valeur et garder mon format.

Ou encore :

Code:

---

FL1.Cells(NoLigne,NoCol).value =FL2.Range("A" & NoLig2).value

---

Code:

---

Range(TACELLULE).PasteSpecial Paste:=xlPasteValues

---

Merci à tous