P
petchy
Guest
bonsoir
j'ai se code dans un bouton,donc j'envoi les infos dans la feuille sélectionné,mais maintenant je n'est plus qu'une feuille pour recevoir les infos elle se nome "archivage":
comment changer le début du code pour envoyé les infos dans cette feuille.
Private Sub CommandButton2_Click()
Dim rep As Byte
Dim feuille As String
feuille = ActiveSheet.Name
Range("A5:h5").Select
Selection.Insert Shift:=xlDown
With Sheets(feuille)
.Range("c5").Value = Label12
.Range("e5").Value = TextBox4.Text
.Range("G5").Value = Label13
.Range("f5").Value = TextBox5.Text
.Range("H5").Value = TextBox6.Text
.Range("f5").Value = TextBox7.Text
.Range("a5") = Format(Calendar1, " DD/MM/YYYY")
End With
merci
@ plus
petchy
j'ai se code dans un bouton,donc j'envoi les infos dans la feuille sélectionné,mais maintenant je n'est plus qu'une feuille pour recevoir les infos elle se nome "archivage":
comment changer le début du code pour envoyé les infos dans cette feuille.
Private Sub CommandButton2_Click()
Dim rep As Byte
Dim feuille As String
feuille = ActiveSheet.Name
Range("A5:h5").Select
Selection.Insert Shift:=xlDown
With Sheets(feuille)
.Range("c5").Value = Label12
.Range("e5").Value = TextBox4.Text
.Range("G5").Value = Label13
.Range("f5").Value = TextBox5.Text
.Range("H5").Value = TextBox6.Text
.Range("f5").Value = TextBox7.Text
.Range("a5") = Format(Calendar1, " DD/MM/YYYY")
End With
merci
@ plus
petchy