Discussion :

[Barbara1975]

Bonjour à tous,

RELEVE MATERIELS.xlsm

Je suis novice en macro et j'aurai, SVP, besoin de votre aide pour mettre en place un macro sur le fichier EXCEL joint.

Je dois mettre en place une procédure qui permet de compléter le tableau en automatisant la colonne "A" suivant la quantité indiquée. Par exemple, si la quantité indiquée sur la cellule "A4" est de 6, il faudrait que le système insère automatiquement 6 lignes identiques à la ligne n°4 (1 ligne par matériel), etc....

Je vous remercie pour votre aide

[BENNASR]

bonjour à tous
Aussi débutant et autodidacte ...méfiez vous de mes propositions
1/ Tester le code proposé sur une copie de ton travail
2/ La colonne A de ton fichier jointe est vide
3/ Réserver la colonne A uniquement pour les quantité et déplacer les chapitres à la colonne B
ce n'est qu'une piste à améliorer et à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub inserligne()
  With Sheets("RELEVES MATERIELS") '
dernligne = .Range("A" & Rows.Count).End(xlUp).Row
For k = dernligne To 4 Step -1
   If .Cells(k, 1).Value <> "" Then
   X = .Cells(k, 1).Value
   .Rows(k + 1).Resize(X).Insert
   End If
  Next k
  End With
  End Sub

BONNE CONTINUATION

[Barbara1975]

Re-bonjour,
Je vous remercie pour le retour mais j'ai un message d'erreur à l'exécution (voir capture d'écran ci-dessous). Pourriez-vous m'aider car je ne sais pas à quoi cela correspond.
Dans cette attente,

[BENNASR]

y a une lettre ou un mot dans la colonne A qui empêche l'exécution du code puisque il attribue une lettre à la valeur de X
ci joint un fichier test simplifié

[MarcelG]

Bonjour Barbara (sois bienvenue sur le Forum), Bonjour Bennasr et le Forum,

2 remarques :
- Déclarer les variables est une précaution fondamentale. Cela évite parfois des erreurs. Tu peux rendre cette option obligatoire sur ton espace VBE
- Autant déclarer X en amont
Ce qui donne

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
Option Explicit
 
Sub inserligne()
 
Dim dernligne As Integer, k As Integer
Dim X As Byte
 
Application.ScreenUpdating = False
 
With Sheets("RELEVES MATERIELS") '
      dernligne = .Range("A" & Rows.Count).End(xlUp).Row
      For k = dernligne To 4 Step -1
            X = .Cells(k, 1).Value
            If X + 0 > 0 Then _
                  .Rows(k + 1).Resize(X).Insert
      Next k
End With
 
End Sub

[Barbara1975]

Merci ça a l'air de fonctionner. Par contre, il faudrait juste que les lignes insérées reprennent les textes et formats des lignes figurant dans les colonnes C / I / J / K / L & M.

Et encore un grand MERCI pour votre aide.

[BENNASR]

re
voila comment remplir la colonne C
le reste à compléter
bonne continuation

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
 
 
  Sub inserligne()
  With Sheets("RELEVES MATERIELS") '
dernligne = .Range("A" & Rows.Count).End(xlUp).Row
For k = dernligne To 4 Step -1
   If .Cells(k, 1).Value <> "" Then
   X = .Cells(k, 1).Value
   .Rows(k + 1).Resize(X).Insert
   End If
   For j = 1 To X
   .Cells(k + j, 3).Value = .Cells(k, 3)
   Next j
  Next k
  End With
  End Sub