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