XL 2016 Bouton effacer des cellules en particuliers

D

Duam

XLDnaute Nouveau
Bonjour,

J'ai un fichier avec une feuille de saisie avec un premier bouton qui copie colle dans une autre feuille.
Je dois maintenant créer un bouton pour effacer le contenu des cellules. Sachant que certaines cellules ont des calculs ou listes déroulantes.
J'ai essayé un premier code mais il ne fonctionne pas, pouvez-vous m'aider svp?
VB: 
Sub Effacer_feuille_saisie()

Cells("M4").ClearContents
Cells("C3").ClearContents
Cells("C5").ClearContents
Cells("I7").ClearContents
Cells("C11").ClearContents
Cells("I5").ClearContents
Cells("I3").ClearContents
Cells("C13").ClearContents
Cells("I9").ClearContents
Cells("I11").ClearContents
Cells("P9").ClearContents
Cells("P13").ClearContents
Cells("M9").ClearContents
Cells("I13").ClearContents
Cells("C20").ClearContents
Cells("B20").ClearContents
Cells("D20").ClearContents
Cells("E20").ClearContents
Cells("F20").ClearContents
Cells("G20").ClearContents
Cells("H20").ClearContents
Cells("I20").ClearContents
Cells("J20").ClearContents
Cells("K20").ClearContents
Cells("L20").ClearContents
Cells("M20").ClearContents
Cells("B27").ClearContents
Cells("E20").ClearContents
Cells("C27").ClearContents
Cells("H27").ClearContents
Cells("L27").ClearContents
Cells("K27").ClearContents
Cells("I27").ClearContents
Cells("M27").ClearContents
Cells("N27").ClearContents
Cells("P27").ClearContents

End Sub
Cliquez pour agrandir...
 

Pièces jointes

  • OBSERVATOIRE DE LA QUALITE_SRP_MODELE SAISIE DONNEES.xlsm
    390.5 KB · Affichages: 7
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Hello

il me semble te l'avoir déjà dit..? (excuse si ce n'est pas à toi)
mais une cellule excel, c'est soit par Cells, soit par range
pour Cells, on spécifie ligne et colonne==> Cells(ligne,colonne)
pour Range: on donne le nom de la cellule "A1"
il peut y avoir des cas particuliers de mix, mais globalement, ce sont ces deux syntaxes

==> la cellule A1 c'est soit Range("A1") soit cells(1,1), mais pas Cells("A1")
 
Vote positif 0 Vote négatif
D

Duam

XLDnaute Nouveau
vgendron à dit:
Hello

il me semble te l'avoir déjà dit..? (excuse si ce n'est pas à toi)
mais une cellule excel, c'est soit par Cells, soit par range
pour Cells, on spécifie ligne et colonne==> Cells(ligne,colonne)
pour Range: on donne le nom de la cellule "A1"
il peut y avoir des cas particuliers de mix, mais globalement, ce sont ces deux syntaxes

==> la cellule A1 c'est soit Range("A1") soit cells(1,1), mais pas Cells("A1")
Cliquez pour agrandir...
J'ai essayé avec Range et cela ne fonctionne pas non plus, dès la première ligne j'ai une erreur 1004
 

Pièces jointes

  • OBSERVATOIRE DE LA QUALITE_SRP_MODELE SAISIE DONNEES.xlsm
    390.5 KB · Affichages: 1
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
il faudrait aussi regrouper les zones à effacer et les mettre dans l'ordre.. à mon avis.. tu en as oublié
VB: 
Sub Effacer_feuille_saisie()

Range("C3").ClearContents
Range("C5").ClearContents
Range("C11").ClearContents
Range("C13").ClearContents

Range("I3").ClearContents
Range("I5").ClearContents
Range("I7").ClearContents
Range("I9").ClearContents
Range("I11").ClearContents
Range("I13").ClearContents

Range("P9").ClearContents
Range("P13").ClearContents


Range("B20:M20").ClearContents

Range("B27:C27").ClearContents
Range("H27:I27").ClearContents
Range("K27:P27").ClearContents

End Sub
 
Vote positif 0 Vote négatif
D

Duam

XLDnaute Nouveau
Je veux juste effacer le chiffre et pas la formule pour que la feuille soit vierge.
Je dois défusionner- effacer- refusionner pour ce genre de cellule?

VB: 
Sub Effacer_feuille_saisie()

Range("C3").ClearContents
Range("C5").ClearContents
Range("C7").ClearContents
Range("C9").ClearContents
Range("C11").ClearContents
Range("C13").ClearContents

Range("I3").ClearContents
Range("I5").ClearContents
Range("I7").ClearContents
Range("I9").ClearContents
Range("I11").ClearContents
Range("I13").ClearContents

'Effacer chiffre pas formule
Range("M4").ClearContents
Range("M9").ClearContents

Range("M13").ClearContents

Range("P5").ClearContents
Range("P9").ClearContents
Range("P13").ClearContents

'Effacer chiffre pas formule
Range("B20:N20").ClearContents
Range("H20").ClearContents

'Effacer chiffre pas formule
Range("B27:C27").ClearContents
Range("H27").ClearContents
Range("H27:I27").ClearContents
Range("K27:P27").ClearContents
Range("P27").ClearContents

End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
non ca ne va pas... tu as un souci de compréhension..
le chiffre que tu souhaites effacer.. il vient d'ou..? de la formule
la cellule.. elle contient une formule==> si tu veux "effacer" le chiffre: c'est à dire ne RIEN voir, il faut alors modifier la formule pour qu'elle ne renvoie rien
exemple
en A1 : 10 la.. il s'agit d'une valeur
en B1: =si(A1<>"";A1;"") ici, il s'agit d'une formule qui renvoie une valeur SI il y a une valeur en A1, rien sinon
 
Vote positif 0 Vote négatif
D

Duam

XLDnaute Nouveau
Effectivement j'avais mal compris, excusez moi!
Du coup j'ai enlever les cellules contenant les formules du VBA;
Il me reste juste une cellule fusionnée que je ne peux effacer
VB: 
Sub Effacer_feuille_saisie()

Range("C3").ClearContents
Range("C5").ClearContents
Range("C7").ClearContents
Range("C9").ClearContents
Range("C11").ClearContents
Range("C13").ClearContents

Range("I3").ClearContents
Range("I5").ClearContents
Range("I7").ClearContents
Range("I9").ClearContents
Range("I11").ClearContents
Range("I13").ClearContents

'Cellule fusionnée erreur 1004
Range("M13").ClearContents

Range("P5").ClearContents
Range("P9").ClearContents
Range("P13").ClearContents

Range("B20:G20").ClearContents
Range("I20:N20").ClearContents

Range("B27:G27").ClearContents
Range("I27:O27").ClearContents

End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
VB: 
Sub Effacer_feuille_saisie()

Range("C3").ClearContents
Range("C5").ClearContents
Range("C7").ClearContents
Range("C9").ClearContents
Range("C11").ClearContents
Range("C13").ClearContents

Range("I3").ClearContents
Range("I5").ClearContents
Range("I7").ClearContents
Range("I9").ClearContents
Range("I11").ClearContents
Range("I13").ClearContents

Range("M13:N13").ClearContents

Range("P5").ClearContents
Range("P9").ClearContents
Range("P13").ClearContents

Range("B20:G20").ClearContents
Range("I20:P20").ClearContents

Range("B27:G27").ClearContents
Range("I27:O27").ClearContents

End Sub
 
Vote positif 0 Vote négatif
Eric C

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour Duam, Vincent, TooFatBoy

Notre ami vgendron ayant fait tout le travail de tri, je me propose de simplifier le code de ton "CommandButton2" (Effacement) avec ce code :
VB: 
Private Sub CommandButton2_Click()
 Application.ScreenUpdating = False

For i = 3 To 13 Step 2
Range("C" & i).ClearContents
 Next i

For j = 3 To 13 Step 2
Range("I" & j).ClearContents
Next j

For k = 5 To 13 Step 4
Range("P" & k).ClearContents
Next k

For l = 5 To 13 Step 4
Range("P" & l).ClearContents
Next l

Union([M13:N13], [B20:G20], [I20:P20], [B27:G27], [I27:O27]).ClearContents
 
 Application.ScreenUpdating = True
 
End Sub
Bonne après-midi
@+ Eric c
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
salut @Eric C
tu aurais quand meme pu cumuler les boucles :):)
et pourquoi deux fois la boucle sur k et sur l?
VB: 
Private Sub CommandButton2_Click()
 Application.ScreenUpdating = False

For i = 3 To 13 Step 2
Range("C" & i).ClearContents
Range("I" & i).ClearContents
 Next i

For k = 5 To 13 Step 4
Range("P" & k).ClearContents
Next k

Union([M13:N13], [B20:G20], [I20:P20], [B27:G27], [I27:O27]).ClearContents
 
 Application.ScreenUpdating = True
 
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

E
  • Résolu(e)
Autres Formule plus simple
Réponses
3
Affichages
230
Elisa47
E
D
  • Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
932
vgendron
vgendron
tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
156
tactic6
tactic6
A
  • Résolu(e)
XL 2013 Actionner les commandes présentes dans d'autres feuilles
Réponses
3
Affichages
754
arnoldbrice19
A
tactic6
  • Question
XL 2013 Bizarre Erreur de compilation: variable non définie RESOLU
Réponses
11
Affichages
1 K
tactic6
tactic6
tactic6
  • Question
XL 2013 trop de caractère de continuité de ligne
Réponses
4
Affichages
4 K
tactic6
tactic6
D
  • Question
Procédure trop grande
2 3 4
Réponses
46
Affichages
9 K
domeli
D
S
  • Question
Modification de macroS pour quelles puisses se "combiner"
Réponses
6
Affichages
1 K
Sobas
S
tactic6
  • Question
Longueur ligne de code
2
Réponses
16
Affichages
2 K
tactic6
tactic6

Membres actuellement en ligne

7 membres et 80 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 104
Messages
2 085 346
Membres
102 868
dernier inscrit
JJV