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

XL 2010 faire fonction countif/sumif en VBA

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 !

yahya belbachir

XLDnaute Occasionnel
Bonjour
de retour
je veux réaliser un plan statistique qui a pour but de m'envoyer des résultats de la base des données"Feuil1" vers planning statistique,je l'ai déjà effectué avec des formules,
ma question est ce que je puisse l'effectué en VBA?
mon fichier çi joint porte des explications de plus.
merci
 

Pièces jointes

Solution
Il y a un problème avec
Workbook.Activate
qui parfois n'affiche pas le classeur dans certaines conditions (non identifiées).

J'ai d'abord trouvé une solution avec:
Workbook.Activate
Workbook.Windows(1).Visible = True


Mais il semble que:
Windows(Workbook..Name).Activate
soit la meilleure solution.

Le fichier a été (encore) modifié en conséquence.
Maintenant, pour coloriser les cellules, des MFC sont utilisées.
Pour les cellules contenant des formules, c'est relativement simple car la fonction Excel ESTFORMULE() peut être utilisée dans la MFC.

Par contre pour les cellules verrouillées, il n'existe pas de fonction Excel et il a donc fallu utiliser une fonction personnalisée IsLocked() dont le code a du être installé dans le classeur concerné car Excel n'accepte pas (hélas !) qu'une MFC utilise une fonction d'un autre classeur !

Le seul inconvénient de la colorisation des cellules est que cela marque le classeur comme modifié.
Un reset du Workbook.Saved = False ne suffit pas à annuler cela. C'est comme ça !

Edit: Classeur supprimé
 
Dernière édition:
Il y a un problème avec
Workbook.Activate
qui parfois n'affiche pas le classeur dans certaines conditions (non identifiées).

J'ai d'abord trouvé une solution avec:
Workbook.Activate
Workbook.Windows(1).Visible = True


Mais il semble que:
Windows(Workbook..Name).Activate
soit la meilleure solution.

Le fichier a été (encore) modifié en conséquence.
 

Pièces jointes

Dernière édition:
- 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

Réponses
7
Affichages
880
Réponses
12
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…