Bonjour,

mon problème est tout simple mais je suis débutant en vba.

J'ai le code suivant:

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
Sub ggg()
Application.ScreenUpdating = False
Dim i As Integer
 
Sheets("Export").Select
With ThisWorkbook.Sheets("Export")
 
  'Columns("F:F").Insert Shift:=xlToRight
            For i = .Range("A2" & .Rows.count).End(xlUp).Row To 2 Step -1
 
                        If .Range("A" & i).Value <> "0" Then
                         Range("F" & i).Value = "00000" & i & " " & Range("G" & i).Value
                              End If
 
 
    Next i
End With
 
            Application.ScreenUpdating = True
 
 
 
            End Sub
Ma question est la suivante: Comment faire pour appliquer ce code uniquement au cellule F2 à F10 puis appliquer quatre zéro au lieu de 5 de F11 à F100 et 3 de F100 à la fin.

Merci par avance