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
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