Macros excel 2016

belorison -  
je voudrais créer une macro sous excel qui m"efface le contenu d'une ou plusieurs cellules

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. via55
    Bonjour

    Utilise déjà l’enregistreur de macro
    Après s'il faut transformer ou compléter la macro tu poste un exemple de ton fichier avec sa macro sur mon-partage.fr, tu fais créer un lien que tu copies et reviens coller ici

    Cdlmnt
    Via
    1. belorison Auteur
      Je suis novice avec les macros, pour faire simple, je voudrais faire une gomme qui m'effacerait la ou les cellules qui auront été sélectionnées.
      Es ce possible ?
      Merci de votre réponse
  2. Patrice33740
    Bonjour,

    Par exemple : 
    Option Private Module
Option Explicit
Sub EffacerContenuDesCellulesSelectionnees()
Dim C As Range
  If TypeName(Selection) <> "Range" Then Exit Sub
  For Each C In Selection.Cells
    C.ClearContents
  Next C
End Sub
Sub EffacerContenuDeLaPlageDeCellules()
Dim R As Range
Dim C As Range
  Set R = ActiveSheet.Range("A3:B12,C7,D4:E4")
  For Each C In R.Cells
    C.ClearContents
  Next C
End Sub
    1. belorison Auteur
      pour faire simple, je voudrais faire une gomme qui m'effacerait la ou les cellules que je sélectionneraient.
      Es ce possible ?
      Merci de votre réponse
    2. via55
      @belorisonOui

      Au plus simple : un doubleclic efface le contenu de la cellule
      Copier la macro suivante et la coller dans le worksheet de la feuille où elle doit s'appliquer (ALT+F11 pour ouvrir éditeur VBA - double-clic sur nom de la feuille dans arborescence, coller la macro dans la page blanche et fermer éditeur) 
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.ClearContents
End Sub


      Vdlmnt
      Via
    3. belorison Auteur
      @via55Désolé mais Je suis novice avec les macros
      Je ne connais pas ( le worksheet de la feuille )
      Je pensais écrire simplement une macro
      Mes connaissances sont celles d'un débutant mais un débutant qui s'accroche
      Merci de votre aide
    4. via55
      @belorisonTu suis simplement les instructions que je t'ai donné et que je te répète :

      1) Faire ALT+F11 pour ouvrir l'éditeur VBA
      2) Double clic sur le nom de la feuille où tu veux que s'applique la macro dans l'arborescence à gauche
      3) Dans la page blanche qui s'est ouverte à droite (c'est ça le worksheet de la feuille) copier-coller les lignes de macro de mon dernier post
      4) Fermer l'éditeur
      Désormais dans la feuille à laquelle la macro est attachée un double-clic dans une cellule efface le contenu de la cellule

      Cdlmnt
      Via