Ajout d'une ligne sur toutes les feuilles sauf une

Résolu/Fermé
Messages postés
24
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
19 novembre 2021
-
Messages postés
24
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
19 novembre 2021
-
Bonjour !

J'aurais besoin de votre aide concernant une VBA. Le but étant d'ajouter une lignes à toutes les feuilles de mon fichier Excel (2007) sauf aux feuilles nommées "archives" et "synthèse". La VBA fonctionne concernant l'ajout mais j'ai tout de même des lignes ajoutées dans les feuilles "Archives" et "Synthèse". Je vous poste les macro testées. Pourriez-vous m'aidez à comprendre d'où vient l'erreur svp?

J'ai essayé (pour éviter d'ajouter une ligne dans la feuille "Synthèse")
Sub InsérerLigne()
Dim Ligne As Long, i As Integer
Ligne = ActiveCell.Row
Application.ScreenUpdating = False
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Synthèse" Then
     Rows(Ligne & ":" & Ligne).Copy
   Sheets(Ws.Name).Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown
  End If
  Next Ws
End Sub

et (pour éviter d'ajouter dans les feuilles "Archives" et "Synthèse"

Sub InsérerLigne()
Dim Ligne As Long, F As Integer
Ligne = ActiveCell.Row
For F = 1 To Sheets.Count
             If Not (Sheets(F).Name = "Archives" Or Sheets(F).Name = "Synthèse") Then
            Sheets(F).Rows(Ligne).Insert Shift:=xlDown
          
        End If
    Next F
End Sub


Je vous remercie par avance !


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

1 réponse

Messages postés
18316
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 janvier 2022
1 003
bonjour,
le code me semble bon, es-tu certain du nom exact des feuilles?
peux-tu partager ton fichier?
Messages postés
18316
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 janvier 2022
1 003
dans ton explication, tu as utilisé deux noms différents pour chacune des feuilles.
Messages postés
24
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
19 novembre 2021
>
Messages postés
18316
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 janvier 2022

Je vous remercie pour votre retour
Je ne sais pas joindre mon fichier sur ce forum malheureusement, ça aurait été avec plaisir. Si vous pouviez me guider... je suis preneuse
J'ai bien fait attention à l'orthographe, d'où le fait que je ne comprenne pas le problème. Peut-être est ce un problème au niveau de mon fichier?
Messages postés
18316
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 janvier 2022
1 003 >
Messages postés
24
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
19 novembre 2021

pour partager un fichier, il faut le publier sur internet (cjoint.com, google drive, ...),
puis partager ici un lien vers le ficher
Messages postés
24
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
19 novembre 2021
>
Messages postés
18316
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 janvier 2022

Merci! voici le lien https://www.cjoint.com/c/JLipD0cdhx1
J'ai créé le fichier depuis lé début donc aucun soucis si vous avez besoin d'explications supplémentaires
la macro concernée s'appelle "Insérerligne"
Messages postés
18316
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 janvier 2022
1 003 >
Messages postés
24
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
19 novembre 2021

j'ai testé
Sub InsérerLigne()
, et il n'a pas touché à l'onglet "Synthèse". tout me semble bien fonctionner.