XL 2010 clearcontents

[herve62]

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 ?

 

[Staple1600]

Bonjour

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

 

[Staple1600]

Bonjour à toi aussi Chti160

(cf le message#2) que tu sembles avoir zappé)

Ma variante syntaxique du message#2

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

 

[ChTi160]

Oupss .
Bonjour JM
Effectivement ! pas vu .
Bonne Journée
Jean marie

 

[herve62]

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

 

[Staple1600]

Re

Non en précisant explicitement le nom de la feuille dans la syntaxe Range, on est sur de faire comprendre à VBA sur quelle feuille agir

Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(5, 1), Worksheets("Feuil1").Cells(10, 1)).ClearContents

 

[herve62]

Erreur .. trop vite , résolu