Méthode Array

[Laisse moi rire]

Bonsoir le forum

J'aimerais pouvoir effacer des données dans plusieurs feuilles qui se suivent.

Voici le code que j'ai fait, et cela ne fonctionne pas, j'ai un message d'erreur : méthode non gérée par l'objet.

Sub Macro1()
Dim reponse
reponse = MsgBox('Voulez-vous réelement mettre les feuilles' _
& ' de paye à zéro ?', vbYesNo + vbQuestion, 'OPERATION ERREVERSIBLE !!!')
If reponse = vbYes Then

With Sheets(Array('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', _
'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre'))
Range('C22:C52').ClearContents
lblDateDeSignature.Caption = ''
End With
Else: Exit Sub
End If
End Sub

D'ou viens l'erreur?

Merci, G'Claire

 

[Bebere]

bonsoir Gclaire

essaye comme ce qui suit :

Sub Macro1()
Dim reponse
reponse = MsgBox('Voulez-vous réelement mettre les feuilles' _
& ' de paye à zéro ?', vbYesNo + vbQuestion, 'OPERATION ERREVERSIBLE !!!')

With Sheets(Array('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', _
'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre'))
If reponse = vbYes Then
Range('C22:C52').ClearContents
lblDateDeSignature.Caption = ''
Else: Exit Sub
End If
End With

End Sub

à bientôt

 

[Hervé]

Bonsoir gclaire, bebere



Une autre syntaxe possible :

Dim ws As Worksheet

If MsgBox('Voulez-vous réellement mettre les feuilles de paye à zéro ?', vbYesNo + vbQuestion, 'OPERATION IRREVERSIBLE !!!') = vbYes Then
    For Each ws In Sheets(Array('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', _
        'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre'))
        ws.Range('C22:C52').ClearContents
    Next ws
    lblDateDeSignature.Caption = ''
End If

salut

 

[Laisse moi rire]

Bébère, Hervé, le forum

Alors là je suis le plus confus de tous les exceliens et exceliennes, ne pas vous avoir remercié pour une soulutions a une question m'est impardonnable.

Je l'avais totalement oubliée cette question et quand j'ai voulu ouvrir mon fichier pour faire la mise a zéro de ces feuille, cela me l'a bien fait remarqué que le code était faux, et je me suis souvenu que j'avais posté une question a ce sujet.

Donc d'abord je vous remercie tous les deux

Donc pour ce qui est de la mise a zéro de la feuille cela fonctionne trés bien, mais pour le controle (lblDateDeSignature), cela me met une erreur : Variable non définie.

En fait ce label est dans toutes les feuilles

Encore milles excuses, merci G'Claire