Discussion :

[John Parker]

Bonjour,

Ayant encore et toujours du mal avec VBA je me tourne une nouvelle fois vers ce cher forum qui m'est toujours venu en aide

J'ai créé un bouton qui m'insère une nouvelle ligne tout en copiant la ligne précédente. Mon problème est que je n'ai pas besoin de toute la ligne mais seulement de la cellule de la première colonne de cette ligne et de la 8ème.

L'intérêt est de gérer un planning en ajoutant des lignes qui conservent les formules de la ligne précédente mais ces formules se trouvent uniquement en colonne A et H. Je n'ai donc pas besoin de ce qui se trouve entre et après.
Je vous met le code que j'ai fait pour le moment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub InsererLigneSem1()
Dim L As Long
 
 
        L = ActiveCell.Row
 
            With Sheets("Semaine 1")
                .Rows(L - 1).Copy
                .Rows(L).Insert Shift:=xlDown       'Insertion
                .Rows(L).EntireRow.Hidden = False  'Rendre visible la ligne insérée
            End With
 
 
    Application.CutCopyMode = False
End Sub

Merci d'avance pour votre aide

[casefayere]

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub InsererLigneSem1()
Dim L As Long, Dc As Integer
L = ActiveCell.Row
With Sheets("Semaine 1")
  Dc = Cells(L, .Columns.Count).End(xlToLeft).Column
  .Rows(L - 1).Copy
  .Rows(L).Insert Shift:=xlDown    'Insertion
  .Range("B" & L, "G" & L).ClearContents: .Range(.Cells(L, 9), .Cells(L, Dc)).ClearContents
End With
Application.CutCopyMode = False
End Sub

[John Parker]

Merci pour ta réponse. Malheureusement, ce code ne réponds pas à mes besoins.
Je te met un exemple du fichier.
Tu remarqueras que la ligne 5 qui sert de référence pour la copie de la première journée est masquée. En dessous de chaque ligne contenant la date de la journée de la semaine il y a une ligne masquée qui sert de référence pour la copie de formule.

Si ce que je te dis n'est pas clair n'hésite pas à me demander

[casefayere]

Essayes comme ça, sans garantie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub InsererLigneSem1()
 
Dim L As Long, Dc As Integer
L = ActiveCell.Row
 
With ActiveSheet
  Dc = Cells(L, .Columns.Count).End(xlToLeft).Column
  .Rows(L - 1).Copy
  .Rows(L).Insert Shift:=xlDown    'Insertion
  .Rows(L).EntireRow.Hidden = False  'Rendre visible la ligne insérée
  .Range("B" & L, "G" & L).ClearContents
End With
Application.CutCopyMode = False
End Sub