compter dans une plage a partir d'un cellule active .... HELP !!

compter dans une plage a partir d'un cellule active .... HELP !! - VB/VBA/VBS - Programmation

Marsh Posté le 18-07-2004 à 19:25:34    

hello !
 
je vais essayer d'être clair ... :ange:  
 
je travaille sur 2 feuilles
 
Premiere Feuille :
 
Plage defini par une recherche (donc aleatoire) ex : C3:C30 ou F3:F30
J'arrive a selectionner ma plage aleatoire celon ma recherche
j'arrive egalement a definir les coordonnée des 2 cellule extreme en valeur (1,2,3,...)
Ma recherche a partir de ma feuille 2 (pas de prob)
 
Prob : je cherche a compter le nombre de "popo" de la plage (feuille1) et le resultat s'affiche sur la feuille 2 -> en VBA !
 
Voici le code ou j'arrive a selectionner ma plage:
 

Code :
  1. L1 = ActiveCell.Row
  2. C1 = ActiveCell.Column
  4. ActiveCell.Offset(0, -2).Activate 'critere de recherche
  6. With Sheets("ma feuille 1" ).Range("A5:A31" )
  7. Set m = .Find(ActiveCell.Value) 'je fait ma recherche
  8. Sheets("ma feuille 1" ).Select 'je selectionne ma feuille 1 ou se trouve ma plage
  9. m.Select 'je selectionne se que j'ai trouver
  10. End With
  11. Selection.Offset(0, 3).Activate 'active la premiere cellule de ma plage
  12. C2 = ActiveCell.Column 'je prend les reff
  13. L2 = ActiveCell.Row 'idem
  15. Selection.Offset(0, 30).Activate 'active la derniere cellule de ma plage
  17. C3 = ActiveCell.Column 'je prend les reff
  18. L3 = ActiveCell.Row 'idem
  21. Range(Cells(L2, C2), Cells(L3, C3)).Select


 
Ca sa marche
 
J'aimerais qu'au lieu de selectionner cette plage je compte le nombre de "popo" qu'elle contient et mettre se nombre SUR LE DEUXIEME PAGE
 
J'ai essayer :

Code :
  1. Sheets("ma feuille 2" ).Cells(L1, C1).FormulaR1C1 = "=COUNTIF('ma feuille 1'!RC:RC30,""popo"" )"


 
Probleme ==> RC:RC30 (le deplacement) part de la cellule de la feuille 2 et non a ma cellule active que j'ai chercher en feuille 1 donc...
 
 
Explication simplifier autre exemple:
Colonne A (Davide;Marc;Olivia)
Colonne B (popo;"";popo)
Colonne C ("";popo;popo)
Colonne D (popo;"";popo)
 
Feuille 2 :
Colonne A ("" )
Colonne B (marc;olivia;david)
Colonne C (1;3;2)
 
Resultat Colonne C
 
Merci Beucoup pour celui ou celle qui m'aideras !!!
j'espere avoir été clair

Reply

Marsh Posté le 18-07-2004 à 19:25:34   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed