XL 2019 effacement contenu zone feuille

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Août 2021

• #2

Bonjour,

Ne serait-ce pas le 's' final qui déclare Sh en tant que collections de feuilles !

Dim Sh As Worksheets <--- s en trop

La prochaine fois soyez plus précis sur le 'bogage' en question. Quelle ligne ? Quel message ? On ne peut pas deviner, que supputer.

Cordialement

 

Dernière édition: 14 Août 2021

Vote positif 0 Vote négatif

M

michelf

XLDnaute Junior

• 14 Août 2021

• #3

Désolé je pensais que c'était suffisant
Je vous mets les captures d'écran si c'est suffisant...

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Août 2021

• #4

Re,

Re voir la réédition de mon post précédent.

cordialement

 

Vote positif 0 Vote négatif

M

michelf

XLDnaute Junior

• 14 Août 2021

• #5

J'ai donc enlevé le "s" de "Dim Sh As Worksheets" mais ça ne marche pas non plus avec cependant accès à la fenêtre du choix de la macro, mais lors de l'exécution j'ai :

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Août 2021

• #6

Re,

Votre macro ne fait pas la différence entre Worksheets (avec un s) et Worksheet (sans s)

Le premier représente la collection des feuilles de travail du classeur et le second UNE feuille de travail !

La boucle for parcourt les Feuilles UNE par UNE

Traduction de la première ligne de la boucle for :

Pour chaque sh (feuille de travaille unique) dans la collection des feuilles de travail du classeur


Ceci fonctionne :

VB:

Sub Effacer()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If UCase(Left(sh.Name, 3)) = "SEM" Then sh.[D7:L41].ClearContents
    Next
End Sub

Quand vous écrivez une macro ne vous contentez pas de copier coller ou d'écrire des choses que vous ne comprenez pas. Faites appel à l'aide en ligne par la touche MAGIQUE : F1 positionnée sur un mot-clef du language.

Cordialement

 

Dernière édition: 14 Août 2021

Vote positif 0 Vote négatif

M

michelf

XLDnaute Junior

• 14 Août 2021

• #7

Je suis désolé, il y a peut-être quelque chose que je fais mal mais il y a toujours "bogage" :

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Août 2021

• #8

Bonjour,

La macro que je vous ai donnée fonctionne chez moi, alors s'il elle ne fonctionne pas chez vous, payez nous le LUXE d'un classeur exemple ! Aidez-nous à vous aider ou j'abandonne.

 

Vote positif 0 Vote négatif

M

michelf

XLDnaute Junior

• 14 Août 2021

• #9

Désolé de vous avoir dérangé, le ton que vous employez me fait comprendre que mon amateurisme vous ennuie. Je vais essayer de m'en sortir seul et pardon pour le temps passé pour rien

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Août 2021

• #10

Re,

Ce n'est ni vous ni votre demande qui m'ennuient, c'est l'obligation de devoir réclamer un fichier exemple alors que cela devrait être un reflexe lorsque les choses se compliquent. Vous êtes inscrit depuis 2015, vous avez certainement du vous rendre compte de la façon de fonctionner du forum.

Si vous donnez peu, vous recevrez peu.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 14 Août 2021

• #11

Re,

Je pense à une chose, avez-vous coller la macro donnée alors que l'éditeur de macro était déjà en mode débogage ?

 

Vote positif 0 Vote négatif

M

michelf

XLDnaute Junior

• 14 Août 2021

• #12

Je viens de tout effacer et j'ai recommencé à zéro avec ceci

Sub Effacer()

Dim ws As Worksheet
For Each ws In Worksheets
If UCase(Left(ws.Name, 3)) = "SEM" Then ws.[D7:L41].ClearContents
Next ws
End Sub

et ça marche.....

Je vous remercie pour le temps utilisé

PS: Je ne donne pas peu, simplement je ne viens pas souvent et ne connais pas assez les habitudes du forum

 

Vote positif 0 Vote négatif