XL 2010 clearcontents

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #3

Bonjour à toi aussi Chti160

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

Ma variante syntaxique du message#2

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Mars 2022

• #4

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2022

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Mars 2022

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2022

• #7

Erreur .. trop vite , résolu

 

Vote positif 0 Vote négatif