Re : copie de données lors duplication de fiches
Re Bonjour.
J'ai copié ta réponse, mais je dois avoir mal compris, ça ne fonctionne pas...
Je pense ne pas avoir été très clair dans ma demande:
- Création de la feuille au nom de chaque "S_N" (Tout se passe bien)
Mais :
- Recopier les valeurs des différentes rubriques dans chaque onglet crée
correspondant aux diverses rubriques.
Les données répétitives communes : F2 - G2 - H2 - J2 pour chaque S_N crée
Les données propres à chaque S_N :
B2 - C2 - E2 pour NUM11111
B3 - C3 - E3 pour NUM11112
B4 - C4 - E4 pour NUM11113
etc...
Pourrais-tu le placer à l'endroit où je dois modifier la mcro STP
Sub creation_APRS()
Dim sh As Worksheet
Dim cel As Range, plg As Range
Select Case MsgBox(" Voulez-vous lancer la création des APRS " _
& vbCrLf & " (une feuille par S/N)" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Confirmation")
Case vbYes
Sheets("BASE").Range("B2").Select
Set plg = Range(Selection, Selection.End(xlDown))
Application.ScreenUpdating = False
For Each cel In plg.Cells
If cel <> "" Then
For Each sh In Worksheets
If sh.Name = cel Then GoTo suite
Next
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = cel.Value
Sheets("MODELE").Cells.Copy ActiveSheet.Cells
'
Sheets("MODELE").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = cel.Value
.Range("J4").Value = Sheets("BASE").Range("C" & cel.Row).Value
.Range("C12").Value = Sheets("BASE").Range("E" & cel.Row).Value
.Range("D12").Value = Sheets("BASE").Range("D" & cel.Row).Value
.Range("H12").Value = Sheets("BASE").Range("H" & cel.Row).Value
.Range("J7").Value = Sheets("BASE").Range("J" & cel.Row).Value
.Range("J12").Value = Sheets("BASE").Range("J" & cel.Row).Value
.Range("I34").Value = Sheets("BASE").Range("I" & cel.Row).Value
' ' Etc ...
End With
Par avance, Merci pour ton aide.