au sujet d'une boucle

[Yolène]

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.

 

[Pascal76]

Bonjour Yolène

Est-ce qu'une formule du style ferait l'affaire ?

Sheets("Feuil1").Select
Range("dernierstirages_20").Select

for x = 1 to 49
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,x)"
ActiveCell.Offset(0, 1).Select
next



Pascal

 

[ben]

salut, tu peux essayer ceci :


Sheets("Feuil1").Select
Range("dernierstirages_20").Select
i=1

for i 1 to 49

Sheets("Feuil1").Select
Range("dernierstirages_20").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,i)"

for i = 1 to 49

next i

 

[ben]

me suis trompé ds les copié collé et pascal à répondu en meme tps lol


Sheets("Feuil1").Select
Range("dernierstirages_20").Select
i=1

for i 1 to 49


ActiveCell.FormulaR1C1 = "=COUNTIF(dernierstirages_20,i)"

next i

 

[Yolène]

Merci pour votre aide, mais ça ne fonctionne pas, j'ai toujours "0" comme résultat, j'ai beau triturer les i et les x dans tous les sens, ça ne fonctionne pas contrairement à la méthode d'origine beaucoup plus lourde. Je vais me contenter pour le moment de celle-ci en attendant toujours de votre part une nouvelle solution.
merci.