XL 2016 Macro pour incrémenter des lignes

LAPIN-53 · 21 Juin 2023

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

sylvanu · 21 Juin 2023

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

LAPIN-53 · 21 Juin 2023

Bonjour et merci pour votre aide.
J'ai bien compris l'idée, mais ça ne fonctionne pas lorsque je clique sur une cellule "ajouter une ligne", même en modifiant le texte comme dans la macro.

sylvanu · 21 Juin 2023

Bonjour,
Qu'entendez vous par :

LELIEVRE à dit:
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 :

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

LAPIN-53 · 21 Juin 2023

Avec toutes mes excuses. Effectivement, le fichier fonctionne bien. (Les macros étaient bloquées)
Merci beaucoup, c'est vraiement génial ce que vous avez fait.
Je garde le code précieusement pour une prochaine fois.
Merci et bonne journée

XL 2016 Macro pour incrémenter des lignes

LAPIN-53

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

LAPIN-53

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

LAPIN-53

XLDnaute Nouveau

Discussions similaires