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

NB.SI.ENS en VBA 2

  • Initiateur de la discussion Initiateur de la discussion serir
  • Date de début Date de début

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 !

S

serir

Guest
Bonjour 😎,

Il y a quelques jours j'ai posé une question sur NB.SI.ENS en VBA. Cette fois ci sur le même sujet seulement c'est un peu compliqué en moins pour moi;
J'ai trouvé les résultats avec la formule NB.SI.ENS et en même temps le code VBA se génère automatiquement avec une macro automatique sans comprendre grande chose sur le contenu du code.

Ma question est-ce-que vous pouvez m'aider en réduisant ce contenu en écrivant juste le nécessaire.

Ci-joint le fichier.

Vous remercie d'avance pour votre précieuse aide.
 

Pièces jointes

Re : NB.SI.ENS en VBA 2

Je pense que vous m'avez pas compris, il s'agit toujours sur NB.SI.ENS mais avec un autre exemple tout à fait différent et avec formules pas comme le premier exemple.

Merci
 
Re : NB.SI.ENS en VBA 2

J'ai trouvé la solution;

Sub FrequMat()
'
' FrequMat Macro
'

'
Range("C3:I13").FormulaR1C1 = "=COUNTIFS(donnees!C2,R2C,donnees!C2,RC2)"
Range("C14:I15").FormulaR1C1 = "=COUNTIFS(donnees!C2,R2C,donnees!C3,RC2)"
Range("C16:I19").FormulaR1C1 = "=COUNTIFS(donnees!C2,R2C,donnees!C4,RC2)"
Range("J3:K13").FormulaR1C1 = "=COUNTIFS(donnees!C3,R2C,donnees!C2,RC2)"
Range("J14:K15").FormulaR1C1 = "=COUNTIFS(donnees!C3,R2C,donnees!C3,RC2)"
Range("J16:K19").FormulaR1C1 = "=COUNTIFS(donnees!C3,R2C,donnees!C4,RC2)"
Range("L3:O13").FormulaR1C1 = "=COUNTIFS(donnees!C4,R2C,donnees!C2,RC2)"
Range("L14:O15").FormulaR1C1 = "=COUNTIFS(donnees!C4,R2C,donnees!C3,RC2)"
Range("L16:O19").FormulaR1C1 = "=COUNTIFS(donnees!C4,R2C,donnees!C4,RC2)"
End Sub

Merci.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
18
Affichages
374
Réponses
6
Affichages
175
Réponses
5
Affichages
406
Réponses
15
Affichages
569
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…