• Initiateur de la discussion Initiateur de la discussion tracor
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

tracor

Guest
salutation au phorum

je souhaiterai par macro inserer une ligne au dessus d'une ligne avec des données en recopiant la mise en forme
et faire en sorte que le total de la colonne prenne en compte la nouvelle ligne inseree

merci pour toutes suggestions

tracor
 
Bonsoir Tracor,


Pour répondre à la question posée, il suffit d'exécuter la séquence de code suivante :

====================================================
i = 20 'affecter à i le n° de la ligne devant laquelle insérer la nouvelle ligne
Rows(i).Insert Shift:=xlDown
Rows(i + 1).Copy
Rows(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
====================================================

Si les fonctions "Somme" permettant de calculer les totaux, travaillent avec des références relatives (et non absolues), la prise en compte de la nouvelle ligne dans les totaux devrait se faire automatiquement.

Bon courage pour la suite.

Omicron
 
salut Omicron

voici le code que tu m'as donné pour l'insertion d'une ligne
i = 12

Rows(i).Insert Shift:=xlDown
Rows(i + 1).Copy
Rows(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"

j'ai ajouté comme tu peux le voir une formule pour faire le total
malheureusement lors de l'insertion de la ligne le total ne se met pas à jour
le problème c que à chaque insertion la ligne total descend et le nombre de lignes à additionner augmentent
comment palier à ce problème

merci pour ton aide

tracor
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Excel graphique
Réponses
3
Affichages
295
Retour