Callculer les cellules soumise à une MFC + Problème PastSpecial

[chlagvuk]

Bonjour Bonsoir,

J'ai déja poster sur un autre problème mais toujours concernant le même fichier.

Cette fois ci malgré le fait que dès que la feuille s'affiche une macro la bloque pour l'utilisateur, une autre macro ne peut pas se terminer car la feuille en question est protégé :

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

    Worksheets("Feuille1").Select
    ActiveSheet.Range("$A$1:$J$118").AutoFilter Field:=6, Criteria1:="Nom"
    Range("A2:B140,G2:H140").Select
    Selection.Copy
    Worksheets("Feuille1").Visible = False
    Worksheets("Feuille2").Select
    Range("C1") = "Nom"
    Range("B2").PasteSpecial
    Range("B2").Select

Mon deuxième problème est sur des dates. Une mise en forme conditionnelle me change les cellules quand la date est de moins d'un mois, une autre de moins de 15 jours, une du jour même et une dernière quand le jour est dépassé; toujours par rapport à la date d'aujourd'hui.

Je souhaite pouvoir compter le nombre de cellule correspondant a l'une ou l'autre des MFC. Je vous transmet un fichier exemple pour être plus clair.



Merci à vous, Bonne journée

 

[Dull]

Re : Callculer les cellules soumise à une MFC + Problème PastSpecial

Salut chlagvuk, le Forum

pour ton premier souci remplace ton code existant par celui-ci

Sub Coller()
Application.ScreenUpdating = False
    Sheets("Coller").Unprotect
    Worksheets("Info").Range("$A$1:$F$50").AutoFilter Field:=1, Criteria1:="Durand"
    Range("A2:B50,F2:F50").Copy Destination:=Worksheets("Coller").Range("C1")
    Sheets("Coller").Protect
    Range("B2").Select
Application.ScreenUpdating = True
End Sub

Les "Select" sont souvent inutiles
Bonne Journée

 

[chlagvuk]

Re : Callculer les cellules soumise à une MFC + Problème PastSpecial

Merci Dull Avec quelque modifications par ci par la j'ai résolu mon premier problème, et j'ai également découvert l'utilité de ScreenUpdating vindiou sa simplifie bien des choses =)

Il ne me reste plus que le deuxième problème, je souhaitait éviter de passer pas une macro mais je ne demande si j'aurais le choix...

 

[chlagvuk]

Re : Callculer les cellules soumise à une MFC + Problème PastSpecial

Snif, personne n'a de solution pour compter le nombre de cellules soumise à une MFC...