Copier deux lignes

Bonjour à tous.
J’ai une macro me permettant d’insérer une ligne dans une liste de données : A5:H5.
Je voudrais pouvoir insérer non pas une mais deux lignes: A5:H6. Je bloque.
Sub Insertcourses()
Dim i%, Dl%
Dim Ws As Worksheet
Set Ws = Sheets(« Inscriptions »)
Dl = Ws.Range(« A » & Rows.Count).End(xlUp).Row + 1

Ws.Range(« A5:H5 »).Copy
Ws.Cells(Dl, 1).PasteSpecial Paste:=xlPasteValues

Range(« A9:H » & Dl).Select
ActiveWorkbook.Worksheets(« Inscriptions »).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(« Inscriptions »).Sort.SortFields.Add Key:=Range(« A9 »), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(« Inscriptions »).Sort
.SetRange Range(« A9:H » & Dl)
.Header = xlNo
.Orientation = xlTopToBottom
.Apply
End With
Application.CutCopyMode = False
Range(« A5:H5 ») = «  »
Range(« A5 »).Select
Set Ws = Nothing
End Sub
Pouvez-vous m’aider? merci d’avance.

Bonjour,
Si j’ai compris

Sub Insertcourses()
  Dim i%, Dl%
  Dim Ws As Worksheet
  Set Ws = Sheets("Inscriptions")
  Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
  
  Ws.Range("A5:H6").Copy
  Ws.Cells(Dl, 1).PasteSpecial Paste:=xlPasteValues
  
  Range("A9:H" & Dl).Select
  ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Add Key:=Range("A9"), _
  SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Inscriptions").Sort
      .SetRange Range("A9:H" & Dl)
      .Header = xlNo
      .Orientation = xlTopToBottom
      .Apply
    End With
  Application.CutCopyMode = False
  Range("A5:H6") = ""
  Range("A5").Select
Set Ws = Nothing
End Sub

Bonjour Mimimathy, c’est ce que j’avais fait mais ça ne venait pas de là, j’avais changé ma sélection de cellules: A7 au lieu de A5. Je te remercie de ton intervention.

J’ai un petit soucis car la sélection que je copie (A7:H8) provient d’un résultat de combobox en A7,B7,E7 et F7. Lorsque le tri s’effectue (A) une ligne vide s’insère en début de tableau. J’ai essayé plusieurs méthodes en vain. Peut-tu me dire d’où cela provient ou veut-tu une simulation?
Merci à toi

Re,
C’est sur que pour résoudre des problèmes, un fichier est indispensable
image

Planning bidon 2.xlsm (160,6 Ko)
Bonjour Mimimathy,
Je t’ai fait un fichier bidon avec les explications dans l’onglet « Explications », pour trouver la solution de l’insertion de lignes vides. J’ai mentionné ce que je voudrais faire dans le fichier planning (avec une combobox), un renvoi de données dans une cas et une référence d’attribution à un chauffeur. Si tu pouvais y consacrer un peu de temps ce serait sympa. Merci encore à toi.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.