XL 2016 Macro pour incrémenter des lignes

LAPIN-53

XLDnaute Nouveau
Bonjour,
Je souhaiterais créer un fichier dans lequel un bouton + incrémenterait une ligne avec une liste déroulante.
Cette 1ère étape je l'avais réussie avec l'enregistreur, sauf que j'ai 3 bouton à créer, du coup, si une ligne à été ajoutée la macro pour les 2 boutons suivants ne fonctionnent plus.
Quelqu'un pourrait-il m'aider à trouver le code pour ajouter autant de ligne souhaitée avec les différents boutons +.
Ci-joint mon fichier.
En espérant avoir été assez clair.
Merci d'avance à tout ceux qui pourront m'aider.
Bonne journée
 

Pièces jointes

  • fichier mvt agent(en cours de création).xlsm
    23.3 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Lelievre,
un essai en PJ.
J'ai supprimé les boutons, et utilisé une macro événementielle.
cette macro s'exécute lorsqu'on clique sur une cellule contenant "Ajouter une ligne"
Ainsi il n'y a qu'une macro pour tout faire.
A tester pour voir si cela vous convient .
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    ' Si plusieurs cellules sélectionnées ou ne contient pas "Ajouter une ligne" on sort.
    If Target.Count > 1 Or Left(Target, 17) <> "Ajouter une ligne" Then Exit Sub
    L = Target.Row          ' Ligne cliquée
    Rows(L + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C" & L & ":E" & L).AutoFill Destination:=Range("C" & L & ":E" & L + 1), Type:=xlFillDefault
    Range("C" & L + 1 & ":E" & L + 1).ClearContents
    Range("C" & L + 1 & ":E" & L + 1).Select
Fin:
End Sub
 

Pièces jointes

  • fichier mvt agent(en cours de création) (3).xlsm
    22.6 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Qu'entendez vous par :
même en modifiant le texte comme dans la macro.
Je repère la ligne cliquée si les 17 premiers caractères valent ""Ajouter une ligne", avec un A majuscule;
Sur mon PC et votre fichier cela donne :
20230621_095621.gif

Vous faites bien le test sur ma PJ, pas sur un autre fichier ?
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
315 098
Messages
2 116 190
Membres
112 679
dernier inscrit
Yupanki