Créer une macro pour ajouter une ligne

sibemol63 Messages postés 1 Statut Membre -  
fabien25000 Messages postés 697 Statut Membre -
Bonjour,

Je souhaite créer une macro associée au signe + de chaque catégorie (voir image)
L'objectif, en cliquant sur le + est d'insérer à la fin de chaque partie une ligne supplémentaire avec les formules de calcul.



J'y suis arrivée. Mais dès que je rajoute des lignes sur la partie 1 en utilisant la macro (pantalons), il me rajoute les lignes au mauvais endroit pour la partie 2 (robe).

Pouvez-vous m'aider ?
Merci d'avance

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Pouvez-vous mettre votre fichier a dispo sur ce site
    https://www.cjoint.com/
    0
  2. fabien25000 Messages postés 697 Statut Membre 59
     
    Bonjour,

    un exemple de code en partant du principe qu'il n'y a pas d'autre catégorie aprés robe... (sinon il faudra utiliser le même principe que l'insertion des lignes pantalon) : 

    Option Explicit

Sub InsLignPant()
    Dim I As Integer
    I = 1
    
    Do While Worksheets("NomFeuilaAjuster").Range("A" & I).Text <> "Robe"
        I = I + 1
    Loop
    Worksheets("NomFeuilaAjuster").Rows(I).Insert

End Sub
Sub InsLignRobe()
    Dim DerLig As Integer
    
    DerLig = Worksheets("NomFeuilaAjuster").Range("A" & Rows.Count).End(xlUp).Row
    Worksheets("NomFeuilaAjuster").Rows(DerLig + 1).Insert
End Sub


    il te restera la partie formule que tu as déjà résolue ;)

    Quand on ne dispose que d'un marteau tous les problèmes ressemblent à un clou
    0