BOnjour,
Voici une macro qui me permet de sélectionner les lignes correspondantes à la région parisienne (fonction du numéro département).
J'aimerai pouvoir sélectionner les départements par une msgbox pour sélectionner les départements qui m'intéressent et modifier par la même occasion le nom de la nouvelle feuille...
Voici une macro qui me permet de sélectionner les lignes correspondantes à la région parisienne (fonction du numéro département).
J'aimerai pouvoir sélectionner les départements par une msgbox pour sélectionner les départements qui m'intéressent et modifier par la même occasion le nom de la nouvelle feuille...
Code:
Sub select()
'déclaration des variables
' ------------------------
Dim numligne As Long
Dim départ As Integer
Dim numl As Integer
Dim n As Integer
' TRAITEMENT
' ----------
Application.ScreenUpdating = False
Sheets.Add.Name = "région parisienne"
Sheets("Fichier unique Antony").Select
numligne = 2
numl = 2
n = 1
Do
départ = Int(Range("E" & numligne) / 1000)
Select Case départ
Case 2, 8, 10, 14, 18, 21, 22, 27, 28, 29, 35 To 37, 41, 44, 45, 49, 50 To 62, 67, 68, 70, 72, 76, 79 To 80, 85, 86, 88 To 90
' ne rien effacer
Case Else
Range(numligne & ":" & numligne).Select
x = x + 1
Selection.Copy Sheets("Région parisienne").Range("A" & x)
n = n + 1
End Select
numligne = numligne + 1
Loop Until Range("E" & numligne) = ""
Application.ScreenUpdating = True
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub