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

[Jahvik]

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 !

 

[Jahvik]

Re : Inertion ligne automatique (avec formule) sur plusieurs feuilles

Petit up pour toute âme charitable !

 

[Staple1600]

Re : Inertion ligne automatique (avec formule) sur plusieurs feuilles

Bonsoir

En joignant un xls plutôt qu'un xlsm , plus de membres du forum pourront tester ton fichier.
(Tout le monde n'est pas encore sous Excel 2007 ou 2010)

Essaie avec ceci (à tester plus avant)

Sub ajout_ligne()
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 + 1).Insert Shift:=xlDown
Next s
Application.CutCopyMode = False
End Sub

 

[Jahvik]

Re : Inertion ligne automatique (avec formule) sur plusieurs feuilles

@Stale1600, merci infiniment pour ton aide ! Ce code que tu m'as proposé est très efficace et fonctionne à merveille
Merci encore, ça m'enlève une grosse épine du pied ! Bonne soirée

 

[Staple1600]

Re : Inertion ligne automatique (avec formule) sur plusieurs feuilles

Re

Ce code que tu m'as proposé est très efficace et fonctionne à merveille

Si j'étais toi, je me méfierais.

Pas sur que ce code soit si merveilleux que cela.

D'où mon

à tester plus avant

PS: Staple1600 pas Stale1600

 

[Jahvik]

Re : Inertion ligne automatique (avec formule) sur plusieurs feuilles

En fait, tu as raison. Je me suis un peu emballé
Le programme VBA correspond bien à ma question, mais en fait, je viens de me rendre compte que ce ne sont pas toutes les feuilles excel que je veux modifier. Je voulais savoir s'il était possible de faire l'insertion ligne automatique (avec formule) uniquement sur les Feuil1, Feuil2, Feuil3 ; mais pas sur la Feuil4.

Merci pour ton coup de main, et désolé de t'importuner

 

[jpb388]

Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Bonjour
Autre version
a+
jp

 

[Jahvik]

Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Merci beaucoup jpb388 pour cette solution.

 

[Staple1600]

Re : [Resolu] Insertion ligne automatique (avec formule) sur plusieurs feuilles

Bonsoir


Tu vois j'avais pressenti que la merveille n'en avait que la façade

Heureusement, jpb388 est passé par là.

 

[Jahvik]

Re : [Resolu] Insertion ligne automatique (avec formule) sur plusieurs feuilles

Ben justement, si. Honnêtement, j'ai vraiment rouvé ton programme au point Ca m'a meme permis de comprendre un peu mieux le VBA et ca, c'est une performance.
En fait j'ai un dernier petit souci et ensuite mon probleme devrait etre réglé. Voilà, grace à ton programme, l'insertion de la ligne se fait pour chaque feuille et respecte en plus les formules attribuées. Je voulais savoir s'il était possible de faire une insertion (à partir du bouton "Insertion ligne") uniquement pour les Feuil1, Feuil2, Feuil3 ; mais en aucun cas, je ne dois modifier la Feuil4.

Est-ce possible ? J'apprécie vraiment ton aide

 

[Staple1600]

Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Re

Tu connais le Select Case ?

 

[Jahvik]

Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Malheureusement nan...

 

[Staple1600]

Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Re

Oh ce n'est rien
Il suffit de 3 touches pour y remédier : ALT+F11 puis F1

EDITION: Voici de quoi t'inspirer

Sub a()
Dim s As Worksheet
For Each s In Worksheets
Select Case s.Name
Case "Feuil1", "Feuil2", "Feuil3"
MsgBox s.Name
End Select
Next s
End Sub

 

[Jahvik]

Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles

Ok, merci. Je fais une recherche sur son fonctionnement et le moyen de l'associer à mon insertion de ligne, et je t'en dirai plus.

 

[Jahvik]

Insertion ligne automatique (avec formule) sur plusieurs feuilles

Eh bien manifestement, la méthode avec l'instruction "Select Case" marche super bien ! Pour ceux intéressés (merci beaucoup à Staple1600 et jpb388), voici l'instruction à suivre.

Dans mon exemple ci-après, le fichier Excel comporte quatre feuilles Feuil1, Feuil2, Feuil3, Feuil4 et le but est de copier une ligne avec formule correspondante dans les feuilles 1, 2 et 3 (pas de copie dans la 4) :
**************Ajout ligne & formule pour feuilles 1, 2 et 3 uniquement***************
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
Select Case s.Name
Case "Feuil1", "Feuil2", "Feuil3"
s.Rows(ligne).Copy
s.Rows(ligne).Insert Shift:=xlDown
End Select
Next s

Application.CutCopyMode = False

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

A présent, même chose mais pour supprimer une ligne dans chaque feuille :
**********Suppression ligne & formule pour feuilles 1, 2 et 3 uniquement**********
Sub suppression_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("Quelle ligne voulez-vous supprimer ?", "N° Ligne")

For Each s In Worksheets
Select Case s.Name
Case "Feuil1", "Feuil2", "Feuil3"
s.Rows(ligne).Delete Shift:=xlUp
End Select
Next s

Application.CutCopyMode = False

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