Discussion :

[Solice86]

Bonjour,

Je débute en VBA et je me demandais si quelqu'un aurait un code à me donner pour résoudre mon problème :

Dans une plage de Cellule allant de H13 à H30 (13 cellules) :

- seulement 3 ont un fond "aucun remplissage" (ou je saisi un texte)

- et les 10 autres sont sur fond orange (et contiennent des formules)

quel code macro dois-je saisir pour que, dans la plage, il ne m'efface le contenu que des cellules sans remplissage?

ou alors un code me permettant de traduire qu'a partir de la cellule H13, supprimer la cellule H13 puis H19 puis H25 (soit toutes les 6 cellules)

Merci beaucoup et bonne journée

[parmi]

Bonjour,

Tu pourrais utiliser HasFormula pour savoir s'il y a ou non des formules dans tes cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not MaCellule.HasFormula then MaCellule.ClearContents

[Menhir]

Utiliser la couleur comme donnée d'entrée dans Excel ou VBA, c'est généralement une mauvaise idée.
Si on peut, on évite.

ou alors un code me permettant de traduire qu'a partir de la cellule H13, supprimer la cellule H13 puis H19 puis H25 (soit toutes les 6 cellules)

Union(Range("H13"), Range("H19"), Range("H25")).ClearContents

[Solice86]

Merci pour vos réponses.

Menhir : j'ai réduit le nombre de mes cellules, mais en réalité ma zone d'effet va jusqu'à H900.

Est-il possible d'utiliser ton code en l'adaptant comme ceci :

Union(Range("H13:H900)) "code pour la récurrence de 6 cellules à partir de H13".ClearContents

Sinon je vais mettre pas mal de temps à taper la macro.

[Menhir]

Menhir : j'ai réduit le nombre de mes cellules, mais en réalité ma zone d'effet va jusqu'à H900.

Comme on dit : "Gabage In, Garbage Out" qu'on pourrait traduire ici assez librement par : mauvaise question, mauvaise réponse.

Est-il possible d'utiliser ton code en l'adaptant comme ceci :
Union(Range("H13:H900)) "code pour la récurrence de 6 cellules à partir de H13".ClearContents

Non.
Par contre, il est possible de faire une boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Ligne As Long
For Ligne = 13 To 900 Step 6
   Cells(Ligne, 7).ClearContents
Next Ligne

[Solice86]

Parfait ! Merci beaucoup !

C'était absolument ce qu'il me fallait !

Merci encore!