Discussion :

[tomy7]

je n arrive pas a ecrire correctement mon range :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Worksheets("Add").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = "Add" & Sheets.Count - 3
ActiveSheet.visible = True
Worksheets("Main").Select
Dim i As Integer
For i = 279 To 500
MsgBox ("G" & i & ":N" & i)
Range("G" & i & ":N" & i).Select
Selection.Row.Insert
Range("G" & i).Value = "Add" & i & "!C5"
Next i

une idee pk sa bug

[Qwazerty]

SAlut
Le tag délestage ? c'est une erreur ou bien ?
Dans le doute
Je pense que c'est par ce que tu transtype pas tes i

Code :

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

Range("G" & cstr(i) & ":N" & cstr(i)).Select

Mais je peux te proposer une autre façon de faire

Code :

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

Range(cells(i,"G"),cells(i,"N")).select

A++
Qwaz