Erreur bout de code ???

[delboe]

Bonsoir à tous,

J'ai un bout de code qui, je pense, fait le travail suivant : sur toutes les colonnes E, à partir de E7 sur les feuilles citées (et seulement elles !), Excel devrait effacer le contenu... N'est-ce pas le cas ?

Voici le bout de code :

Dim Lg%, i%
For i = 1 To Worksheets.Count
With Worksheets(i)
Lg = .Range("e65536").End(xlUp).Row
If .Name <> "Programmation annuelle" And .Name <> "Programmation de cycle" And .Name <> "période 1" And .Name <> "période 2" And .Name <> "période 3" And .Name <> "période 4" And .Name <> "période 5" Then
.Range("e7:e" & Lg).ClearContents
End If
End With

Je précise que je ne comprends pas grand chose au VB ; je traduis instinctivement...

Voici mon problème : J'ai une feuille intitulée "Base de données" (située dans le classeur) dont le contenu s'efface également de E7 à E.... Et je voudrais que le contenu ne bouge pas sur cette feuille... ce qui devrait être le cas si je comprends les restrictions précisées dans ce code... et pourtant, non...

Pouvez-vous m'aider ou ne suis-je pas assez clair ?

D'avance merci !
Greg

 

[Fred0o]

Re : Erreur bout de code ???

Bonsoir delboe,

C'est en effet un "bout de code que tu nous forunis...

Cependant, on peut constater qu'il efface la colonne E à partir de E7 sur toutes les feuilles EXXCEPTE les feuilles citées.

Donc, si ne veux pas que la colonne E de la feuille "Base de données" ne soit pas effacée, il te faut la rajouter dans la condition IF.

A+

 

[mapomme]

Re : Erreur bout de code ???

Bonsoir delboe,

Supposons que le nom de la feuille traitée dans la boucle soit "Base de données".
Dans ce cas, la condition If .Name <> "Programmation annuelle" And .Name <> "Programmation de cycle" And .Name <> "période 1" And .Name <> "période 2" And .Name <> "période 3" And .Name <> "période 4" And .Name <> "période 5"
est bien vérifiée (donc on procède à l'effacement) puisque:

.Name <> "Programmation annuelle" est vrai
.Name <> "Programmation de cycle" est vrai
.Name <> "période 1" est vrai
.Name <> "période 2" est vrai
.Name <> "période 3" est vrai
.Name <> "période 4" est vrai
.Name <> "période 5" est vrai

la condition telle qu'elle est écrite n'effacera pas les données des feuilles citées dans la condition. Soit par exemple la feuille "période 2", alors .Name <> "période 2" est faux et la condition globale est donc fausse aussi.

Pour éliminer les feuilles non désirées, on peut écrire:
if NOT ( .Name ="Base de données" or .Name ="Autre feuille sans effacement") then
effacement
endif

ce qui revient à conserver la forme de la condition mais avec les feuilles sans effacement:
if .Name <>"Base de données" and .Name <>"Autre feuille sans effacement") then
effacement
endif

 

[Robert]

Re : Erreur bout de code ???

Bonsoir le fil, bonsoir le forum,

Une proposition avec un Select Case (non testé) :

Dim Lg%, i%
For i = 1 To Worksheets.Count
With Worksheets(i)
    Select Case Worksheets(i).Name
        Case "Programmation annuelle", "Programmation de cycle", "période 1", "période 2", "période 3", "période 4", "période 5", "Base de données"
        Case Else
            Lg = .Range("e65536").End(xlUp).Row
            .Range("e7:e" & Lg).ClearContents
    End Select
End With