XL 2010 Débutante en macro

[Aleph8]

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?

 

[Aleph8]

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?

 

[job75]

Bonjour Aleph8, le forum,

"Afficher" ne peut pas servir de test si on l'affiche dans les 2 cas :

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.

 

[job75]

On peut si on le souhaite utiliser la propriété AutoSize mais ce n'est pas obligatoire :

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

 

[Aleph8]

Merci beaucoup Job75,
Je n'ai pas bien compris le nouveau code mais c'est exactement ce que je souhaitais... c'est parfait

 

[job75]

Je n'ai pas bien compris le nouveau code

Vous avez vu au post #17 mon explication :

"Afficher" ne peut pas servir de test si on l'affiche dans les 2 cas

 

[Aleph8]

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?

 

[job75]

Utilisez le code RGB donné par l'enregistreur de macro comme vous l'avez fait au post #1.

 

[Aleph8]

Je suis navrée je ne comprends pas où l'insérer et sous quelle forme

 

[job75]

Là vous me surprenez !!!

        .[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(xxx, yyy, zzz), xlFilterCellColor

 

[Aleph8]

Désolée je suis vraiment débutante et je m'y perds un peu
Merci beaucoup

 

[Aleph8]

Je suis désolée mais comment trouve-ton le code RGB de la couleur sélectionnée dans excel?

 

[Aleph8]

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??

 

[Aleph8]

J'ai réussi à modifier mes différents boutons.
Pouvez-vous me donner vos avis svp?

 

[job75]

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 :

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

 

[Aleph8]

Je créé le fichier au fur et à mesure de vos conseils...