Bonjour,
C'est dans le cadre de mon travail.
Je voudrais voire la liste complete des codes postaux en sachant qu'ils sont classe de cet maniere :
1000 - 1050
1070 - 1100
1180 - 1280
ect
Est-il possible, avec un formule ou macro d'extraire tout les data qui se trouve dans l'interval?
Donc
1001,1002,1003....1050
1070,1071...ect
En cherchent sur internet j'ai trouve ceci. Mais ca marche que pour la premiere ligne :
Sub inscol()
Application.ScreenUpdating = False
On Error GoTo ext
Dim cl As Range, lc As Integer, i As Integer
lc = Cells(1, Columns.Count).End(xlToLeft).Column
If lc <> 1 And Cells(1, lc) - Cells(1, 1) < 256 Then
For i = lc To 2 Step -1
With Cells(1, i)
If .Value - .Offset(, -1).Value > 1 Then
.EntireColumn.Insert
.Offset(, -1) = .Value - 1
i = i + 1
End If
End With
Next
End If
ext:
Application.ScreenUpdating = True
End Sub
Merci!
C'est dans le cadre de mon travail.
Je voudrais voire la liste complete des codes postaux en sachant qu'ils sont classe de cet maniere :
1000 - 1050
1070 - 1100
1180 - 1280
ect
Est-il possible, avec un formule ou macro d'extraire tout les data qui se trouve dans l'interval?
Donc
1001,1002,1003....1050
1070,1071...ect
En cherchent sur internet j'ai trouve ceci. Mais ca marche que pour la premiere ligne :
Sub inscol()
Application.ScreenUpdating = False
On Error GoTo ext
Dim cl As Range, lc As Integer, i As Integer
lc = Cells(1, Columns.Count).End(xlToLeft).Column
If lc <> 1 And Cells(1, lc) - Cells(1, 1) < 256 Then
For i = lc To 2 Step -1
With Cells(1, i)
If .Value - .Offset(, -1).Value > 1 Then
.EntireColumn.Insert
.Offset(, -1) = .Value - 1
i = i + 1
End If
End With
Next
End If
ext:
Application.ScreenUpdating = True
End Sub
Merci!