Bonjour
J'ai retranscris dans ce petit exemple le Pb
En Feuil2 on lance l'usf le bouton met les valeurs des box en Feuil1 et EFFACE en A5:A10
Sauf que si l'on reste en Feuil2 > Bug
Si on passe en Feuil1 > OK
Pourtant je précise bien OU effacer ??
Je vois pas ?
Ainsi ce devrait être mieux
Private Sub CommandButton1_Click()
With Worksheets("Feuil1")
.Cells(5, 2) = TextBox1.Value
.Cells(6, 2) = TextBox2.Value
End With
Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(5, 1), Worksheets("Feuil1").Cells(10, 1)).ClearContents
End Sub
Private Sub CommandButton1_Click()
Dim F As Worksheet: Set F = Worksheets("Feuil1")
F.Cells(5, 2).Resize(2).Value = Application.Transpose(Array(TextBox1, TextBox2))
F.Cells(5, 1).Resize(6) = ""
End Sub
Ok Merci Jean Marie
Bon je suppose qu'il n'y a rien à comprendre ? que c'est comme ça !!
Mais dans les codes ex. de MS (ma structure) , c'est pas précisé qu'il faut être dans la feuille active !!!