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

XL 2010 Débutante en macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Aleph8
  • 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
A

Aleph8

XLDnaute Nouveau
Bonjour à tous,
Je suis débutante en macro excel est je cherche sur le forum depuis la semaine dernière et je sèche...
Je cherche à créer un bouton sur une base de données excel.
J'ai créé un premier bouton qui me permet de masquer/afficher par Formation
J'essaie de créer un second bouton qui me permette de masquer/afficher les agents dont la ligne est colorée (à la main) et ça ne fonctionne pas....

Le top serait au final que les deux boutons n'en soit plus qu'un seul.
Pourriez-vous m'aider s'il vous plaît?
 

Pièces jointes

Trier par date Trier par votes
J'ai essayé de comprendre et de modifier:
Sub Manuelle()
With ActiveSheet
If .DrawingObjects(1).Text Like "Afficher*" Then
.DrawingObjects(1).Text = "Afficher Formation A et afficher lignes colorées"
.Columns("K:L").Hidden = True
.[A4].CurrentRegion.Offset(1).AutoFilter 1, vbYellow, xlFilterCellColor
Else
.DrawingObjects(1).Text = "Afficher tout"
.Columns("K:L").Hidden = False
If .FilterMode Then .ShowAllData
End If
End With
End Sub

ça fonctionne pour afficher la Formation A et les lignes jaunes. Par contre, ça ne revient pas à la normale (afficher tout) quand je clique à nouveau sur mon bouton....
Comment faire?
 
Vote positif 0 Vote négatif
Bonjour Aleph8, le forum,

"Afficher" ne peut pas servir de test si on l'affiche dans les 2 cas :
VB: 
Sub Manuelle()
With ActiveSheet
    If .DrawingObjects(1).Text Like "*tout" Then
        .DrawingObjects(1).Text = "Afficher uniquement Formation A et lignes colorées"
        .Columns("K:L").Hidden = False
        If .FilterMode Then .ShowAllData
    Else
        .DrawingObjects(1).Text = "Afficher tout"
        .Columns("K:L").Hidden = True
        .[A4].CurrentRegion.Offset(1).AutoFilter 1, vbYellow, xlFilterCellColor
    End If
End With
End Sub
Bonne journée.
 
Vote positif 0 Vote négatif
On peut si on le souhaite utiliser la propriété AutoSize mais ce n'est pas obligatoire :
VB: 
Sub Manuelle()
With ActiveSheet
    If .DrawingObjects(1).Text Like "*tout" Then
        .DrawingObjects(1).Text = "Afficher uniquement Formation A et lignes colorées"
        .Columns("K:L").Hidden = False
        If .FilterMode Then .ShowAllData
    Else
        .DrawingObjects(1).Text = "Afficher tout"
        .Columns("K:L").Hidden = True
        .[A4].CurrentRegion.Offset(1).AutoFilter 1, vbYellow, xlFilterCellColor
    End If
    .DrawingObjects(1).AutoSize = True 'facultatif, ajuste la largeur du bouton
End With
End Sub
 
Vote positif 0 Vote négatif
Oui j’ai vu et j'ai compris... Merci
Encore une question.
Dans le code il y vbYellow qui correspond à ma couleur jaune.
Si je veux mettre d'autres lignes en couleur (vert par exemple pour la formation B) comment puis-je trouver le code qui correspond à la couleur choisie et comment l'intégrer dans VBA à la place de VB Yellow?
 
Vote positif 0 Vote négatif
J'ai trouvé un fichier pour avoir le code RGB,
par contre, j'ai un truc étrange:
j'ai créé 3 boutons de formation mais lorsque je clique sur la formation B (par exemple) le bouton formation A passe en "afficher tout" puis au 2nd clic il s'affiche "Formation B et lignes vertes"
Est-ce que c'est une erreur de code. Est ce que je peux modifier le code pour que chaque bouton ne fasse que le trie et ne fasse plus le retour en créant un bouton retour à part??
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
On en est au 29ème post ! Il aurait été quand même plus simple de présenter ce fichier dès le début :
VB: 
Sub Afficher_tout()
With ActiveSheet
    .Columns.Hidden = False
    If .FilterMode Then .ShowAllData
End With
End Sub

Sub Jaune()
With ActiveSheet
    .Columns("I:J").Hidden = False
    .Columns("K:N").Hidden = True
    .[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(255, 255, 0), xlFilterCellColor
End With
End Sub

Sub Vert()
Afficher_tout
With ActiveSheet
    .Columns("K:L").Hidden = False
    .Range("I:J,M:N").Columns.Hidden = True
    .[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(0, 255, 0), xlFilterCellColor
End With
End Sub

Sub Bleu()
Afficher_tout
With ActiveSheet
    .Columns("M:N").Hidden = False
    .Columns("I:L").Hidden = True
    .[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(0, 255, 255), xlFilterCellColor
End With
End Sub
 

Pièces jointes

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

N
  • Question Question
XL 2010 problem Macro VBN
Réponses
3
Affichages
154
vgendron
N
  • Résolu(e)
Microsoft 365 Optimisation formule recherche valeur en fonction de plusieurs critères
Réponses
5
Affichages
181
Nounours4173
N
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
561
Manon71.
M
P
  • Résolu(e)
Microsoft 365 Modifier couleur du texte d'une cellule
Réponses
6
Affichages
205
pat66
P
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
317
Yogean
Y
S
  • Résolu(e)
XL 2010 tableau de cumul automatisé
Réponses
13
Affichages
593
stefiskool
S
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
262
Phil69970
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
848
Nel'
N
  • Question Question
Microsoft 365 Modèle de facture avec macro
2
Réponses
18
Affichages
786
Jelose
P
  • Résolu(e)
Microsoft 365 Macro qui change l'épaisseur du contour d'une forme
Réponses
11
Affichages
649
pat66
P
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
353
AtTheOne
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
510
patricktoulon
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
684
MarineU
M
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
706
Magis
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
879
dysorthographie
M
  • Question Question
XL 2019 VBA/Macro | Créer des fichiers automatiquement
Réponses
2
Affichages
513
Mael44
M
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
585
AtTheOne
M
  • Question Question
XL 2010 Macro pour modifier les params d'impression ?
2 3
Réponses
40
Affichages
4 K
ManuXZ
M
E
  • Question Question
XL 2019 Extraction d'une feuille avec suppression de formes et de formules
Réponses
2
Affichages
630
EnzoC
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…