macro vider certaines cellules

marmotte18

XLDnaute Impliqué

• 27 Juillet 2008

• #2

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"

 

Dernière édition: 27 Juillet 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Juillet 2008

• #3

Re : macro vider certaines cellules

Bonjour à tous,

Pour répondre strictement à ta question :

Code:

Option Explicit

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

A+

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 27 Juillet 2008

• #4

Re : macro vider certaines cellules

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


Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Juillet 2008

• #5

Re : macro vider certaines cellules

Re,

Alors la syntaxe sera :

Code:

Option Explicit

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

A+

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 27 Juillet 2008

• #6

Re : macro vider certaines cellules

Bonjour,

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Juillet 2008

• #7

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

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 27 Juillet 2008

• #8

Re : macro vider certaines cellules

Super JCGL un grand merci !


bon dimanche !

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 27 Juillet 2008

• #9

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.

 

Vote positif 0 Vote négatif

F

flopolo

Guest

• 17 Octobre 2014

• #10

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Octobre 2014

• #11

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

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

F

flopolo

Guest

• 17 Octobre 2014

• #12

Re : macro vider certaines cellules

MERCI !!!!!!!!!!!!!!!!!!!!!!!!!😱

 

Vote positif 0 Vote négatif

F

flopolo

Guest

• 17 Octobre 2014

• #13

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2014

• #14

Re : macro vider certaines cellules

Bonjour à tous,

En rajoutant une condition à la macro de JCGL 🙂 ?:

VB:

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

 

Dernière édition: 18 Octobre 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Octobre 2014

• #15

Re : macro vider certaines cellules

Bonjour à tous,

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

Code:

If Not Cel.Locked Then Cel = ""

Bonne journée.

 

Vote positif 0 Vote négatif