XL 2013 Insérer les données d'Userform dans une feuille nommée

issam salem

XLDnaute Junior
Bonjour le forum
Alors j'ai l code au dessous c'est pour insérer les données d userform "retour" dans le tableau de ma feuille active , et je veux le transformer pour insérer les même données dans un autre tableau d'une feuille nommé. et bien sur a la ligne 4
et merci d'avance

VB:
Sub Ecrire_Retours()
  If ActiveSheet.Name <> "Retours" Then Exit Sub
  Dim DateR As Date, RéfR$, PièceR$, cateR$, desR$, QtéR%, uniteR$, ObsR$, MagR$, TSSR$, lig&
  On Error GoTo 1
 
  With Retour
    If .Titre.Caption = "Ajouter un Retour" Then
      ModeLigne = "Ajout": lig = Range("Retours").Row + 1
    Else
      ModeLigne = "Modif": lig = ActiveCell.Row
    End If
    DateR = .RE_Date: RéfR = .refre: PièceR = .CR_Pièce
    QtéR = .Quantitere: ObsR = .observationR: MagR = .TR_Magasin
    cateR = .catere: desR = .Desire: uniteR = .unitre: TSSR = .TS
  End With
 
  Application.ScreenUpdating = 0: Déprotéger
 
  If ModeLigne = "Ajout" Then
    Rows(lig).Select: Selection.Copy: ActiveCell.EntireRow.Insert 4
    Selection.ClearContents: Application.CutCopyMode = 0
  End If
 
  With Cells(lig, 1)
    .Value = DateR             'A : Date Retour en Stock
    .Offset(, 1) = PièceR
    .Offset(, 2) = cateR
    .Offset(, 3) = desR
    .Offset(, 4) = RéfR
    .Offset(, 5) = QtéR
    .Offset(, 6) = uniteR
    .Offset(, 7) = ObsR
    .Offset(, 8) = MagR          'I : Magasin
    .Offset(, 9) = TSSR
    .Select
  End With
 
1 Protéger
End Sub
 

Discussions similaires

Réponses
6
Affichages
241
Haut Bas