Bonjour,
Je n'arrive pas à sélectionné les lignes avec la macro, il ne me copie que la deuxième ligne...😡
Je voudrais copier les lignes dans la nouvelle feuille en fonction des départements choisi, séparé par un virgule.
Je n'arrive pas à sélectionné les lignes avec la macro, il ne me copie que la deuxième ligne...😡
Je voudrais copier les lignes dans la nouvelle feuille en fonction des départements choisi, séparé par un virgule.
Code:
Sub departements()
Dim numligne As Long
Dim départ As Integer
Dim n As Integer
numligne = 2
n = 1
Sheets.Add.Name = "départements sélectionnés"
Application.ScreenUpdating = False
Sheets("Fichier unique Antony").Select
départ = Int(Range("E" & numligne) / 1000)
départ = InputBox("Veuillez saisir les N° des départements, séparés par des virgules :")
For n = Sheets("Fichier unique Antony").Range("E65536").End(xlUp).Row To 1 Step -1
Do
Range(numligne & ":" & numligne).Select
x = x + 1
Selection.Copy Sheets("départements sélectionnés").Range("A" & x)
n = n - 1
Loop Until Range("E" & numligne) = ""
Next n
Application.ScreenUpdating = True
End Sub