Discussion :

[polpote]

Bonjour,

j'ai ma première Macro à faire et je n'y parviens pas.
J'ai un petit peu compris le concept mais comme je m'aperçois que je vais y passer du temps, j'ai souhaité poster dans le forum en même temps pour voir si quelqu'un serait m'aider.
Voici mes données:
- 1 fichier .xls avec 4 tableaux répartis sur 4 feuilles. 1 tableau par feuille.

Mon action:
- Insérer une ligne dans le premier tableau et y inscrire des données.

Mon besoin:
- Insérer une ligne au même endroit dans mon tableau "feuille 2"
- Insérer une ligne à l'endroit "n+4" (c'est 4 ligne en dessous da la première insérée) dans mon tableau de la "feuille 4"
- Pour ces deux nouvelles lignes insérées, recopier la mise en forme et la fonction de leur ligne supérieur.

Et là pour ma part c'est le drame. J'arrive à lancer une macro qui insert une même ligne mais toujours la même, dans ma Macro c'est par exemple la ligne 20 alors que je ne sais pas à l'avance à quel endroit je devrais insérer ma ligne. Je patoge un peu là...

Si quelqu'un a une idée ou souhaite plus d'informations il n'y a aucuns soucis!

Merci

[polpote]

Bon beh j'ai pas réussi. Par contre j'ai trouvé une Macro qui m'insèrt ma ligne mais je dois la mettre en route pour chaque feuille de mon fichier .xls.
C'est déjà pas mal.
Voici ce que j'ai trouvé:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Insérer_nouveau_PPAP()
 
   Dim x As Long
   ActiveCell.EntireRow.Select  'So you do not have to preselect entire row
   If vRows = 0 Then
    vRows = Application.InputBox(prompt:= _
      "Combien de ligne(s) voulez-vous ajouter?", Title:="Add Rows", _
      Default:=1, Type:=1) 'Default for 1 row, type 1 is number
    If vRows = False Then Exit Sub
   End If
 
 
   Dim sht As Worksheet, shts() As String, i As Integer
   ReDim shts(1 To Worksheets.Application.ActiveWorkbook. _
       Windows(1).SelectedSheets.Count)
   i = 0
   For Each sht In _
       Application.ActiveWorkbook.Windows(1).SelectedSheets
    Sheets(sht.Name).Select
    i = i + 1
    shts(i) = sht.Name
 
    x = Sheets(sht.Name).UsedRange.Rows.Count 'lastcell fixup
 
    Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
     Resize(rowsize:=vRows).Insert Shift:=xlDown
 
    Selection.AutoFill Selection.Resize( _
     rowsize:=vRows + 1), xlFillDefault
 
    On Error Resume Next    'to handle no constants in range
    ' to remove the non-formulas
    Selection.Offset(1).Resize(vRows).EntireRow. _
     SpecialCells(xlConstants).ClearContents
   Next sht
   Worksheets(shts).Select
End Sub