XL 2010 Macros insérer une ligne en recopiant formule dans plusieurs feuilles

deva · 10 Janvier 2023

Bonjour à tous,

Je viens vous solliciter pour un petit soucis technique.

J'aimerai créer une macro qui insère une ligne (au préalable demandée) et qui récupère le format et les formules de la ligne du dessus. J'aimerai que cette ligne soit insérée dans plusieurs feuilles de mon fichier.

Private Sub CommandButton14_Click()
Dim Ligne As Long
Dim lRsp As Long
On Error Resume Next

Ligne = InputBox("Numéro de la ligne à inserer ? ")
lRsp = MsgBox("Insérer une nouvelle ligne au-dessus de la ligne " & Ligne & "?", _
vbQuestion + vbYesNo)
If lRsp <> vbYes Then Exit Sub

Rows(Ligne).Select
Selection.Copy
Rows(Ligne + 1).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

'Paste formulas and conditional formatting in new row created
Rows(Ligne).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

End Sub

Je suis rendue là. Le problème c'est que je n'arrive pas à insérer cette ligne sur toutes mes feuilles.
J'espère avoir été claire.
Merci à tous de votre aide.
Bonne journée

sylvanu · 10 Janvier 2023

Bonjour Deva, et bienvenu(e) sur XLD,
Pour le code utilisez la baise </> c'est plus lisible ( à droite de l'icone GIF )
Essayez de fournir un petit fichier test représentatif, ce serait plus parlant.
Ensuite, la copie doit elle s'effectuée sur toutes les feuilles ?
Doit on copier toute la ligne ou peut on se limiter à un certain nombre de cellules ?

deva · 11 Janvier 2023

Bonjour, merci de votre réponse

voici le code :

VB:

Private Sub CommandButton14_Click()
    Dim ws As Worksheet
    Dim Ligne As Long
    Dim lRsp As Long
    On Error Resume Next

    Ligne = InputBox("Numéro de la ligne à inserer ? ")
    lRsp = MsgBox("Insérer une nouvelle ligne au-dessus de la ligne " & Ligne & "?", _
            vbQuestion + vbYesNo)
    If lRsp <> vbYes Then Exit Sub
For Each ws In Worksheet
    Rows(Ligne).Select
    Selection.Copy
    Rows(Ligne + 1).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    
   'Paste formulas and conditional formatting in new row created
    Rows(Ligne).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
    
Next ws

End Sub

La copie ne doit s'effectuée que sur certaines feuilles et oui j'aimerai bien copier toute la ligne.

Je mets ci-joint un fichier représentatif

sylvanu · 11 Janvier 2023

Bonjour Deva,
Worksheet prend un "s" pour toutes les parcourir sinon on reste sur la feuille active.

VB:

For Each ws In Worksheets

Il faut préciser sur quelle feuille on veut travailler

Code:

With Sheets(ws.Name)

Soit avec un With (plus simple) soit en faisant précéder les instructions par Sheets(ws.Name).xxx

Code:

Private Sub CommandButton14_Click()
    Dim ws As Worksheet
    Dim Ligne As Long
    Dim lRsp As Long
    On Error Resume Next

    Ligne = InputBox("Numéro de la ligne à inserer ? ")
    lRsp = MsgBox("Insérer une nouvelle ligne au-dessus de la ligne " & Ligne & "?", _
            vbQuestion + vbYesNo)
    If lRsp <> vbYes Then Exit Sub
For Each ws In Worksheets             
    With Sheets(ws.Name)
        .Rows(Ligne).Copy                  
        .Rows(Ligne + 1).Select
        Selection.Insert Shift:=xlDown
        Application.CutCopyMode = False
        'Paste formulas and conditional formatting in new row created
        .Rows(Ligne).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
    End With
Next ws

End Sub

En espérant que cela fasse bien ce que vous voulez que ça fasse.

deva · 13 Janvier 2023

Bonjour, merci bcp mais il me semble que ça ne marche pas.
Je vois bien que lorsque j'exécute la macro, il parcoure toutes mes feuilles, mais aucunes lignes ne s'insèrent

deva · 13 Janvier 2023

Une ligne s'insère mais seulement sur ma dernière page

sylvanu · 13 Janvier 2023

Bonjour,
Voir cette PJ, cela semble marcher, une ligne est bien insérer sur les trois feuilles.

deva · 13 Janvier 2023

Effectivement, je ne comprends pas pourquoi sur mon fichier ça ne fonctionne pas, je vais réessayer.

Merci à vous !

sylvanu · 13 Janvier 2023

Reprenez le code de cette PJ.
J'ai juste changer de place la ligne Application.CutCopyMode = False

deva · 13 Janvier 2023

J'ai 13 feuilles et cela ne fonctionne que sur 3 d'entre elles. 2 qui sont à suivre et la dernière

sylvanu · 13 Janvier 2023

Si le fichier utilisé n'est pas strictement représentatif alors difficile d'extrapoler une quelconque explication.
Normalement avec un "For Each ws In Worksheets" il parcourt chaque feuille.
En PJ un fichier simplifié de 15 feuilles.
L'insertion se fait correctement sur les 15 feuilles.

deva · 13 Janvier 2023

Merci pour votre aide !

XL 2010 Macros insérer une ligne en recopiant formule dans plusieurs feuilles

deva

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

deva

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

deva

XLDnaute Nouveau

deva

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

deva

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

deva

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

deva

XLDnaute Nouveau

Discussions similaires