inputbox selectionné plusieurs lignes

  • Initiateur de la discussion Initiateur de la discussion eillon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eillon

XLDnaute Junior
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.

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
 
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...
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
4
Affichages
503
Réponses
3
Affichages
509
Réponses
10
Affichages
627
Réponses
2
Affichages
406
Retour