ListBox : Sélection et Validation

[G'Claire]

Salut a toutes et tous,

J'utilise ce code pour effacer des données dans une plage de celulles aprés selection dans une ListBox :

Sub RazConfirmation()
Dim ReponseRas
Application.ScreenUpdating = False
For Boucle = 0 To (vNbF - 1)
If ListeFeuille.Selected(Boucle) = True Then
Sheets(Boucle + 1).Select
ReponseRas = MsgBox("Voulez-vous mettre a zéro la sélection ? ", _
vbYesNoCancel + vbQuestion, "VALIDATION")
If ReponseRas = vbCancel Then Exit Sub
If ReponseRas = vbYes Then
ActiveWindow.SelectedSheets.Range("C22:C52").ClearContents
End If
End If
Next Boucle
Application.ScreenUpdating = True
Unload Me
Call Menu
End Sub

Et ca plante a ce niveau.

ActiveWindow.SelectedSheets.Range("C22:C52").ClearContents

Je n'arrive pas a trouver d'ou vien le problème, un peu d'aide me serait le nien venu.

Merci d'avance, G'Claire

 

[ChTi'160]

Salut"G'Claire"
pour quoi ne pas essayer
ActiveSheet.Range("C22:C52").ClearContents
s'il s'agit d'effacer la plage C22:C52 de la feuille active
je ne sais pas si j'ai compri ,mais sait on jamais
A+++
Jean marie

 

[G'Claire]

Jean-Marie,

Merci, pour ta réponse,

J'y ai pensé, mais la ListBox est prévu pour du multiselect.

Et avec ce code, j'avais le message qui s'affichait autant de fois que j'avais de sélection.

Donc si 15 selections 15 messages de confirmation.

Merci, G'Claire

 

[G'Claire]

Le forum

C'est bon, j'ai réussi, sans passer par une listbox et tout le trala, une version plus simple de l'option.

Merci a DididerMDF pour ces conseil, sur le chat.

A titre d'exemple le code utilisé :

Private Sub cmdRaz_Click()
Dim reponse, i, TheNum As Byte
TheDate = Month(Date)
TheNum = CByte(Month(Date))
reponse = MsgBox("Voulez-vous réelement mettre toutes les feuilles" _
& "de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!")
If reponse = vbYes Then
For i = TheNum To 12
With Worksheets(i)
.Range("C22:C52").ClearContents
.lblDateDeSignature.Caption = ""
End With
Next i

Sheets("Récapitulatif").Range("C4:I20").ClearContents
Else: Exit Sub
End If
End Sub

Voili, voilou, bon week-end, G'Claire