Ajout d'une ligne sur toutes les feuilles sauf une

Résolu
VIKI1102 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
VIKI1102 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

1 réponse

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 583
 
bonjour,
le code me semble bon, es-tu certain du nom exact des feuilles?
peux-tu partager ton fichier?
1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
dans ton explication, tu as utilisé deux noms différents pour chacune des feuilles.
0
VIKI1102 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > VIKI1102 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 
pour partager un fichier, il faut le publier sur internet (cjoint.com, google drive, ...),
puis partager ici un lien vers le ficher
0
VIKI1102 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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"
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > VIKI1102 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 
j'ai testé
Sub InsérerLigne()
, et il n'a pas touché à l'onglet "Synthèse". tout me semble bien fonctionner.
0