Code VBA pour insérer des lignes dans toutes les feuilles de mon fichier Excel

Version imprimable

19/02/2018, 12h11
TPS29

Code VBA pour insérer des lignes dans toutes les feuilles de mon fichier Excel

Bonjour à tous,

Ça fait plusieurs semaines que je cherche à "fabriquer" un code VBA, sachant que je suis débutant dans le VBA. J'ai un fichier Excel de 12 feuilles, dans chaque feuille j'ai un tableau identique. Dans la première colonne de mes tableaux j'ai le nom des salariés, dans les autres colonnes ce sont des formules afin de récupérer les données respectives pour chaque salarié. Mon problème est le suivant:

Je voudrais que lorsque je crée un nouveau salarié, un userform s'ouvre avec une textbox pour mettre le nom du nouveau salarié afin qu'il s'inscrive dans la colonne A qui a été insérée et que toutes ces données s'insèrent dans tous les autres tableaux.

J'espère avoir été clair.
19/02/2018, 13h37
Menhir
Une petite macro que j'utilise qui copie la ligne courante.
Code:

1 2 3 4 5 Sub Copier_Inserer() Selection.Copy Selection.Insert Shift:=xlDown Application.CutCopyMode = False End Sub
Il ne te reste plus ensuite qu'à mettre le nom de l'employé dans la colonne A de la nouvelle ligne.
A mon avis, inutile de faire un UserForm pour si peu.
27/02/2018, 17h20
TPS29

Désolé de répondre si tard, mais j'était sur un autre projet...

Bonjour MENHIR,

Merci pour ton code, mais je pense que nous nous sommes pas compris. En effet il me faut que la ligne se créer au même endroit dans toutes les feuilles et pourquoi je mets un Userform afin que le nom s'inscrive aussi dans la colonne A de la ligne créer et également sur toutes les feuilles du classeur.

Dans l'attente de vos propositions.
27/02/2018, 20h34
mjpmjp

bonjour,
le code qui "écrit" dans une feuille , écrira dans une autre feuille si tu indiques le nom de cette feuille comme destination
il te faut donc boucler sur la liste des sheets et utiliser style ... Sheet().range().select

@+JP
28/02/2018, 00h08
eriiic

Bonjour,

une macro est-elle vraiment nécessaire ?
Si tu fais une sélection 3D de tes 12 feuilles toute modification se répercute sur toutes les feuilles.
Clic sur la 1ère feuille, shift-clic sur la dernière et c'est fait.
Il faut juste ne pas oublier de defaire ta sélection 3D quand tu as fini.
eric

Merci pour vos réponses. Mais le problème, c'est que le tableau ce n'est pas moi qui l'utilise, donc pour moi une macro avec un Userform serait l'idéal.

J'ai avancé un peu sur le sujet, j'arrive à insérer des lignes sur toutes mes feuilles mais les formules se copie que sur la feuille 1 et j'ai réussi à insérer un Userform mais le nom du salarié ne se mets pas dans la colonne A de la ligne inséré.

Voici le code que j'ai fait pour insérer la ligne sur toute les feuilles :

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub InsererLignesCopierFormules()
 
Application.ScreenUpdating = False 'Désactive l'actualisation de l'écran
Dim NbLignes As Integer
Dim NbLignes_a As Integer
Dim SelCol As Integer
 
Application.ScreenUpdating = False
 
NbLignes = Selection.Rows.Count 'Nombre de lignes dans la sélection
NbLignes_a = NbLignes
SelCol = Selection.Cells(1, 1).Column
 
If NbLignes > 1 Then
      Selection.Cells(1, 1).EntireRow.Select
 
       Selection.Resize(rowsize:=NbLignes_a).Rows(NbLignes_a + 1).EntireRow. _
        Resize(rowsize:=NbLignes).Insert Shift:=xlDown
       Selection.Offset(NbLignes - 1).EntireRow.Select
    Selection.AutoFill Selection.Resize(rowsize:=NbLignes + 1), xlFillDefault
 
    On Error Resume Next
       Selection.Offset(1).Resize(NbLignes).EntireRow.SpecialCells(xlConstants).ClearContents
 
Else    ' une seule ligne choisie
    NbLignes_a = 2
    ActiveCell.EntireRow.Select
    Selection.Resize(rowsize:=NbLignes_a).Rows(NbLignes_a).EntireRow. _
        Resize(rowsize:=NbLignes).Insert Shift:=xlDown
 
    Selection.AutoFill Selection.Resize(rowsize:=NbLignes + 1), xlFillDefault
 
    On Error Resume Next
    Selection.Offset(1).Resize(NbLignes).EntireRow.SpecialCells(xlConstants).ClearContents
  Sheets("Février").Cells(ActiveCell.Row + 1, ActiveCell.Column).EntireRow.Insert 'Insère une ligne au même endroit dans la feuille 2
Application.CutCopyMode = False
Sheets("Février").Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy Sheets(2).Cells(ActiveCell.Row + 1, 1)
 On Error Resume Next
 Sheets("Février").Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents
 Sheets("Février").ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues + xlLogical + xlErrors).ClearContents
 
Sheets("Mars").Cells(ActiveCell.Row + 1, ActiveCell.Column).EntireRow.Insert 'Insère une ligne au même endroit dans la feuille 2
Application.CutCopyMode = False
 Sheets("Mars").Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy Sheets(2).Cells(ActiveCell.Row + 1, 1)
 On Error Resume Next
 Sheets("Mars").Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents
 Sheets("Mars").ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow 'Copie la ligne de la cellule active dans la ligne insérée
End If
 
 
Cells(Selection.Row + 1, SelCol).Select 'pour se replacer
Application.ScreenUpdating = True
  Userform1.Show
 
End Sub

Est-ce que quelqu'un peux me rectifier mon code afin que les formules se copie sur toutes les feuilles???

Merci pour votre aide.