Bonjour à tous,

J'ai un petit souci de concaténation :

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
Sub Boucle()
Dim i As Integer, j As Integer
Dim Plage As Range, Cellule As Range
 
Sheets("GOOD").Activate
i = 4
j = 1
    Do
        If i > 15000 Then Exit Do
            If (Sheets("GOOD").[M & i] = 1) Then
                Sheets("GOOD").Select
                Range("E" & i & ":G" & i).Select
                Selection.Copy
                Sheets("test").Select
                Range("D" & j).Select
                ActiveSheet.Paste
            End If
            j = j + 1
            i = i + 1
    Loop While Cells(i, 2) <> ""
 
End Sub
le probleme se situe à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If (Sheets("GOOD").[M & i] = 1) Then
Il ne veut pas prendre le code [M & i], j'ai essayé aussi ["M" & i ] mais sa ne fonctionne pas non plus , l'erreur et la suivante :

Erreur d'éxécution '13':

Incompatibilité de type
Voila en espérant avoir été le plus clair possible.

Cordialement