Créer une macro pour ajouter une ligne Fermé

Question

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

f894009 · Answer

Bonjour,

Pouvez-vous mettre votre fichier a dispo sur ce site
https://www.cjoint.com/

fabien25000 · Answer

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

Créer une macro pour ajouter une ligne

2 réponses

Discussions similaires

Newsletters