Problème de compréhension de code VBA pour application

Version imprimable

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:

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

11/07/2013, 09h09
MlNOU

Bonjour,

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

Code:

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.
11/07/2013, 09h55
twenty29

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

Code:

ActiveSheet.Shapes.Range(Array("Oval 1")).Select
11/07/2013, 11h37
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
11/07/2013, 11h46
MlNOU

Re Bonjour,

Magnifique exemple:ccool: , tu devrais en faire un tuto;).

Cordialement MlNOU

Donc je remplace par exemple ce code

Code:

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:

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

11/07/2013, 14h53
EngueEngue

Tout à fait monsieur
12/07/2013, 07h56
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?