Discussion :

[Stef31]

Bjr à tous,
Malgré de nombreux forum sur ce sujet, je ne trouve pas de réponse à mon probleme.
"erreur 1004 : la méthode Select de la classe range a échoué" lorsque j'essaye de selectionner une plage de donnée variable (ligne 25 du 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
'Initialisation Onglet remise de Chèque
    Sheets("Remise cheques").Activate
    last_ligne = Range("A10000").End(xlUp).Row
    numero_dernier_bordereau = Cells(last_ligne, 1).Value
 
    ligne_bleue_debut = 6
    ligne_bleue_fin = 0
    ligne = 11
    P1 = 0
 
    Do While ligne_bleue_debut < 1000
        'init feuille de calcul
        If P1 = 0 Then
            Sheets("Remise cheques").Range("A6:Z10000").Select
            Selection.Delete Shift:=xlUp
            Sheets("Remise cheques").Range("F6").Select
            ActiveCell.FormulaR1C1 = _
                "=IF(VLOOKUP(RC[-5],Compte!R4C2:R258C7,6,FALSE)="""","""",VLOOKUP(RC[-5],Compte!R4C2:R258C7,6,FALSE))"
            Sheets("Remise cheques").Range("A6").Select
            P1 = 1
        End If
        'mise en forme
        'Sheets("Remise cheques").Activate
        Range("A" & ligne_bleue_debut & ":F" & ligne_bleue_debut).Select
        With Selection.Interior
            .ColorIndex = 34
            .Pattern = xlSolid
        End With
        Sheets("Remise cheques").Range("F6").Select
        Selection.Copy
        Cells(ligne_bleue_debut, 6).Select
        Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
            ligne_bleue_debut = ligne_bleue_debut + 1
        ligne_bleue_fin = ligne_bleue_debut + ligne
        Sheets("Remise cheques").Range(Cells(ligne_bleue_debut, 1), Cells(ligne_bleue_fin, 1)).Select
        Selection.Rows.Group
        ligne_bleue_debut = ligne_bleue_fin + 2
    Loop

Si une bonne âme a une explication a mes déboires...
Merci

[Philippe Tulliez]

Bonjour,
Est-ce que par hasard la variable ligne_bleue_debut ne serait pas égal à zéro ou inférieur au moment de l'erreur ?

[Stef31]

Bjr Philippe,
la variable ligne_bleue_debut est initialisée à 6 en ligne 7 du code et reste bien à 6 jusqu'au plantage.

[Philippe Tulliez]

Bonjour,
Alors je ne vois pas où est le problème. Je viens de faire le test sur la feuille active et je n'ai pas eu de soucis

Code :

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

1
2
3
 Dim ligne_bleue_debut As Long
 ligne_bleue_debut = 6
 Range("A" & ligne_bleue_debut & ":F" & ligne_bleue_debut).Select

[Stef31]

Bjr,
même si je tape

Code :

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

Range("A6:F6").Select

ça plante...Foutrement bizarre

bon a priori, il fallait faire

Code :

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

Sheets("Remise cheques").range

et non pas que "range" dans la feuille active, je n'ai pas d'explication sur la raison.

Et range ne fonctionne tjrs pas avec

Code :

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

Range (cells(a,b),cells(c,d)).select

[Philippe Tulliez]

Bonjour,
Pourquoi utiliser la méthode Select ?
Si c'est pour lire et écrire sur une cellule ou plage de cellules, c'est parfaitement inutile et de plus cela ralenti l'exécution de la procédure

[Stef31]

Bjr,
j'utilise effectivement cette méthode pour écrire/supprimer/mettre des couleurs dans la cellule.
Ok pour l'info.
merci