Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment effacer des cases en les sélectionnant par une liste

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion VH2011
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

VH2011

Guest
Salut
j'ai une liste qui regroupe des infos. ces infos partent sur des feuilles
dans ces feuilles je rentre des données.
je veux faire un bouton qui efface certaines lignes de ma liste et les données qui correspondent dans les feuilles !
voir l'exemple beaucoup plus clair !

A vos claviers les pros !

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Comment effacer des cases en les sélectionnant par une liste

Bonsoir VH2011,

Avec cette macro ?????

VB: 
Option Explicit
Private Sub CommandButton1_Click()
Dim i&, rep
Application.DisplayAlerts = False
For i = 6 To 9 'Ligne pour les feuilles
  If Cells(i, 4) = "X" Then
    rep = MsgBox("Voulez-vous effacer " & Cells(i, 3), vbYesNo, "Effacement")
    If rep = vbYes Then
    Worksheets(Cells(i, 3).Value).Delete
    Range(Cells(i, 5), Cells(i, 7)).ClearContents
    End If
  End If
Next
End Sub

A+

Martial
 
Vote positif 0 Vote négatif
Re : Comment effacer des cases en les sélectionnant par une liste

Salut !
merci pour ta réponse mais je ne veux pas effacer les feuilles concernées mais seulement des cellules dans ces feuilles, exemple C9:I24
ça se corse !
 
Vote positif 0 Vote négatif
Re : Comment effacer des cases en les sélectionnant par une liste

Bonjour VH2011,

Bon comme ça alors :

VB: 
Option Explicit
Private Sub CommandButton1_Click()
Dim i&, rep
 Application.DisplayAlerts = False
For i = 6 To 9 'Ligne pour les feuilles
  If Cells(i, 4) = "X" Then
     rep = MsgBox("Voulez-vous effacer " & Cells(i, 3), vbYesNo, "Effacement")
     If rep = vbYes Then
     Worksheets(Cells(i, 3).Value).[C9:I24].ClearContents
     Range(Cells(i, 5), Cells(i, 7)).ClearContents
     End If
   End If
Next
End Sub

A+

Martial
 
Vote positif 0 Vote négatif
Re : Comment effacer des cases en les sélectionnant par une liste

Encore un pti détail que j'avais oublié !
En fait je veux effacer certaines cellules dans mes lignes... pas toutes car j'ai des formules à conserver.
J'ai beau chercher je ne trouve pas !
Un pti coup de pouce ? 😉
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Comment effacer des cases en les sélectionnant par une liste

Bonsoir VH2011,

Avec cette modification

VB: 
Option Explicit
Private Sub CommandButton1_Click()
Dim i&, rep
 Application.DisplayAlerts = False
For i = 6 To 9 'Ligne pour les feuilles
 If Cells(i, 4) = "X" Then
     rep = MsgBox("Voulez-vous effacer " & Cells(i, 3), vbYesNo, "Effacement")
     If rep = vbYes Then
     Worksheets(Cells(i, 3).Value).[C9:I24].ClearContents
     Range(Cells(i, 5), Cells(i, 7)).ClearContents 'Un ensemble de cellule (de la colonne E (5) à la colonne G (7)
     Cells(i, 9).ClearContents 'Effacement de la colonne I (9)
     End If
   End If
Next
End Sub

A+

Martial
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
279
PR.
P
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
197
sylvanu
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
311
Nico Gre
N
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
679
Phil69970
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
542
sylvanu
Y
  • Question Question
XL 2021 Liste déroulante filtrée par les 2 premiers caractères
2
Réponses
28
Affichages
936
Dudu2
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
510
job75
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
554
Leina
L
G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
518
gpion
G
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
3 K
apocalypse
A
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
873
alexga78
A
J
  • Question Question
XL 2010 Créer une liste déroulante avec des cases et sous cases
Réponses
5
Affichages
725
patricktoulon
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
668
Phil69970
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
2 K
Alexandrax971
A
  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
5 K
jeff1494
C
  • Question Question
Microsoft 365 lancer une macro juste en sélectionnant une forme (Shape)
Réponses
5
Affichages
895
creolia
C
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
448
flc13090
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…