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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Pouvez-vous mettre votre fichier a dispo sur ce site
https://www.cjoint.com/
0
Réponse 2 / 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