Discussion :

[djino66]

bonsoir a tous
j ai un petit soucis simple pour vous hihi
je voudrai sélectionner une plage ex: b4 a z24 en vba mais je n y arrive pas en faite j ai réussi un petit truc sur la selection de la ligne mais dés que je passe en ligne et colonne j ai une erreur voyez plutôt mon petit fichier.
il compte le nombre de p dans les cellules de la ligne b4 a n4 en fonction de 2 dates définies
je voudrai qu'il compte le nombre de p mais sur une plage plus importante soit: b4:z24
de plus je voudrais ajouter des critères en plus du p je voudrai qu'il compte le A et le M et le AT le D le G le CA le CE le F et le RTT oufff c est possible? merci d'avance

[Patrice740]

Bonjour,

Sous VBA, une plage ça se sélectionne pas, ça se définit !

Un excellent cours VBA ici : Cours complet pour le VBA d'Excel

[ARTURO83]

Bonjour,

Hormis la réponse de Patrice740 que je salue, quel est l'utilité de passer par du VBA alors qu'une formule excel suffit.
Formule en E27 et à tirer vers le bas:

Code :

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

=SOMMEPROD(($B$3:$NC$3>=$B$28)*($B$3:$NC$3<=$C$28)*($B$4:$NC$24=$D27))

Pièce jointe 581633

Le fichier
Pièce jointe 581634

Cdlt

[djino66]

bonsoir a tous
merci pour les explications
je préfère vba car c est du code et les utilisateurs de ce classeur ne risque pas de me supprimer les formules....
merci encore ......

[ARTURO83]

Bonjour,

Je préfère vba car c est du code et les utilisateurs de ce classeur ne risque pas de me supprimer les formules....

Et alors, rien ne vous empêche d'enregistrer les formules en VBA et de ne conserver que les valeurs. Ensuite pour refaire les calculs, vous cliquez sur un bouton pour rafraîchir les résultats. Exemple:
Le code

Code :

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

1
2
3
4
Sub Comptage()
    Range("E27:E36").FormulaR1C1 = "=SUMPRODUCT((R3C2:R3C367>=R28C2)*(R3C2:R3C367<=R28C3)*(R4C2:R24C367=RC4))"
    Range("E27:E36").Value = Range("E27:E36").Value
End Sub

Le fichier (cliquez sur le bouton)
Pièce jointe 582168

Cdlt