Bonjour,
J'ai un petit problème avec excel, je vous explique.
J'ai un tableau de bord, avec les différents budgets prévisionnels pour chaque boutique d'une entreprise. J'ai commencé une ébauche de script VBA qui me permettrait d'ajouter (avec un bouton) une nouvelle boutique en précisant le budget prévisionnel total pour la boutique en question. J'aimerai que cette ligne insérée (en dessous de la ligne de la dernière boutique) prenne non-seulement les formules de la ligne du dessus, mais aussi que la ligne des totaux par budgets la prenne en compte ( que la fonction somme s'étende à la nouvelle ligne insérée).
Voici mon "code" :
Je ne sais pas si j'ai été clair, je vous joins mon fichier qui je pense lui est plutôt clair.
Remarque : Lorsque j'insère la ligne "à la main", et que je rentre manuellement un budget en fin de ligne, toutes les mises à jours sont faites comme je le souhaite.
Merci à vous
Max
J'ai un petit problème avec excel, je vous explique.
J'ai un tableau de bord, avec les différents budgets prévisionnels pour chaque boutique d'une entreprise. J'ai commencé une ébauche de script VBA qui me permettrait d'ajouter (avec un bouton) une nouvelle boutique en précisant le budget prévisionnel total pour la boutique en question. J'aimerai que cette ligne insérée (en dessous de la ligne de la dernière boutique) prenne non-seulement les formules de la ligne du dessus, mais aussi que la ligne des totaux par budgets la prenne en compte ( que la fonction somme s'étende à la nouvelle ligne insérée).
Voici mon "code" :
Code:
Option Explicit
Sub ajoutBoutique()
Dim nbBout As Integer, budget As Integer, numRow As Integer, nvNbBout As Integer
nbBout = Range("A2")
budget = Range("J2")
numRow = nbBout + 4
Rows(numRow).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("G" & numRow) = budget
nvNbBout = nbBout + 1
Range("A" & numRow) = "Boutique " & nvNbBout
End Sub
Je ne sais pas si j'ai été clair, je vous joins mon fichier qui je pense lui est plutôt clair.
Remarque : Lorsque j'insère la ligne "à la main", et que je rentre manuellement un budget en fin de ligne, toutes les mises à jours sont faites comme je le souhaite.
Merci à vous
Max