bouton qui effacerait certaines cellules

[nico.sibille]

Bonjour,

Je voulais savoir s'il est possible de créer un bouton qui lors de son activation effacerait plusieurs cellules (une cinqantaine) .

Merci.

 

[chris]

Re : bouton qui effacerait certaines cellules

Bonjour

Via VBA tout est possible

Regardes déjà avec l'enregistreur macro

 

[bcharef]

Re : bouton qui effacerait certaines cellules

Bonsoir nico.sibille,
Bonsoir à toutes et à tous.

nico.sibille

Bonjour,

Je voulais savoir s'il est possible de créer un bouton qui lors de son activation effacerait plusieurs cellules (une cinqantaine) .

Merci.

En réponse à votre souci cité ci haut et malgré que je suis un ignare en matière de VBA, il est possible de le réaliser en précisant la plage à effacer.

Vous pouviez le réaliser par l'option enregistrer une macro (Outils/ Macro/ Nouvelle macro).

La jointure d'un exemple de votre problème permettra à nos ami(e)s de vous porter l'aide.

A vous lire et bon courage.

Cordialement.

Edition:Salut Chris

BCharef

 

[Hulk]

Re : bouton qui effacerait certaines cellules

Hello les amis,

Regarde ce classeur joint Nico...

Bonne fin de journée à tous !

Hulk.

 

[jeanpierre]

Re : bouton qui effacerait certaines cellules

Bonjour nico.sibille, re chris, bcharef,

Outils/Macros/Nouvelle macro

De là, tu selectionnes tes plages ou cellules, une à une, la touche Ctrl enfondée et un petit coup de Suppr. Tu arrêtes l'enregistrement, soit par la barre d'outils nouvellement créée, soit par encore Outils/Macro/Arrêter l'enregistrement.

Tu dessines un bouton sur ta feuille, avec la barre d'outils Formulaires ou Boîte à outils Contrôles (voir Affichage Barres d'outils), ou bien un dessin, une photo ou tout ce que tu veux et tu assignes la macro à cet objet.

Bon WE.

Jean-Pierre

 

[nico.sibille]

Re : bouton qui effacerait certaines cellules

je ne suis pas très doué car je n'y arrive pas... quel boulet !

Pourriezvous m'aider au début, aprs je ferai le reste car il y a beaucoup de cellules alors si je dois toutes les taper une par une ça va être long !

Déjà les cellules à effacer sont: C5 C6 D5 D6 F5 F6 G5 G6 I5 I6 J5 J6 L5 L6 M5 M6 O5 O6 P5 P6 C9 C10 D9 D10 F9 F10 G9 G10 I9 I10 J9 J10 L9 L10 M9 M10 O9 O10 P9 P10 .

puis: D13 D14 G13 G14 J13 J14 M13 M14 P13 P14
D17 D18 ...
D21 D22...

Si quelqu'un arrive à me commencer le travail, j'éspère être en mesure de pouvoir continuer.

Merci de toutes vos réponses !

 

[vbacrumble]

Re : bouton qui effacerait certaines cellules

Bonsoir

Tu peux mettre un version au format xls stp ?

Que contiennent ces cellules ?
Des chiffres ? Du texte ? Des formules ?

EDITION: si tu dois effacer qui contiennent uniquement des chiffres
Essayes cette macro
Sélectionnes ton tableau puis lance la macro

Sub Macro3()
' Macro3 Macro
' Macro enregistrée le 23/05/2009 par VBACrumble
Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub

(PS tu peux aussi le faire manuellement:
Edition/Atteindre/Constantes/Nombres
Edition/Effacer/Contenu )

 

[nico.sibille]

Re : bouton qui effacerait certaines cellules

oui ce ne sont que des chiffres partout dans le tableau mais je ne veux effacer que les cellules cités au dessus.
le problème en xls c'est que le fichier fait 130Ko ...

 

[vbacrumble]

Re : bouton qui effacerait certaines cellules

Re

As-tu essayé ma macro au moins ?


Tu verras qu'elle fait ce que tu souhaites .

 

[jeanpierre]

Re : bouton qui effacerait certaines cellules

Re,

130Ko en Xls passe sur le forum, suffit de le zipper.

Avec Windows c'est facile, clic droit sur ton fichier dans l'explorateur et Envoyer vers/Dossier compressé.

2 Secondes à peine.

 

[vbacrumble]

Re : bouton qui effacerait certaines cellules

Re , jeanpierre (a la tienne si c'est l'heure de la bière )



Je viens d'avoir un intuition (qui s'est relevé payante)

J'ai pu ouvrir le fichier avec Open Office (je n'y avais pas pensé avant)

Et ensuite j'ai enregistré en XLS


Voir pièce jointe

La macro4 efface les chiffres

Testes et dis moi si c'est le résultat que tu souhaites.

 

[nico.sibille]

Re : bouton qui effacerait certaines cellules

excuse moi mais sur leichier que tu m'as envoyé, j'ai des 123 partout... et je ne vois pas de bouton pour effacer les cellulesque je souhaitais.

je sais j'ai un peu de mal...

 

[bcharef]

Re : bouton qui effacerait certaines cellules

Bonsoir nico.sibille, chris, Hulk, Jean-Pierre & vbacrumble,
Bonsoir à toutes et à tous.

Il est possible de trouver une solution par formule qui permettra de définir le nom de la plage à éffacer.

Voilà une idée sur le fichier ci joint, après avoir nommer la plage d'une manière classique et qui pourra apporter des corrections, afin de dynamiser la plage à définir.

A vous lire et bon courage.

Cordialement.

Bcharef.

 

[vbacrumble]

Re : bouton qui effacerait certaines cellules

Re

J'ai édité mon message précédent.

Et mis à jour la pièce jointe. (avec un bouton)

 

[JCGL]

Re : bouton qui effacerait certaines cellules

Bonjour à tous,

Un essai avec :

Option Explicit

Sub Efface()
On Error Resume Next
Range("C5:P52,C61:P168").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Le On Error Resume Next s'il n'y a pas de cellules à effacer

A+ à tous