Discussion :

[benoit13]

Bonjour, j'ai une erreur sur le Range("D1:O7").Select du code ci dessous...(erreur d'éxécution 1004 'La méthode Select de la classe Range a échouée')
Je ne comprends pas pourquoi!
Si quelqu'un voit je suis preneur.

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$24" Then
    Select Case Target.Value
        Case 1
            Sheets("Calcul").Select
            Range("D1:O7").Select
            Selection.Copy
            Sheets("Récap").Select
            Range("B23").Select
            ActiveSheet.Paste
...

[fring]

Essaye sans utiliser les "Select" inutiles

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$24" Then
    Select Case Target.Value
        Case 1
            Sheets("Calcul").Range("D1:O7").Copy Sheets("Récap").Range("B23")
        Case 2
            '...
    End Select
End If

[benoit13]

J'ai modifié le code et surprise...

Il fonctionne mais uniquement pour le premier cas...

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
19
20
21
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$24" Then
    Select Case Target.Value
        Case 1
            Sheets("Calcul").Range("D1:O7").Copy Sheets("Récap").Range("B23")
        Case 2
            Sheets("Calcul").Range("D18:P14").Copy Sheets("Récap").Range("B23")
        Case 3
            Sheets("Calcul").Range("D15:O23").Copy Sheets("Récap").Range("B23")
        Case 4
            Sheets("Calcul").Range("D24:N36").Copy Sheets("Récap").Range("B23")
        Case 5
            Sheets("Calcul").Range("D37:O43").Copy Sheets("Récap").Range("B23")
        Case 6
            Sheets("Calcul").Range("D37:O43").Copy Sheets("Récap").Range("B23")
    End Select
End If
 
End Sub

Je n'y comprends rien!

Pour info, j'ai le même message d'erreur mais avec copy à la place de select...
La méthode Copy de la classe Range a échouée...

[fring]

Code testé et il fonctionne sans problème, vérifie si tes noms sont correctes, si tu n'as pas de cellules fusionnées, etc...

[benoit13]

Tu avais évidemment raison!!
Certaines de mes cellules étaient fusionnées...

Un grand Merci!!