Y
Yolène
Guest
bonjour,
quelqu'un pourrait-il m'aider à résoudre ce problème. J'aimerais réduire cette procédure à quelques lignes.
J'ai une dizaine de plages dans lesquels je doit extraire le nombre de fois qu'un numéro a été tiré. Je sais comme l'exemple le montre répéter la formule 49 fois pour autant de plages mais j'aimerais avoir un procédé plus concis et je n'arrive pas à utiliser les variables pour les plages et pour les numéros dans une seule formule que j'utiliserai pour tous les cas.
voilà, remplacer ce qui suit par une formule plus simple.
Sheets("Feuil1").Select
Range("dernierstirages_20").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,1)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,2)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,3)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,4)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,5)"
etc.. jusqu'à 49 et pour chaque plage qui existe.
Merci de m'apporter vos lumières.
quelqu'un pourrait-il m'aider à résoudre ce problème. J'aimerais réduire cette procédure à quelques lignes.
J'ai une dizaine de plages dans lesquels je doit extraire le nombre de fois qu'un numéro a été tiré. Je sais comme l'exemple le montre répéter la formule 49 fois pour autant de plages mais j'aimerais avoir un procédé plus concis et je n'arrive pas à utiliser les variables pour les plages et pour les numéros dans une seule formule que j'utiliserai pour tous les cas.
voilà, remplacer ce qui suit par une formule plus simple.
Sheets("Feuil1").Select
Range("dernierstirages_20").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,1)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,2)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,3)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,4)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,5)"
etc.. jusqu'à 49 et pour chaque plage qui existe.
Merci de m'apporter vos lumières.