Pbm avec selection de données

Version imprimable

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:

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 ...

Essaye sans utiliser les "Select" inutiles

Code:

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

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

Il fonctionne mais uniquement pour le premier cas...

Code:

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...

07/07/2008, 17h49
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...
07/07/2008, 17h54
benoit13

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

Un grand Merci!!