inputbox selectionné plusieurs lignes

[eillon]

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.

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

 

[skoobi]

Re : inputbox selectionné plusieurs lignes

Bonjour,

avec le fichier on verra mieux ce qui se passe.

 

[Cousinhub]

Re : inputbox selectionné plusieurs lignes

Bonjour

Skoobi , le fichier est là :

Fichier

 

[JCGL]

Re : inputbox selectionné plusieurs lignes

Bonjour à tous,

BH² : je te confirme que cela fonctionne parfaitement : je dois, aussi, avoir un XL différent arf


A+

 

[eillon]

Re : inputbox selectionné plusieurs lignes

Du coup personne pour m'aider, moi ça ne marche pas.
je'aimerai pouvoir le faire avec une inputbox, mais je ne comprends pas pourquoi c'est la deuxième ligne qui est copié indéfiniment...