Discussion :

[twenty29]

Bonjour

Je viens de récupérer ce bout de code mais j'ai quelque peu de mal à le comprendre entièrement.J'ai besoin de l'adapter à mon tableau exel par la suite. Quelqu'un pourrait-il m'aider à le décripter?

merci

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Afficher_Reduire()
'
' Afficher_Reduire Macro
'
' Touche de raccourci du clavier: Ctrl+r
'
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
        'ActiveSheet.Range("Filtre").AutoFilter Field:=7
    Else
        Rows("7:2").AutoFilter
        ActiveSheet.Range("Filtre").AutoFilter Field:=7, Criteria1:="<>"
    End If
End Sub

merci d'avance

[MlNOU]

Bonjour,

Ton code permet d'avoir une action sur les filtres de ta feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        ActiveSheet.Range("Filtre").AutoFilter Field:=7, Criteria1:="<>"

Sur la colonne 7 tu selectionnes l'un de tes critères de tri disponible.
Mais je ne connais pas ta selection "filtre" donc je ne peux ten dire plus.


En ce qui concerne la boucle if , elle verifie si des filtres sont deja présent et si oui elle les supprime.

Voila comment je le comprends ( à confirmer ).

Cordialement MlNOU.

[twenty29]

Autre question , comment selectionner une forme dans une feuille bien précise sans que cela ne se voit à l'écran.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("Oval 1")).Select

[EngueEngue]

Ne jamais selectionner..
Si tu veux en faire qqchose fait le directement

Si tu veux appeler un ami, tu as deux options
1- Tu tu appelles ton ami
2- Tu selectionnes ton telephone, tu stockes son numéro dans une variable, que tu mets dans un carton, tu selectionnes le carton, tu cherches dans le carton le bon numéro tu reselectionnes ton téléphone et tu l'appelles.

Histoire imagée pour te dire que la selection est complètement inutile

[MlNOU]

Re Bonjour,

Magnifique exemple , tu devrais en faire un tuto.


Cordialement MlNOU

[twenty29]

Donc je remplace par exemple ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
ActiveSheet.Shapes.Range(Array("Oval 1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoFalse
        .Transparency = 1
    End With
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .Transparency = 0
    End With

En:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With ActiveSheet.Shapes.Range(Array("Oval 1")).ShapeRange.Fill
        .Visible = msoFalse
        .Transparency = 1
    End With
 
    With ActiveSheet.Shapes.Range(Array("Oval 1")).ShapeRange.Fill
        .Visible = msoTrue
        .Transparency = 0
    End With

[EngueEngue]

Tout à fait monsieur

[twenty29]

Dernière question :

Suite a la création de cette macro j'aimerai l'affecter à une case à cocher.
C'est à dire : je veux que lorsque je coche la case à cocher c'est a dire lorsqu'elle renvoie la valeur VRAI ma forme apparaisse et lorsque la case à cocher est décocher la forme disparaisse.

Comment puis-je faire?
Comment récupérer la valeur de la case à cocher?