Méthode Array

Laisse moi rire

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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é

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
18
Affichages
1 K
Réponses
11
Affichages
877

Membres actuellement en ligne

Statistiques des forums

Discussions
300 823
Messages
1 987 483
Membres
209 865
dernier inscrit
MALICK SENE