[Résolu] Insertion ligne automatique (avec formule) sur plusieurs feuilles

  • Initiateur de la discussion Initiateur de la discussion Jahvik
  • 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 !

Jahvik

XLDnaute Nouveau
Bonjour à toutes et à tous,

Je fais appel à vous car je bloque sur un petit fichier Excel, qui je crois nécessite des connaissances en VBA...Celui-ci après avoir été remis en forme et mis à jour par moi même comporte plusieurs formules différentes sur chaque onglet.

Je cherche à l'aide d'une macro, d'avoir la possibilité d'ajouter une ligne sur ma Feuil1 et que celle-ci s'ajoute ensuite sur les autres Feuil2 et Feuil3. Et ce en ajoutant à cette nouvelle ligne, la formule qui devrait lui être attribué.

J'ai déjà une petite macro qui copie la formule lors de l'insertion d'une ligne :
Sub ajout_ligne()
ligne = InputBox("A quelle position voulez-vous insérer une nouvelle ligne?", "N° Ligne")
Rows(ligne).Copy
Rows(ligne + 1).Insert Shift:=xlDown
End Sub

Dans mon fichier joint (tableau super simple), les cellules avec formules sont en bleu. Merci de votre aide 🙂 !
 

Pièces jointes

Dernière édition:
Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Et si vous souhaitez faire la copie ou la suppression d'une ligne pour toutes les feuilles de votre fichier, il suffit de faire :
**************Ajout ligne & formule pour toutes les feuilles***************
Sub ajout_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("A quelle position voulez-vous insérer une nouvelle ligne?", "N° Ligne")

For Each s In Worksheets
s.Rows(ligne).Copy
s.Rows(ligne).Insert Shift:=xlDown
End Select
Next s

Application.CutCopyMode = False

End Sub
*********************************************************

**********Suppression ligne & formule pour toutes les feuilles**********
Sub suppression_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("Quelle ligne voulez-vous supprimer ?", "N° Ligne")

For Each s In Worksheets
s.Rows(ligne).Delete Shift:=xlUp
End Select
Next s

Application.CutCopyMode = False

End Sub
************************************************************
 
- 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

Discussions similaires

Réponses
7
Affichages
543
Retour