Discussion :

[dev81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[ilcocodrillo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ça devrait aller rmieux

[lilemy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

on peut ensuite utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Evite les selections qui ralentissent et alourdissent le code

[dev81]

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("....")

[ouskel'n'or]

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.

[dev81]

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

[lilemy]

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)

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

PS - ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dev81]

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

[ilcocodrillo]

Ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(TACELLULE).PasteSpecial Paste:=xlPasteValues

[dev81]

Merci à tous