Problème de selection de cellule

Version imprimable

Bonjour à tous,
Je voudrais dans une macro sélectionner des cellules contiguës selon une ligne et une colonne paramétrées.
j'ai écrit ceci mais ça ne fonctionne pas (erreur d'éxécution 1004 sur cette ligne):

Code:

Range(Cells(Ligne, Colonne), Cells(Ligne + 1, Colonne - 11)).Select

J'ai beau chercher dans tous les sens et sur Internet, mais je ne trouve pas de réponse qui résolve mon problème :?

Les variables sont déclarées comme ci-dessous:

Code:

1
2
3
 
Dim Colonne As Integer
Dim Ligne As Integer

Voici le début du code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Sub Test()
 
Dim Colonne As Integer
Dim NumSemaine As Integer
Dim Ligne As Integer
Dim Onglet As String
 
Application.ScreenUpdating = False
 
NumSemaine = ActiveSheet.Cells(16, 2).Value
If ActiveSheet.Cells(16, 3) = "AA" Then Ligne = 6
If ActiveSheet.Cells(16, 3) = "BB" Then Ligne = 20
If ActiveSheet.Cells(16, 3) = "CC" Then Ligne = 34
If ActiveSheet.Cells(16, 3) = "DD" Then Ligne = 48
If ActiveSheet.Cells(16, 3) = "EE" Then Ligne = 62
If ActiveSheet.Cells(16, 3) = "FF" Then Ligne = 76
 
If ActiveSheet.Cells(16, 3) = "AA" Then Onglet = "PA_AA"
If ActiveSheet.Cells(16, 3) = "BB" Then Onglet = "PA_BB"
If ActiveSheet.Cells(16, 3) = "CC" Then Onglet = "PA_CC"
If ActiveSheet.Cells(16, 3) = "DD" Then Onglet = "PA_DD"
If ActiveSheet.Cells(16, 3) = "EE" Then Onglet = "PA_EE"
If ActiveSheet.Cells(16, 3) = "FF" Then Onglet = "FF"
 
'Efface les données d'Archive si la synthèse de la semaine 12 est lancée
 
 If NumSemaine = 12 Then
 Sheets("Archive").Activate
 Sheets("Archive").Range("D6:N100").ClearContents
 
 End If
 
'Cherche les données de la semaine sélectionnée dans l'onglet ZZ
 
For Colonne = 4 To 68
 
    If Sheets("ZZ").Cells(6, Colonne) = NumSemaine Then
 
       ' Copie/colle les données Pertes (%)
 
     Sheets("ZZ").Select
     Range(Cells(Ligne, Colonne), Cells(Ligne + 1, Colonne - 11)).Select
    Application.CutCopyMode = False
    Selection.Copy
 
    Sheets("XX").Select
    Range("I46").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
.................
End Sub

Bon, déjà, on peut facilement optimiser le code...mais je le ferai par la suite.
Si quelqu'un pouvait me donner une piste à mon erreur.

Merci de votre aide

Amicalement,

Luka

04/12/2014, 15h12
Marc-L

Bonjour, bonjour !

Un numéro de colonne - comme de ligne - ne peut être inférieur à 1 !

Donc si la colonne est entre un et onze : Colonne - 11 déclenche de facto une erreur, CQFD !
Erreur de conception vis à vis de la ligne n°36 du code …

Sinon il est plus simple de combiner la cellule de départ (coin supérieur gauche de la plage de cellules)
avec la propriété Resize (cf aide VBA intégrée) …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

En tenant compte des remarques de Marc, y compris pour la propriété "Resize", j'ajouterai que tous tes "Select" sont inutiles, j'écrirai (bien sur si le problème des colonnes ou lignes est résolu), pour l'exemple
Code:

1 2 3 4 5 6 For Colonne = 4 To 68 If Sheets("ZZ").Cells(6, Colonne) = NumSemaine Then Sheets("XX").Range("I46") = Sheets("ZZ").Range(Cells(Ligne, Colonne), Cells(Ligne + 1, Colonne - 11)) .................
à la place de
Code:

1 2 3 4 5 6 7 8 9 10 Sheets("ZZ").Select Range(Cells(Ligne, Colonne), Cells(Ligne + 1, Colonne - 11)).Select Application.CutCopyMode = False Selection.Copy Sheets("XX").Select Range("I46").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False
C'était juste une remarque supplémentaire

04/12/2014, 15h28
Luka_W

Bonjour Marc L,

C'est tellement gros que je ne l'ai pas vu. Boucle ligne 36 modifiée et essai --> Plus de problème, cela fonctionne.

Un grand merci à toi.

Amicalement,
Luka
04/12/2014, 15h33
casefayere

Content que ça fonctionne mais tiens compte de mes remarques (enfin, tu feras comme tu veux..)

Bonne continuation
04/12/2014, 15h35
Luka_W

Bonjour casefayere,
Cela ne fait pas longtemps que je fricote avec le vba, je me sers souvent de l’interpréteur de macro quand je ne connais pas trop les instructions, puis j'optimise une fois que tout fonctionne..

Merci pour cette amélioration, je vais m'en servir (et pour plusieurs autres projets).

Bonne journée
Amicalement,
Luka