Effacer le contenu de certaines colonnes et lignes uniquement

Bonjour à tous.

Encore trop compliqué à concevoir pour moi, je fait appel à votre savoir faire.

Une macro qui effacerait le contenu de certaines cellules de mon tableau, mais pas toute justement.

La plage de cellules de mon tableau E78 : BM182

Donc effacer le contenu en partant de la cellule E78:

Pour les lignes: de 78:182 mais 1 ligne sur 2 ( effacer le contenu des cellules des lignes 78, 80, 82, ...182)

Pour les colonnes: de E:BM mais 1 colonne sur 3 ( effacer le contenu des cellules des colonnes E, H, K,N, ...BM)

Exemple: les cellules jaunes ci-dessous sont à effacer.

Merci

Bonjour LionSleep,

A condition que la feuille active soit celle avec le tableau ce code doit fonctionner:

Sub EffacerTableau()
For i = 78 To 182 Step 2
For j = 5 To 65 Step 3
Cells(i, j).ClearContents
Next i
Next j
End Sub

A+

EDIT, si vous avez besoin d'un code plus "passe partout" on pourrais se baser sur la couleur de la cellule pour détecter si la cellule doit être supprimée.

Merci pour ton aide.

il le met ce code erreur.... Voir image

Je lance la macro via un objet sur la feuille de calcul. C'est peut être pour cela?

Bonjour Gabin37, merci pour ton code. Je le comprend aisément, seulement il ne fonctionne pas, il bloqué sur Next i.

Tu saurais me dire pourquoi s'il-te-plaît? Merci

Magnifique j'ai trouvé!🤗

Il fallait juste inverser les Next..

d'abord Next j puis Next i, et ça marche.

Par contre la procédure est très longue à s'exécuter car il y a beaucoup de cellules à traiter.

Y aurait-il un moyen efficace pour que tout se fasse en un instant, sans forcément voir toutes les cellules se vider l'une après l'autre? 🤔

Merci Gabin37 pour ton aide et ton code qui fonctionne. Affaire résolue. Pour le reste je vais trouver.

A bientôt

Voici le code fini...

Sub Effacer_Tableau_ecole()

  'masquer la procédure
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual

  ' message avant de lancer la procédure
  rep = MsgBox("Es-tu sûr de vouloir supprimer toutes les attributions des sujets d'élève de toute l'année?", _
  vbDefaultButton2 + vbQuestion + vbYesNo, "ATTENTION")
If rep = vbNo Then
Exit Sub
End If
' enlever la protection de la feuille
ActiveSheet.Unprotect "333"
' boucle
For a = 78 To 182 Step 2
For b = 5 To 65 Step 3

Cells(a, b).ClearContents
Next b
Next a

 'selectionner la cellule A3
 Range("a3").Select
'remettre la protection
ActiveSheet.Protect "333"
'suite pour masquer la procédure
Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub

Salut désolé de ne pas avoir été dispo ce WE.

Je suis content que tu aies résolu ton problème tout seul, désolé d'avoir inversé j et i !

A+

Pas grave merci. Grace à toi ça marche.