Discussion :

[had4789]

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

[Invité]

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 = 10 To 2 Step -1
 
                        If .Range("A" & i).Value <> "0" Then
                         Range("F" & i).Value =format( i & " " & Range("G" & i).Value,"0000")
                              End If
 
 
    Next i
End With
 
            Application.ScreenUpdating = True
 
 
 
            End Sub

[had4789]

Cela marche parfaitement merci beaucoup