Discussion :

[sergio_gr66]

Bonjour à toutes et à tous,

j'ai a problem avec une macro, je n'arrive pas à la faire marcher, aparement il y a un problem avec le range pour selectioner les cellules.

Je vous montre la macro:

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
    If Range("d" & t) = "Datas" Then
        Workbooks.Open Filename:=Range("a" & t)
        nblignes = ActiveSheet.UsedRange.Rows.Count
        Sheets("Datas").Select
        Range("A1").Select
 
 
        Dim col As Integer
        col = col
        For col = 1 To 90
            If col > 90 Then
                Range("L" & Range("a" & Rows.Count).End(xlUp).Row + 1).Select
                ActiveCell.FormulaR1C1 = "Il n'y a pas cette information dans le fichier"
                Else
                    If Range(1 & col) = "CCE" Then
                        Range(2 & col).Select
                        Range(Selection, Selection.End(xlDown)).Select
                        Selection.Copy
                        Windows("CATALOGUE.xls").Activate
                        Sheets("CP ou EM").Select
                        Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                        :=True, Transpose:=False
                    End If
            End If
        Next col
End If

l'erreur que j'ai est l'Erreur d'execution '1004'
La méthode 'Range de l'objet _Globak' a échué.
merci beaucoup.

[kidone]

bonjour,
il me semble que le range attend une colonne du style "A1" or la il va avoir 1 et col ou 2 et col si on met a ou b ca marche

Code :

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

1
2
If Range(1 & col) = "CCE" Then
Range(2 & col).Select

en esperant que cela pourra vous aider

[sergio_gr66]

Bonjour et merci beaucoup pour votre aide, mais la macro fait le même erreur, je ne sais pas pour quio, j'ai déjà essayé plouisiers fois.

[ucfoutu]

Bonjour, sergio_gr66,

C'est une erreur, que montrait du doigt kidone, pas une suggestion de correction !
Range n'admet pas le paramètre passé !
Voies du côté de cells