XL 2019 Macro pour copier insere une plage de cellules

les cellules de B aK + la cellule selectionner A de la ligne

Cliquez pour agrandir...

sous la cellule sélectionner

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Bloody_Toad,
Pourriez vous fournir un petit fichier test représentatif avec l'attendu, ce serait plus simple.

Donc les cellules A à K ?

Comme la cellule sélectionnée est en colonne A, cela revient à coller les cellules A(n):K(n) en lignes A(n+1):K(n+1) ?

Cliquez pour agrandir...

sylvanu à dit:

Re,
Un essai en PJ avec cette macro que j'ai essayé de commenter :

VB:

Sub InsererLigne()
    L = ActiveCell.Row                                          ' On récupère le N° de ligne de la cellule active
    Application.DisplayAlerts = False                           ' On supprime les alertes ( car demande fichier )
    Range("A" & L & ":K" & L).Copy                              ' On copie les cellules A:K de la ligne active
    Range("A" & L & ":K" & L).Insert Shift:=xlDown              ' On insère une ligne et colle les valeurs
    Range("A" & L + 1 & ":K" & L + 1).Interior.Pattern = xlNone ' On supprime la couleur jaune
    Application.DisplayAlerts = True                            ' On remet les alertes en place
End Sub

Pour insérer une ligne, on clique sur une cellule et on appuie sur le bouton.
Une ligne est créer et les valeurs et formules de la ligne précédente sont copiées.
Le Application.DisplayAlerts = False est pour supprimer la demande de fichier qui est demandé, à cause des cellules M17 et M18 qui pointe sur un fichier. Une fois installé avec le fichier en place ( Pointage -04.00-2021.xlsm ) ces deux lignes peuvent être supprimées.

Cliquez pour agrandir...