macro vider certaines cellules

[chinel]

Salut tout le monde !

je voudrais dans ma feuille vider certaines cellules

exemple : vider la cellule A1, B32, C25, D11, ...

merci !

 

[marmotte18]

Re : macro vider certaines cellules

Bonjour,

• laisse le doigt appuyer sur Ctrl
• clique successivement sur toutes les cellules à vider
• enlève le doigt de la touche ctrl
• clique sur la touche "Suppr"

 

[JCGL]

Re : macro vider certaines cellules

Bonjour à tous,

Pour répondre strictement à ta question :

Option Explicit

Sub Efface()
Range("A1, B32, C25, D11").ClearContents
End Sub

A+

 

[chinel]

Re : macro vider certaines cellules

JCGL merci mais j'ai oublié de préciser qu'ils y a des cellules fusionnées


Merci

 

[JCGL]

Re : macro vider certaines cellules

Re,

Alors la syntaxe sera :

Option Explicit

Sub Efface()
Range("A1:B1, B32:B33, C25:D25, D11").ClearContents
End Sub

A+

 

[marmotte18]

Re : macro vider certaines cellules

Bonjour,

Ma méthode fonctionne aussi avec des cellules fusionnées !

 

[JCGL]

Re : macro vider certaines cellules

Re,

Marmotte : Bien sûr que ta méthode fonctionne mais notre ami souhaitait un code à la lecture du sujet

A++
A+ à tous

 

[chinel]

Re : macro vider certaines cellules

Super JCGL un grand merci !


bon dimanche !

 

[marmotte18]

Re : macro vider certaines cellules

Bonjour JCGL,

Tu as raison ! Je n'avais pas lu l'objet mais le contenu du message qui n'en faisait pas mention.

 

[flopolo]

Re : macro vider certaines cellules

Bonjour

J'ai une question proche et je ne suis pas spécialiste de VBA, disons que je bidouille ce que je trouve. Mais là je voudrais faire quelque chose que je n'arrive pas à bidouiller toute seule...

J'ai une feuille avec un certain nombre de cellules à renseigner par l'utilisateur. Ces cellules sont déverrouillées.
Je souhaiterais créer une macro qui me permette, avec un bouton, de supprimer le contenu de l'ensemble des cellules déverrouillées de la feuille (faire une remise à zéro, quoi).

J'ai déjà une macro qui me permet de rendre visible les cellules déverrouillées de la feuille (je l'ai trouvée sur ce forum) :
Sub TestVerrouillage()
Dim Cel As Range
For Each Cel In Range("A1:Z195") 'plage à adapter
If Cel.Locked = False Then Cel.Interior.ColorIndex = 4
Next Cel
End Sub

Je pensais pouvoir utiliser la fonction ClearContents à la place de Cel.Interior.ColorIndex = 4 pour adapter cette macro mais ça ne marche pas...

Je suis sûre qu'on doit pouvoir faire quelque chose pourtant !

Merci à vous tous pour votre aide et de votre indulgence !!

 

[JCGL]

Re : macro vider certaines cellules

Bonjour à tous,

Ceci devrait fonctionner :

Sub TestVerrouillage()
Dim Cel As Range
For Each Cel In Range("A1:Z195") 'plage à adapter
If Cel.Locked = False Then Cel.ClearContents
Next Cel
End Sub

A+ à tous

 

[flopolo]

Re : macro vider certaines cellules

MERCI !!!!!!!!!!!!!!!!!!!!!!!!!

 

[flopolo]

Re : macro vider certaines cellules

ça marche très bien, par contre le programme s'arrête avec un message d'erreur qui semble dire que l'action est impossible sur une cellule fusionnée.
Y a-t-il un moyen de détourner le problème?

Merci +++

 

[mapomme]

Re : macro vider certaines cellules

Bonjour à tous,

En rajoutant une condition à la macro de JCGL ?:

Sub effacer()
Dim xcell As Range
   For Each xcell In ActiveSheet.UsedRange   'ou bien:   In Range("A1:Z195")
      If Not xcell.Locked Then If xcell.MergeCells Then xcell.MergeArea.ClearContents Else xcell.ClearContents
   Next xcell
End Sub

 

[job75]

Re : macro vider certaines cellules

Bonjour à tous,

Pour éviter le problème des cellules fusionnées, il suffit de ne pas utiliser ClearContents :

If Not Cel.Locked Then Cel = ""

Bonne journée.