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

macro suppression des cases cochées

Créer une discussion

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
Y

yichaam

XLDnaute Nouveau
Bonjour à tous

J'envoie encore un message pour l'execution rapide d'une tâche qui peut sembler banal pour un petit tableau, mais rapidement chronophage lorsque le tableau fait 10 à 15000 lignes.

Voici la fonction: j'ai un tableau à trois colonnes: le rayon, le code et le nom de marque.

ce tableau n'est pas "propre", il y a des marques attachées à certains rayons qu'il faut supprimer.

Pour faire simple, il suffirait de faire un filtre, de selectionner le rayon concerné, de selectionner ensuite la marque à supprimer, clic droit, supprimer la ligne et voila.

Seulement dans un tableau composé de centaines de marques et de + de 15000 lignes, c'est un peu long à faire...

Est-il possible de réaliser une macro permettant, à l'aide d'un bouton de faire apparaitre dans un premier temps une box demandant de taper le numero du rayon.

une fois le rayon inscrit, une seconde box apparait avec cette fois une liste des marques du rayon precédemment inscrit (en case à cocher).

une fois les marques cochées, il n'y a plus qu'à valider afin que toutes les lignes comportant les codes rayon inscrits et les marques cochées soient supprimées.

Voila un fichier joint avec le tableau à trois colonnes pour illustrer mes propos

Est-ce réalisable est-ce croire au pére noël ??, je sais qu'on peut faire beaucoup de choses avec Excel mais la, javoue que c'est un peu particulier (ou trop lourd à réaliser).

Si vous avez des suggestions sur une autre organisation je suis preneur

Merci à tous!!!!
 

Pièces jointes

Trier par date Trier par votes
Re : macro suppression des cases cochées

Bonjour Pierrejean

Oui ça ressemble à ce que je veux faire, cependant, quand je selectionne un rayon, il me met effectivement les marques corresponsdantes mais quand je selectionne un autre rayon, il m'ajoute les marques du rayon précédent

Une petite chose en plus, en regardant le code, la macro supprime la ligne, est-il possible au lieu de la supprimer de mettre la ligne en couleur?

Merci en tout cas pour cette macro, elle s'avère prometteuse!!!
 
Vote positif 0 Vote négatif
Re : macro suppression des cases cochées

GENIALISSIMO!!!!!!!!!!!!!!!

Merci Pierrejean, c'est exactement ce qu'il me fallait.

Une dernière chose, je n'arrive pas à accéder au script de la macro, kan je vais à "macro", il n'y a rien, pareil pour le bouton, le clic droit sur le bouton ne fonctionne pas

J'ai peut-etre fait une mauvaise manip en le telechargeant, est-il possible de m'envoyer le script afin de modifier et d'adapter la macro à tous mes docs??

Merci encore et bravo!!!!!!!!!!!
 
Vote positif 0 Vote négatif
Re : macro suppression des cases cochées

Re

Normal : tout le code est dans l'Userform

le voici:

Code: 
Private Sub ComboBox1_Change()
ListBox1.Clear
For n = 4 To Range("C65536").End(xlUp).Row
 If CStr(Range("C" & n)) = ComboBox1 Then ListBox1.AddItem Range("E" & n)
Next n
End Sub
 

Private Sub CommandButton1_Click()
For n = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(n) = True Then
    For m = Range("C65536").End(xlUp).Row To 4 Step -1
       If CStr(Range("C" & m)) = ComboBox1 And Range("E" & m) = ListBox1.List(n) Then
         Range("C" & m & ":E" & m).Interior.ColorIndex = 3
       End If
    Next m
  End If
Next n
End Sub
 
 
Private Sub UserForm_Initialize()
Dim codes As Collection
Set codes = New Collection
For n = 4 To Range("C65536").End(xlUp).Row
 On Error Resume Next
   codes.Add Range("C" & n), CStr(Range("C" & n))
 On Error GoTo 0
Next n
For i = 1 To codes.Count - 1
 For j = i + 1 To codes.Count
 If codes(i) > codes(j) Then
  t1 = codes(i)
  t2 = codes(j)
  codes.Add t1, before:=j
  codes.Add t2, before:=i
  codes.Remove i + 1
  codes.Remove j + 1
 End If
 Next j
Next i
For n = 1 To codes.Count
 ComboBox1.AddItem codes(n)
Next n
End Sub

pour le bouton c'est dans la Feuil1:

Code: 
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
 
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

Discussions similaires

A
  • Question Question
Microsoft 365 Combinaison de graphique : Barres empilées & courbes avec marques
Réponses
3
Affichages
329
APR63
A
P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
728
pierrof
P
Z
  • Résolu(e)
Microsoft 365 Suppression des doublons et lignes vide
Réponses
6
Affichages
179
zilio
Z
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
396
Yogean
Y
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
122
sylvanu
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
445
Perceval973
P
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
180
DAVID-44-
L
  • Résolu(e)
XL 2016 macro pour parcourir les lignes d'une colonne et a chaque changement extraire les donnees specifiques des colonnes adjacentes
Réponses
6
Affichages
203
Dranreb
B
  • Question Question
XL 2019 tournoi 8 activités différentes 16 équipes
2
Réponses
15
Affichages
312
Dranreb
O
  • Question Question
XL 2021 VBA / Macro et tableau croisé dynamique
Réponses
3
Affichages
522
oguruma
T
  • Résolu(e)
XL 2019 MFC - si liste de termes d'un tableau
Réponses
6
Affichages
180
tuti
T
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
535
Dubuyz1
D
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
693
alexga78
A
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
289
fanch55
D
  • Question Question
XL 2021 Filtre par référence ou macro
Réponses
12
Affichages
151
sylvanu
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
335
Phil69970
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
651
jeff1494
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
236
StéphaneDeLà
S
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
279
caseras
C
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
232
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…