O
Ouin-Ouin
Guest
Bonjour le forum,
Partie II de mon application... c'est parti
je cherche de l'aide pour savoir comment faire pour que la procédure ci-dessous soit aussi valable pour que je puisse mettre les données dans la Feuil6 du même classeur tout en gardant la procédure ci-dessous que j'ai aussi besoin.
ceci va me servir avec un tableau récapitulatif à un moment donné dans l'année avec la fonction Filtre données par la suite.
merci de votre aide
@+ Ouin-Ouin
Private Sub CommandButton1_Click()
Dim WB As String, WS As String, WR As String
Dim TheNum As Double
With Sheets("Document")
.Activate
.Copy
End With
With ActiveWorkbook.ActiveSheet
.Range("B41") = ComboBox1
.Range("B42") = TextBox3
.Range("B43") = TextBox5
.Range("B46") = TextBox8
.Range("B35") = TextBox9
.Range("C35") = TextBox10
.Range("D35") = TextBox11
.Range("E35") = TextBox12
.Range("B38") = TextBox2
.Range("D23") = Label1
.Range("E23") = Label2
Partie II de mon application... c'est parti
je cherche de l'aide pour savoir comment faire pour que la procédure ci-dessous soit aussi valable pour que je puisse mettre les données dans la Feuil6 du même classeur tout en gardant la procédure ci-dessous que j'ai aussi besoin.
ceci va me servir avec un tableau récapitulatif à un moment donné dans l'année avec la fonction Filtre données par la suite.
merci de votre aide
@+ Ouin-Ouin
Private Sub CommandButton1_Click()
Dim WB As String, WS As String, WR As String
Dim TheNum As Double
With Sheets("Document")
.Activate
.Copy
End With
With ActiveWorkbook.ActiveSheet
.Range("B41") = ComboBox1
.Range("B42") = TextBox3
.Range("B43") = TextBox5
.Range("B46") = TextBox8
.Range("B35") = TextBox9
.Range("C35") = TextBox10
.Range("D35") = TextBox11
.Range("E35") = TextBox12
.Range("B38") = TextBox2
.Range("D23") = Label1
.Range("E23") = Label2