Simplifier code pour effacer

[Citaro]

Bonsoir,

Je cherche à simplifier ce code qui efface des cellules à partir d'un userform

Merci

Private Sub CommandButton2_Click()
Dim rep As Integer
rep = MsgBox("Voulez-vous supprimer le code analytique " & TextBox1 & " " & TextBox2, vbQuestion + vbYesNo)
If rep = vbYes Then
SdA.Cells(LI, 1).ClearContents
SdA.Cells(LI, 2).ClearContents
SdA.Cells(LI, 3).ClearContents
SdA.Cells(LI, 4).ClearContents
SdA.Cells(LI, 5).ClearContents
SdA.Cells(LI, 6).ClearContents
SdA.Cells(LI, 7).ClearContents
SdA.Cells(LI, 8).ClearContents

SdA.Cells(LI, 17).ClearContents
SdA.Cells(LI, 18).ClearContents
SdA.Cells(LI, 19).ClearContents
SdA.Cells(LI, 20).ClearContents
SdA.Cells(LI, 21).ClearContents
SdA.Cells(LI, 22).ClearContents
SdA.Cells(LI, 23).ClearContents
SdA.Cells(LI, 24).ClearContents
SdA.Cells(LI, 25).ClearContents
SdA.Cells(LI, 26).ClearContents
SdA.Cells(LI, 27).ClearContents
End If
End Sub

 

[Papou-net]

Re : Simplifier code pour effacer

Bonsoir Citaro,

Comme ceci, peut-être:

Private Sub CommandButton2_Click()
Dim rep As Integer
rep = MsgBox("Voulez-vous supprimer le code analytique " & TextBox1 & " " & TextBox2, vbQuestion + vbYesNo)
If rep = vbYes Then
SdA.Range(Cells(LI, 1), Cells(LI, 8)).ClearContents
SdA.Range(Cells(LI, 17), Cells(LI, 27)).ClearContents
End If
End Sub

A +

Cordialement.

 

[Papou-net]

Re : Simplifier code pour effacer

Autre solution:

Private Sub CommandButton2_Click()
Dim plage As Range
Set plage = Application.Union(Sheets("sda").Range("A" & LI & ":H" & LI), Sheets("sda").Range("Q" & LI & ":AA" & LI))
If MsgBox("Voulez-vous supprimer le code analytique " & TextBox1 & " " & TextBox2, vbQuestion + vbYesNo) = vbYes Then plage.ClearContents
End Sub

Cordialement.

 

[Citaro]

Re : Simplifier code pour effacer

Merci Papou-net

Tes 2 solutions fonctionnent, laquelle choisir ?

Merci
Citaro

 

[Papou-net]

Re : Simplifier code pour effacer

Bonjour Citaro,

Paresseux du clavier par nature, je choisirais sans hésiter la seconde. C'est la raison pour laquelle je l'ai ajoutée.

Autre avantage: tu peux éventuellement faire appel à la variable "plage" pour d'autres actions non prévues au départ.

Bonne journée.

Cordialement.

 

[Citaro]

Re : Simplifier code pour effacer

Mon choix s'est porté sur le second code.

Bonne journée Papou-net

Merci
itaro